En son satırdaki verileri kopyala

[atillak]

Selam,
sayfa1, a b c d e sutunlarının en son satırındaki verileri sayfa2 de a1 b1 c1 d1 e1 e buton ile aktarmak istiyorum fakat acemilik ten dolayı maalesef beceremedim. Ilgilenen arkadaşlara şimdiden teşekkur ederim. Saygılar

 

[leumruk]

Selam,
sayfa1, a b c d e sutunlarının en son satırındaki verileri sayfa2 de a1 b1 c1 d1 e1 e buton ile aktarmak istiyorum fakat acemilik ten dolayı maalesef beceremedim. Ilgilenen arkadaşlara şimdiden teşekkur ederim. Saygılar

Merhaba,
tüm sütunların son satırının aynı olduğunu varsayarak yazıyorum.

Sub Aktar()
Set s1 = Sheets("ANA")
Set s2 = Sheets("MASTER SAYFA")
For X = 8 To 14
s2.Cells(1, X + 20) = s1.Cells(s1.[h65536].End(3).Row, X)
Next
MsgBox "İşlem tamam", vbInformation, "DURUM"
End Sub

 

[atillak]

sn leumruk,
öncelikle zaman ayırdıgınız için teşekkur ederim. ben tam olarak ne istediğimi anlatmayı beceremedim. ekte dosya ile örnek gönderiyorum mümkünse orada ki duruma göre kod u güncelleyebilirmisiniz. saygılarımla

 

[leumruk]

Kodu güncelledim ve örnek dosya ekledim. Bir önceki mesajımdan indirebilirsiniz.

 

[atillak]

tşk

sn leumruk;
elinize sağlık çok teşekkur ederim

 

[leumruk]

sn leumruk;
elinize sağlık çok teşekkur ederim

Rica ederim.