hücredeki sayfa ismine göre o sayfanın en son boş hücresine veri girişi

[frtnamu]

selamlar
anasayfadaki 7. satıra yazılan değerleri e7 hücresinde ismi yazan sayfanın en son boş satırına makro ile yapıştırmak istiyorum.
şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Module kopyalayın ve Ana Sayfada bir butona bağlayın..

Sub SayfayaAktar()
Dim son As Long, s1 As Worksheet
Set s1 = Sheets("" & Range("E7") & "")
Application.ScreenUpdating = False
    son = s1.[C65536].End(3).Row + 1
    Range("D7:J7").Copy
        s1.Range("B" & son & ":H" & son).PasteSpecial _
        xlPasteValues, xlNone, False, False
    s1.Range("B4:H" & son).Sort s1.Range("B4")
    Range("D7,F7,G7,H7,I7").ClearContents
Application.ScreenUpdating = True
End Sub

.

 

[frtnamu]

çok teşekkürler emeğinize sağlık