Hücredeki değere göre sayfaya veri kaydetme

[Mahmut Bayram]

ekteki örnek'te bazı sorularım var yardımcı olur musunuz?

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:e48e8c9498]Sub aktar()
Set s1 = Sheets("kayıt")
Set s2 = Sheets("sayfa" & [e2])
say = WorksheetFunction.CountA(s2.[b2:b65536])
s2.Cells(say + 2, 1) = say + 1
For a = 1 To 5
s2.Cells(say + 2, a + 1) = s1.Cells(2, a).Value
Next
End Sub
[/vb:1:e48e8c9498]

 

[Mahmut Bayram]

Syn leventm süpersin vallahi çok teşekkür ederim. ellerine sağlık. çok güzel olmuş.