en son veri olan satırı silecek makro nasıl yazılır

[HASAN27]

en son veri olan satırı silecek makro nasıl yazılır

 

[Necdet]

Merhaba,

A sütununa göre son satırı bulur ve siler.

Sub SonSatSil()
    
    Dim i   As Long
    
    i = Cells(Rows.Count, "A").End(3).Row
    
    Rows(i).Delete
    
End Sub

 

[HASAN27]

Teşekür Ederim Necdet Bey

 

[dEdE]

Merhaba,
Sayın Yeşertener yanıtlamış ama, bir alternatif de benden olsun.
Kolondan bağımsız olarak, en son veri olan satırı siler.

Sub SonSatırıSil()
   Rows(Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row).Delete
End Sub

 

[Necdet]

Merhaba Sayın dEdE,

Bende önce öyle düşünmüştüm ama gerçek veriyi silmeyebilir o vermiş olduğunuz kodda.

Çünkü, diyelim ki 5 satırlık bilginiz var, siz 100. satıra bir değer yazıyor ve siliyorsunuz.

Bu durumda sizin kodlarınız 100. satırı gösterir.

Uyarayım dedim.

 

[dEdE]

Merhaba Sayın Yeşertener,
Uyarı için teşekkürler.
Ancak 5 satırlık veri varken ve 100. satıra bir değer yazıp sonra silersek sayfa sonu (Ctrl+End) 100. satırı gösteriyor ama, yukarıdaki kod yine 5. satırı buluyor. Acaba açıklamanızı ben mi yanlış anlıyorum?

 

[Necdet]

Merhaba Sayın Yeşertener,
Uyarı için teşekkürler.
Ancak 5 satırlık veri varken ve 100. satıra bir değer yazıp sonra silersek sayfa sonu (Ctrl+End) 100. satırı gösteriyor ama, yukarıdaki kod yine 5. satırı buluyor. Acaba açıklamanızı ben mi yanlış anlıyorum?

Pardon pardon, F5 ile gidilen son hücre ile karıştırmışım bu yoğunlukta