DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub bultası()
For i = 1 To Sheets("sheet1").[a65536].End(3).Row
For s = 1 To Sheets("sheet1").[c65536].End(3).Row
If Cells(i, 1).Value = Cells(s, 3).Value Then
Cells(s, 4) = Cells(i, 1)
Cells(i, 1) = ""
End If
Next s
Next i
End Sub
Bir örnek gönderirmisiniz.airborne' Alıntı:sayfa1 de a1 de makasın b1 sütununda miktarı bulunmaktarır. Sayfa2 de ise yüzlerce malzeme bulunmaktadır ve a15 te makas b15 miktarı yazılmıştır. yeni alınan mas miktarı sayfa1de c1 yazılıp taşındığında sayfa2 nin c15 nasıl taşıyabiliriz.