hücreden hücreye veri aktarmak ve en sonsatırdan devam

[kadr]

1-arkadaşlar benim sormak istediğim sayfa1 deki b1,b2,b3... hücresindeki verileri ve c1,c2,c3... hücresindeki verileri sayfa2 deki , e3,e4,e5,e6,e7...hücresine aktaracak
2-aktarım b hücresindeki veriler bittikten sonra c hücresindeki veriler e hücresindeki en son satırdan başlayarak aktarılacak
3- aktarırkende b hücresinde değerin yanına % işareti c hücresindeki aktarılan değerin yanıma YTL yazacak bütün bunları yapabilirmiyiz
4-b ve c hücreleri değişken sayıda

 

[conari]

Sub AKTAR()
satb = [b65536].End(3).Row
satc = [c65536].End(3).Row
For i = 1 To satb
s2s = Sayfa2.[e65536].End(3).Row + 1
Sayfa2.Cells(s2s, 5).Value = Cells(i, 2).Value & " %"
Next
For i = 1 To satc
s2s = Sayfa2.[e65536].End(3).Row + 1
Sayfa2.Cells(s2s, 5).Value = Cells(i, 3).Value & " YTL"
Next
End Sub

makroyu ilgili sayfada çalıştırınız.

 

[kadr]

conari kardeş eline saglık tşk