Son dolu satır dahil 20.000 nci satıra kadar sil

[ziya]

Merhaba,
Çalışn makronun içine
Son dolu satır dahil 20.000 nci satıra kadar sil satırı eklemek istiyorum.
Yardım rica ediyorum.

 

[nihatkr]

Çalışan makronuzun sonuna (veya uygun gördüğünüz yere)

Dim ws As Worksheet
Dim lastRow As Long

Set ws = ThisWorkbook.Sheets("Sayfa1")

lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

If lastRow < 20000 Then
ws.Rows(lastRow + 1 & ":20000").Delete
End If

 

[Muzaffer Ali]

Merhaba.

Soruyu gözden geçirir misiniz?

20.000 nci satıra kadar mı son dolu satıra kadar mı silinecek.
Sil derken içerik mi silinecek yoksa satır komple mi silinecek?

 

[ziya]

Son dolu satırdan başlayarak 20.000 nci satır arası silinecek.

 

[Muzaffer Ali]

Son dolu satırdan başlayarak 20.000 nci satır arası silinecek.

Bu kod söylediğinizi gerçekleştiriyor ama

Sub Sil()
    Range(Cells(Rows.Count, "A").End(xlUp).Address & ":A20000").EntireRow.Delete
End Sub

Bu mantıksız değil mi
Örneğin son dolu satır A1500 ise zaten altındaki satırlar boş. Boş olan satırları neden silmek istiyorsunuz?

 

[ziya]

Tam olarak yazmak istediğim bu. Teşekkür ederim.

 

[ziya]

Bu mantıksız değil mi
Örneğin son dolu satır A1500 ise zaten altındaki satırlar boş. Boş olan satırları neden silmek istiyorsunuz?

Haklısınız, formatını değiştirdiğim bir sütun var, formatı değiştiridiğim sütünu tabımlarken ilk satırdan 20.000 nci satır dahi formatlıyorum.
Bazı işlemler yaptıktan sonra dosyayı csv fotrmatında kaydediyorum. ve bunları web ortamında başka bir uere upload ediyorum. İşye o yükleme aşamasında içeriği boş ama formatı değştirilmiş satırları yüklediğim ortam dolu gibi algılıyor.
Bilmem anlatabildim mi.
Tekrar teşekkür ederim.

 

[Muzaffer Ali]

Tam olarak yazmak istediğim bu. Teşekkür ederim.

Rica ederim. Kolay gelsin.