VBA ile Vlookup veya index kullanırken hata kontrolünü yapamıyorum.

[Deniz_Excel]

Merhaba herkese

Ekte linkte eklediğim excel dosyasında ufak bir prototip oluşturdum ve ne yapmaya çalıştığımız özetleyeyim.

Apply isimli sekmede Vehicle yanına parts değerlerini getireceğiz. Ancak Apply sekmesinde bulunan vehicle değerlerinin bir kısmı Table_1_index sekmesinde bir kısmı Table_2_vlookup sekmesinde bulunurken, 2 sekmede de yer almayan araçlar da mevcut.

O nedenle kurmak istediğim kod algoritması şu şekilde idi.
Önce index match kullanarak Table_1_index sekmesinden olan değerleri getirmek eğer döngüde bu sekmede eşleşme olmassa Table_2_vlookup sekmesine girip orayı kontrol etsin. Vehicle değeri 2 sekmede de yok ise o zaman Apply sekmesinde o part değerini boş bırakıp bir sonraki satıra geçsin.

Bu düşündüğümü attığım excelde yazdığım kodla yapamıyorum. Yardımcı olursanız çok sevinirim.

Exceli aşağıdaki linke yükledim

Vlookup_VBA.xlsm dosyasını indir - download

Vlookup_VBA.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[Korhan Ayhan]

Böyle deneyiniz.

Sub Test()
    Dim Son As Long
    With Sheets("Apply")
        .Range("B2:B" & .Rows.Count).ClearContents
        Son = .Cells(.Rows.Count, 1).End(3).Row
        With .Range("B2:B" & Son)
            .Formula = "=IFERROR(IFERROR(INDEX(Table_1_index!A:A,MATCH(A2,Table_1_index!B:B,0)),VLOOKUP(A2,Table_2_vlookup!A:B,2,0)),"""")"
            .Value = .Value
        End With
    End With
End Sub