Vba düşeyara hata ilerletme sorunu

[ESEZEN]

Merhabalar,
Aşağıdaki makro kod ile aşağıdaki örnek formülü yapmaya çalışıyorum fakat makroda iferror kullanamıyorum.on error ile iletmeye çalışıyorum fakat hatayı buluyor yazıyor ama ilerletemiyorum.
Desteğinizi rica ederim.

Örnek formül
=EĞERHATA(DÜŞEYARA(H9;'Kapı Önü Bilgileri'!G:H;2;YANLIŞ);"K.ÖNÜ DEĞİL")


Sub nakliyebelirle()
Dim duseyara As String

On Error GoTo hata
sonhücre_ftl = Worksheets("DATA").Cells(Rows.Count, "D").End(xlUp).Row
For i = 6 To sonhücre_ftl
duseyara = Application.WorksheetFunction.VLookup(Worksheets("DATA").Range("I" & i).Value, Worksheets("Veri").Range("H:J"), 2, 0)
Worksheets("DATA").Range("U" & i).Value = duseyara
Next i
Exit Sub
hata:
Worksheets("DATA").Range("U" & i).Value = "K.ÖNÜ DEĞİL"



End Sub

 

[Ömer]

Merhaba,

Deneyiniz.

Sub nakliyebelirle()
Dim duseyara As String

sonhücre_ftl = Worksheets("DATA").Cells(Rows.Count, "D").End(xlUp).Row
For i = 6 To sonhücre_ftl
bak = Application.WorksheetFunction.CountIf(Worksheets("Veri").Range("H:H"), Range("I" & i).Value)
If bak > 0 Then
duseyara = Application.WorksheetFunction.VLookup(Worksheets("DATA").Range("I" & i).Value, Worksheets("Veri").Range("H:J"), 2, 0)
Worksheets("DATA").Range("U" & i).Value = duseyara
Else
Worksheets("DATA").Range("U" & i).Value = "K.ÖNÜ DEĞİL"
End If
Next i

End Sub

 

[ESEZEN]

Merhaba,

Deneyiniz.

Sub nakliyebelirle()
Dim duseyara As String

sonhücre_ftl = Worksheets("DATA").Cells(Rows.Count, "D").End(xlUp).Row
For i = 6 To sonhücre_ftl
bak = Application.WorksheetFunction.CountIf(Worksheets("Veri").Range("H:H"), Range("I" & i).Value)
If bak > 0 Then
duseyara = Application.WorksheetFunction.VLookup(Worksheets("DATA").Range("I" & i).Value, Worksheets("Veri").Range("H:J"), 2, 0)
Worksheets("DATA").Range("U" & i).Value = duseyara
Else
Worksheets("DATA").Range("U" & i).Value = "K.ÖNÜ DEĞİL"
End If
Next i

End Sub

çok iyi ya süper oldu ellerine sağlık ustam

 

[Necdet]

Merhaba,

VBA içindeki FIND komutunu da kullanabilirsiniz.

 

[Korhan Ayhan]

Merhaba,

Alternatif ve örnek olması açısından VBA tarafında DÜŞEYARA fonksiyonu kullanımı ve HATA durumlarını görmezden gelme işlemi için ekteki örnek dosyayı inceleyebilirsiniz.

Harici Link (Silinebilir) ; https://www.dosya.tc/server32/w0v7re/Duseyara_Hata_Atlama_Ornegi.xlsm.html

 

[ESEZEN]

Değerli Yöneticiler, ilginiz için teşekkür ederim.