Excelde Boş Hücreleri Filtre Yöntemi İle Silme

[TRWE_2012]

Merhaba

Makalesi :
https://www.sordum.net/40685/excelde-bo ... ile-silin/

NOT :

Bu da benden otomasyon için makrosu (VBA)

Bu Excel VBA makrosu, seçili sütundaki boş hücreleri filtre yöntemiyle siler:

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

Nasıl Kullanılır?

1.Excel'de Alt + F11 ile VBA editörünü açınız
2.Ekle ----->>>>>> Modül ile yeni modül oluşturunuz
3.Kodu yapıştırınız
4.Silmek istediğiniz sütunun herhangi bir hücresini seçiniz
5.Alt + F8 ile makroyu çalıştırınız.

Başlık satırı varsa otomatik korunur, Offset(1, 0) sayesinde ilk satır atlanır.

Güle güle kullanın...Hata olursa düzeltiriz vesselam...

[burak35]

Güzel. office falan kullanmayalı yıllar olmuş ya...

[Kayserilifatih]

Ben Libre Office kullanıyorum fakat çok aktif kullanıcısı değilim. Microsoft Office yazılımını çok gerekmedikçe kullanmamaya Microsoft'u kendimce protesto etmek için kullanmamaya özellikle dikkat ederim.