Son dolu hücreden sonra veri yazdırmak

[ferhatgurbuz]

Hayırlı geceler arkadaşlar. Ekteki dosyada son dolu hücrelerden sonra imza için isim açıyorum. Her defasında satır sayısı değiştiği için daha pratik birşey olsun istedim. Bir butona tıkyayınca alta isim ve unvanlar gelsin.

Teşekkürler kolay gelsin

 

[Mehmet Şahin]

Merhaba,
Sayfadaki buton koduna aşağıdaki kodları yapıştırınız. Kolay gelsin.

Sub Düğme1_Tıklat()
Dim s1 As Worksheet
Set s1 = Sheets("Sayfa1")
sat = s1.[b65536].End(3).Row

s1.Cells(sat + 5, "b") = "BAŞKAN": s1.Cells(sat + 5, "c") = "ÜYE": s1.Cells(sat + 5, "d") = "ÜYE"
s1.Cells(sat + 6, "b") = "Ferhat Gürbüz1": s1.Cells(sat + 6, "c") = "Ferhat Gürbüz1": s1.Cells(sat + 6, "d") = "Ferhat Gürbüz1"
s1.Cells(sat + 7, "b") = "111": s1.Cells(sat + 7, "c") = "222": s1.Cells(sat + 7, "d") = "333"
Set s1 = Nothing
End Sub

 

[ferhatgurbuz]

Çok tşekkür ederim. Kolay gelsin.

 

[Mehmet Şahin]

Rica ederim, iyi çalışmalar.