eğerhata düşeyara

[oydemir]

İyi Akşamlar Formülün Makro ile Nasıl Yapabilirim
sayfa1 de b24 hücresinde
=EĞERHATA(DÜŞEYARA(B24;Sayfa5!B:C;2;0);"")

 

[BAZGİRET]

Deneyiniz
IfError(Sheets("Sayfa1").Range("B24").Value = WorksheetFunction.VLookup(Range("B24").Value, Sheets("Sayfa1").Range("B:C"), 2, 0),"")

 

[oydemir]

Öncelikle teşekkür ederim

Sub Makro1()
IfError(Sheets("Sayfa1").Range("B24").Value = WorksheetFunction.VLookup(Range("B24").Value, Sheets("Sayfa1").Range("B:C"), 2, 0),"")
End Sub

hata verdi

 

[oydemir]

Sayın pitchoute teşekkür ederim.
eğer mümkünse bir soru daha sormak isterim. Sayfa Açıldığında otomatik hesap ettire bilimiyim

 

[oydemir]

teşekkür ederim elinize sağlık

 

[oydemir]

Sayın @pitchoute sayfada yaptığım hatadan dolayı kodlarda deneye deneye bir şeyler yapım b24 leri b23 yaptım oldu fakat bu sefer
a1 sayfasına yapıştırdığım kodlarda hata verdi Me.Range("B24")) dü Me.Range("B243")) yapım ama olmadı.teşekürler


Sub VeriGetir()
Dim arananDeger As Variant
Dim bulunanDeger As Variant
Dim kaynakSayfa As Worksheet
Dim hedefSayfa As Worksheet
Dim aramaAraligi As Range
Set hedefSayfa = ThisWorkbook.Sheets("Sayfa1")
Set kaynakSayfa = ThisWorkbook.Sheets("Sayfa5")
arananDeger = hedefSayfa.Range("B23").Value
Set aramaAraligi = kaynakSayfa.Range("B:C")
On Error Resume Next
bulunanDeger = Application.WorksheetFunction.VLookup(arananDeger, aramaAraligi, 2, False)
On Error GoTo 0
If IsError(bulunanDeger) Then
hedefSayfa.Range("B23").Value = ""
Else
hedefSayfa.Range("B24").Value = bulunanDeger
End If
End Sub

 

[Korhan Ayhan]

Buradaki senaryo tam olarak nedir?

B24 hücresine veri girdiğinizde bu veriyi başka sayfada bulup yanındaki değeri getirmeyi mi amaçlıyorsunuz?

Yoksa başka bir işlem mi?

 

[oydemir]

Teşekkürler Eğer hata düşey ara formülü sayfa girildiği (sayfadan sayfaya geçildiğinde) aktif olsun

 

[Korhan Ayhan]

Sorunuzu örnek dosya ekleyerek tarif edermisiniz.

 

[oydemir]

Elinize Sağlık teşekkür ederim aşadaki makro ile çözüm buldum
Private Sub Worksheet_Activate()
VeriGetir 'VeriGetir write
End Sub