DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
merhabaTabi Ekledim Allah razı olsun
Option Explicit
Sub boş_sil()
Dim ts, kaplan
kaplan = MsgBox("Boşlukları Siliyorum", vbYesNo, "Onay")
Application.ScreenUpdating = False
For ts = Cells(65536, "A").End(xlUp).Row To 1 Step -1
If Cells(ts, "A") = "" And Cells(ts, "B") = "" And Cells(ts, "C") = "" Then
Range("A" & ts & ":C" & ts).Delete
End If
Next
Application.ScreenUpdating = True
MsgBox "Boşlukları Sildim", vbInformation, "Bitiş"
End Sub
merhabaBen bu zamana kadar hiç makro kydetmedim size zahmet olacak ama nasıl yapacğım ve nasıl kullanacağımı anlatırsanız duacı olurum
Allah Hepimizden Razı OlsunAllah razı olsun ikinci yolu yaptım işimi gördü makroyu çalışıp ögrencegim inşallah çok güzel bir anlatımda.
Ramazanınız mubarek olsun Allah razı olsun