Verileri Aktarma

[YASINT]

Arkadaşlar selam yapmak istediğim "Data" adlı sayfanın C sütunundaki Kodlara ait satırları aynı isimdeki sayfalara aktaran bir makro yapmak ama bunu beceremedim yardımlarınızı bekliyorum ekte dosyamı gönderiyorum teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:c97ee8490c]Sub aktar()
On Error Resume Next
For a = 3 To [c65536].End(3).Row
If Cells(a, "c") = "MALZEME (SINIFI) KODU" Then GoTo 10
ad = Cells(a, "c")
Set s1 = Sheets(ad)
sonsat = WorksheetFunction.CountA(s1.[c2:c65536]) + 2
For b = 1 To 26
s1.Cells(sonsat, b) = Cells(a, b)
Next
10 Next
MsgBox "VERİLER AKTARILDI"
End Sub
[/vb:1:c97ee8490c]

 

[YASINT]

teşekkürler Sn. leventm