Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: kelkitli - 13 Haziran 2011, 13:15:33

Başlık: Sütuna yazılan veriye göre arama
Gönderen: kelkitli - 13 Haziran 2011, 13:15:33

Selamlar,
Aşağıdaki kod ile şöyle bir değişiklik yapmak istiyorum.

Kod: [Seç]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim no As Range
Dim mr As Worksheet
If Target.Count > 1 Or IsEmpty(Target) Or Target.Column <> 1 Then Exit Sub
Set mr = Sheets("PERSONEL")
Set no = mr.Range("B:B").Find(Target, , xlValues, xlWhole)
If Not no Is Nothing Then
    Target.Offset(0, 1) = no.Offset(0, 1)
    'Target.Offset(0, 2) = no.Offset(0, 2)
Else
    MsgBox "Bu kimlik numarası bulunamadı.", vbCritical, "B U L U N A M A D I"
End If
End SubŞu kısmı 1. sütun değil A2:A olarak kullanmak istiyorum.

Kod: [Seç]

If Target.Count > 1 Or IsEmpty(Target) Or Target.Column <> 1 Then Exit Sub


Başlık: Ynt: Sütuna yazılan veriye göre arama
Gönderen: Bülent Öztürk - 13 Haziran 2011, 13:28:58

Aleyküm selam Necmettin Bey.

Şu şekilde dener misiniz?

Kod: [Seç]

If Target.Count > 1 Or IsEmpty(Target) Or Intersect(Target, [A2:A65536]) Is Nothing Then Exit Sub


Başlık: Ynt: Sütuna yazılan veriye göre arama
Gönderen: kelkitli - 13 Haziran 2011, 14:31:01

Bülent Bey, teşekkür ederim. İşlem tamam.