d sütunundaki her rakamı g sütunundaki eşinin yanına taşıma

[frkms]

d sütununda bulunan her rakamı g sütunundaki eşinin yanına otomatik (kopyalamayacak)taşıyacak bir makro yazmam gerekiyor.
yalnız bunu yaparken d sütununda örneğin iki adet 1.000 ytl olup g sütununda bir adet varsa d sütunundaki ikinci 1.000 ytl'yi yerinde bırakacak.

 

[veyselemre]

[vb:1:64d53dc0d9]Sub aktar()
For X = 1 To [D65536].End(3).Row
For Y = 1 To [G65536].End(3).Row
If Cells(X, "D") = Cells(Y, "G") And Cells(Y, "H") = "" Then
Cells(X, "D").Cut
Cells(Y, "H").Select
ActiveSheet.Paste
Exit For
End If
Next Y
Next X
End Sub[/vb:1:64d53dc0d9]

 

[frkms]

Teşekkür ederim Veyselemre çok sağol. :dua:

 

[Levent Menteşoğlu]

Sn frkms

Lütfen sorunuzu özetleyecek şekilde uygun başlık kullanınız. Mevcut başlığınız tarafımdan değiştirilmiştir.