hücre Değeri Değişince makro Çalışsın

[dogan081]

Arkadaşlar bir çalışma yapıyordum bir yerde tıkandım kaldım.

sayfa içerisinde b2 hücresine tc no yazdığımda data sayfasından ilgili bilgileri getirebileceğim bir makro bilen varmı. konuyla ilgili formül var ama kayıtlarım sırasıyla olmayacağı için bana makro lazımdı. butona atmakta istemedim seri bir kayıt olacak. yoğun olunca çok zor yetiştirebiliyorum.

bilen varsa yardım ederse çok müteşekkir kalırım.
şimdiden çok teşekkür eder iyi çalışmalar dilerim.

 

[Necdet]

Makro olması gerekiyor mu?
Formüllü istekseniz

B3 Hücresine

=DÜŞEYARA($B$2;Data!$B$2:$F$5;SATIR()-1;0)
=VLOOKUP($B$2;Data!$B$2:$F$5;ROW()-1;0)

Yazın ve formülü aşağıya kopyalayınız

 

[kupaci]

hücer değitirdiğinde makronun çalışması için sayfanın kot sayfasına
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
başlığını gir.sayfada yapacağın her değişiklikte makron aktif hale gelecektir.

 

[dogan081]

SAYIN HOCAM İLGİNİZE TEŞEKKÜR EDERİM.
AŞAĞIDAKİ MAKROYU KULLANMAYA ÇALIŞTIM BAŞARAMADIM. HOCAM YAPTIĞIM İŞ HATA KABUL ETMEZ BİR İŞ OLDUĞU İÇİN %100 DOĞRU SONUÇ ALMAM GEREKİYOR. AŞAĞIDAKİ YAZILIMI NASIL KULLANA BİLRİM.

İLGİNİZE GERÇEKTEN ÇOK TEŞEKKÜR EDERİM


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$6" <> Empty Then
Call ARA
End If
End Sub

 

[dogan081]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$F$6" <> Empty Then
Call Deneme
End If
End Sub

Sub Deneme()
MsgBox "QQQQ"
End Sub

BUNU DENEDİM YİNEDE OLMADI

 

[halilsoft]

zannediyorum bu i&#351;ini g&#246;rebilir...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = Cells(2, 2)
For i = 1 To Sayfa2.[a65536].End(3).Row
If a = Sayfa2.Cells(i, 2) Then
Cells(2, 3) = Sayfa2.Cells(i, 3) 'ad&#305;
Cells(2, 3) = Sayfa2.Cells(i, 4) 'soyad&#305;
Cells(2, 3) = Sayfa2.Cells(i, 5) 'b ad&#305;
Cells(2, 3) = Sayfa2.Cells(i, 6) 'trh
Exit Sub
End If
Next
End Sub

 

[dogan081]

Halİl Hocam Allah Razi Olsun, DİĞer Hocalarimdan Da Allah Razi Olsun. DedİĞİnİz Gİbİ Yaptim Olayi ÇÖzdÜm.

Hepİnİzİn EmeĞİne SaĞlik. Çok TeŞekkÜr Ederİm.