İçinde veri bulunan son satır

[Marco]

Ýçinde veri bulunan son satır

Arkadaşlar;

İçinde veri bulunan en son satırın (verilerin hangi sütünlara dağıldığı önemli değil) satır no sunu veren koda ihtiyacım var.

Aslında veri bulunan son satırda sona erecek bi döngüm var. Başka çözümlere de açığım

 

[birol_mumcu]

merhaba;
SON SATIRA GÃ?TÜRÜR
Private Sub CommandButton1_Click()
Dim alan, satırsayısı, sonsatır
Set alan = Cells(1, 1).CurrentRegion
satırsayısı = alan.Rows.Count
sonsatır = satırsayısı + 1
Cells(sonsatır, 1).Select
End Sub


SON HÜCREYE GÃ?TÜRÜR
Sub ActivateNextBlankDown()
Range("A1").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
End Sub
'LABELDEN SAYFANIN VERİLEN ADRESİNE VERİSİZ SON HÜCREYE YAZDIRIR
Private Sub Label1_Click()
Range("A1").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.FormulaR1C1 = "ZIMPARALI VALYAN PROBLEMİ"
End
End Sub
kodlar syn NURZİYA HİÇDURMAZ a aittir
kolay gelsin

 

[Marco]

Teşekkür ederim birol mumcu.