Sayfadaki Verilerin Diğer Sayfaya aktarılması Hk.

[ny28.]

Merhaba,
Ekteki çalışma kitabında sayfa2 deki verilerin sayfa1 deki ilgili hücrelere makro ile butona her tıklanışında sonraki satıra geçerek aktarılması konusunda yardımlarınızı rica ederim.

Teşekürler.

 

[Murat OSMA]

İlgili hücre adreslerini yazarak bu şekilde yapabilirsiniz;

[SIZE="2"]Sub Emre()
    Sheets(1).Range("A65536").End(3)(2, 1) = Sheets(2).Range("L2").Value
    Sheets(1).Range("B65536").End(3)(2, 1) = Sheets(2).Range("C6").Value
    Sheets(1).Range("C65536").End(3)(2, 1) = Sheets(2).Range("C7").Value
'bu şekilde devam edin
End Sub[/SIZE]

Kod:
Sheets(1).Range("A65536").End(3)(2, 1) = Sheets(2).Range("L2").Value
Anlamı:
Sayfa1'in A sütunundaki son değerin bir altına Sayfa2'deki L2 hücresini yaz.

 

[ny28.]

Çok teşekür ederim.
Elinize sağlık.

 

[Murat OSMA]

Rica ederim, iyi günler.