+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excelde Tüm Sutunları Boş Olan Satırları Topluca Nasıl Silebiliriz (/konu-excelde-tum-sutunlari-bos-olan-satirlari-topluca-nasil-silebiliriz.html)
Cvp: Excelde Tüm Sutunları Boş Olan Satırları Topluca Nasıl Silebiliriz - accessman - 18/01/2020
teşekkürler feraz
Cvp: Excelde Tüm Sutunları Boş Olan Satırları Topluca Nasıl Silebiliriz - feraz - 18/01/2020
(18/01/2020, 12:19)accessman yazdı: teşekkürler ferazRica ederim üstad.
Cvp: Excelde Tüm Sutunları Boş Olan Satırları Topluca Nasıl Silebiliriz - accessman - 18/01/2020
Çok kısa bir yöntemden bahsetmiştiniz
Cvp: Excelde Tüm Sutunları Boş Olan Satırları Topluca Nasıl Silebiliriz - feraz - 18/01/2020
(18/01/2020, 13:39)accessman yazdı: Çok kısa bir yöntemden bahsetmiştiniz
Excelin A3:A15 ralığına boşluklu veriler girip alltaki kodu çalıştırın.
Artık excele veri girerisiniz artık
Range("A3:A15").SpecialCells(xlCellTypeBlanks).EntireRow.DeleteCvp: Excelde Tüm Sutunları Boş Olan Satırları Topluca Nasıl Silebiliriz - accessman - 18/01/2020
Evet kısa bir kod teşekkürler
Cvp: Excelde Tüm Sutunları Boş Olan Satırları Topluca Nasıl Silebiliriz - berduş - 18/01/2020
dilerim işinize yarar
Dim SonStR, x As Long
Dim HcrAdrs, SonStN As String
HcrAdrs = Mid(Range("A1").SpecialCells(xlCellTypeLastCell).Address, 2) 'son hücrenin adresi
SonStN = Left(HcrAdrs, InStr(HcrAdrs, "$") - 1) 'son sütun
SonStR = Mid(HcrAdrs, InStr(HcrAdrs, "$") + 1) 'son satır
Application.ScreenUpdating = False
For I = SonStR To 1 Step -1 'son satırdan ilk satıra kadar döngü kurduk
If Application.WorksheetFunction.CountA(Range("A" & I & ":" & SonStN & I)) = 0 Then 'Eğer tüm satır boşsa
Rows(I).EntireRow.Delete ' Tüm satırı sil
End If
Next
Application.ScreenUpdating = True
Debug.Print "bitti"