Kod: Tümünü seç

Sub BosHucreleriSil()
    Dim ws As Worksheet
    Dim sutun As Range
    Dim sonSatir As Long
    
    Set ws = ActiveSheet
    
    ' Seçili sütunu al
    If Selection.Columns.Count > 1 Then
        MsgBox "Lütfen tek bir sütun seçin.", vbExclamation
        Exit Sub
    End If
    
    sonSatir = ws.Cells(ws.Rows.Count, Selection.Column).End(xlUp).Row
    Set sutun = ws.Range(ws.Cells(1, Selection.Column), ws.Cells(sonSatir, Selection.Column))
    
    ' Otofiltreyi etkinleştir
    If Not ws.AutoFilterMode Then
        sutun.AutoFilter
    End If
    
    ' Boş hücreleri filtrele
    sutun.AutoFilter Field:=1, Criteria1:="="
    
    ' Görünür (boş) satırları sil
    On Error Resume Next
    sutun.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    On Error GoTo 0
    
    ' Filtreyi kaldır
    ws.AutoFilterMode = False
    
    MsgBox "Boş hücreler silindi.", vbInformation
End Sub