2 olasılıklı veri aktarımı

[sakiogluo]

iki değeri aynı satırda bulup ilgili satıra veri aktarılırmı?

 

[Levent Menteşoğlu]

Aşağıdaki kodu "ÜRETİM 1" sayfasındaki butona bağlayarak deneyin.

[vb:1:f2596c1b65]Sub aktar()
Set s1 = Sheets("ÜRETİM 1")
Set s2 = Sheets("tablo")
For a = 2 To s2.[a65536].End(xlUp).Row
aranan = s2.Cells(a, 3) & s2.Cells(a, 5)
For b = 2 To s1.[a65536].End(xlUp).Row
bakilan = s1.Cells(b, 2) & s1.Cells(b, 6)
If aranan = bakilan Then
s2.Cells(a, 6) = s1.Cells(b, 5).Value
s2.Cells(a, 7) = s1.Cells(b, 10).Value
s2.Cells(a, 8) = s1.Cells(b, 9).Value
s2.Cells(a, 9) = s1.Cells(b, 11).Value
End If
Next: Next
End Sub[/vb:1:f2596c1b65]

 

[sakiogluo]

Sayın Leventm, formül bu haliyle çalışıyor ancak, bakılan değer 2 ve 6 ıncı sütunun tamamında yapılıyor oysa benim istediğim sadece ("ÜRETİM 1") içinde B2 ve F2 hücrelerine bakması yardımların için teşekkür ederim.

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.

[vb:1:3753e7c7b6]Sub aktar()
Set s1 = Sheets("ÜRETİM 1")
Set s2 = Sheets("tablo")
aranan = s1.[b2] & s1.[f2]
For a = 2 To s2.[a65536].End(xlUp).Row
bakilan = s2.Cells(a, 3) & s2.Cells(a, 5)
If aranan = bakilan Then
s2.Cells(a, 6) = s1.[e2].Value
s2.Cells(a, 7) = s1.[j2].Value
s2.Cells(a, 8) = s1.[i2].Value
s2.Cells(a, 9) = s1.[k2].Value
End If
Next
End Sub[/vb:1:3753e7c7b6]