düşeyara uyarlama

[koboy]

Merhaba
anasayfam da
b sütünün da aranan değer
c,d,e,f indeks değlerini var

kur sayfasında index dizini

bu marko ile anasaydaki sadece b sütününun index değeri gekiyor nasıl diğer değerleri alabilirim

Private Sub CommandButton1_Click()
'Konu : Düşeyara Kod Düzenlemesi
'Mail : m.batu.1967@gmail.com
'Msn : m.batu.1967@hotmail.com
'Coder By : asi_kral_1967
'Not : Kod Düzenelemesi Yapılmıştır.
Dim s1, s2, son, son1, alan, i
Set s1 = Sheets("KUR")
Set s2 = Sheets("anasayfa")
Application.ScreenUpdating = False
s1.Range("B:B").ClearContents

son = s1.Cells(Rows.Count, 1).End(xlUp).Row
son1 = s2.Cells(Rows.Count, 1).End(xlUp).Row
alan = "B6:F" & son1
For i = 1 To son

If WorksheetFunction.CountIf(s2.Range("B6:F" & son1), s1.Cells(i, 1)) > 0 Then
s1.Cells(i, 2) = Application.WorksheetFunction.VLookup(s1.Cells(i, 1), s2.Range(alan), (2), 0)
End If
If WorksheetFunction.CountIf(s2.Range("B6:F" & son1), s1.Cells(i, 1)) > 0 Then
s1.Cells(i, 2) = Application.WorksheetFunction.VLookup(s1.Cells(i, 1), s2.Range(alan), (4), 0)



End If


Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı", vbInformation, "asi_kral_1967"
End Sub

 

[Korhan Ayhan]

Döngü içinde if bloklarını çoğaltıp deneyebilirsiniz.

Ya da net çözüm için dosyanızı ekleyebilirsiniz.