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),"")

 

[pitchoute]

Alternatif olarak;

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("B24").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("B24").Value = ""
    Else
        hedefSayfa.Range("B24").Value = bulunanDeger
    End If
End Sub

 

[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

 

[pitchoute]

Rica ederim hocam. İşlemin B24 hücresine her değeri girdiğinizde otomatik olarak gerçekleşmesini istiyorsanız eğer; Proje Gezgini'nde Sayfa1'e çift tıklayın, açılan kod penceresine aşağıdaki kodu yapıştırın:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("B24")) Is Nothing Then
        Call VeriGetir
    End If
End Sub

 

[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.