Kiracıyı yazınca taşınmaz bilgisi gelsin

[mars2]

İyi günler;

Sayfa2'de bilgiler bulunmakta, sayfa1 de ise B6'ya kiracı ismi yazdığımda, taşınmaza ait bilgiler ilgili hücrelere otmatik getiren makro?
Teşekkürler.

 

[Recep İpek]

Aşağıdaki kodları sayfanın VBE bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [b6]) Is Nothing Then Exit Sub
If Target.Value = Empty Then Exit Sub
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
For Each bul In s2.Range("h2:h100")
If bul = Target.Value Then sat = bul.Row
Next
If sat = "" Then
MsgBox "Aradığınız kişi bulunamadı.", vbInformation, "Bilgi"
Exit Sub
End If 
s1.Cells(2, "b").Value = s2.Cells(sat, "b").Value
s1.Cells(3, "b").Value = s2.Cells(sat, "c").Value
s1.Cells(4, "b").Value = s2.Cells(sat, "d").Value
s1.Cells(2, "d").Value = s2.Cells(sat, "e").Value
s1.Cells(3, "d").Value = s2.Cells(sat, "f").Value
s1.Cells(4, "d").Value = s2.Cells(sat, "g").Value
s1.Cells(7, "b").Value = s2.Cells(sat, "I").Value
Set s1 = Nothing
Set s2 = Nothing
End Sub

 

[İsmail Küçükşengün]

Sayın Recep İpek;

Merhaba;

Bende hata veriyordu.

Kodlarda, ortadaki End Sub ibaresini silip, yerine End If yazılarak hata giderildi.

Selamlarımla.

 

[mars2]

Sayın Recep İpek;
cevabınız için teşekürler.

Sayın İsmail Küçükşengün

Koddaki hata

MsgBox "Aradığınız kişi bulunamadı.", vbInformation, "Bilgi"
Exit Sub
End Sub

Doğrusu

MsgBox "Aradığınız kişi bulunamadı.", vbInformation, "Bilgi"
Exit Sub
End If

 

[Recep İpek]

Uyarınız için teşekkürler İsmail Bey.

Bu satırı sonradan eklemiştim.Deneme fırsatım olmadı.