a sütununu c'de bul ve taşı

[frkms]

a sütununda bulunan her rakamı c sütunundaki eşinin yanına otomatik (kopyalamayacak)taşıyacak bir makro yazmam gerekiyor.

yardımlarınızı bekliyorum saygılarımla teşekkürler.

 

[algil]

Aşagıdaki kodu bir deneyin.

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

 

[airborne]

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.

 

[frkms]

"algil" teşekkür ederim istediğim buydu fakat makroyu kaydettiğim dosyayı kapatıp açtıktan sonra makroyu tekrar çalıştırmak istediğimde nedense hata veriyor

 

[algil]

örnek dosya gönderirmisin.

 

[algil]

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.

Bir örnek gönderirmisiniz.

 

[frkms]

tamam hocam çok teşekkür ederim hata makro korumasından kaynaklanıyormuş yalnız yeni bir ekleme daha rica edecektim

c sütununda bulunan rakamı g sütunundaki eşinin yanına otomatik (kopyalamayacak) taşıyacak yalnız c sütunundan bir rakam taşınırken a ve b sütunundaki bilgilerde h ve ı kolonlarına taşınacak bir makro yazmam gerekiyor.