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]
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.
[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]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.