Soru Boş Satır Silme Macrosu

[hkaradag]

Merhabalar,
Aşağıdaki kod ile A3 ile A302 arasındaki boş satır ve sütunları silmek istiyorum. Ancak kod çalışmıyor. Kodda nasıl bir değişiklik yapmam lazım? Teşekkür ederim.

Sub bos_sil()
Application.ScreenUpdating = False
Dim hucre As Range
Dim x As Integer
basla:
x = WorksheetFunction.CountA(Range("A3:AA302"))
For Each hucre In Range("A3:AA302" & x)
If hucre.Value = "" Then
hucre.Select
Selection.EntireRow.Delete Shift:=xlUp

GoTo basla
End If
Next
End Sub

 

[bmutlu966]

Aşağıdaki kodlarla A sütünunda boş olan hücrelerin bulunduğu satırları silebilirsiniz.

Sub sil()

Application.ScreenUpdating = False

For t = 302 To 3 Step -1
    If Cells(t, "A") = "" Then
    Rows(t).Delete
    End If
Next

Application.ScreenUpdating = True

End Sub

 

[YUSUF44]

Sayın @bmutlu966'nın kodlarını aşağıdaki gibi kullanırsanız sadece A sütununu değil A sütunundan AA sütununa kadar kontrol eder ve o satırda herhangi bir boş hücre varsa satırı siler:

Sub sil()

Application.ScreenUpdating = False

For t = 302 To 3 Step -1
    For i = 1 To 27
        If Cells(t, i) = "" Then
            Rows(t).Delete
            i = 27
        End If
    End If
Next

Application.ScreenUpdating = True

End Sub

 

[Seyit Tiken]

Bu şekilde de deneyebilirsiniz.

[a1:a302].SpecialCells(4).EntireRow.Delete

 

[hkaradag]

Cevaplar için teşekkür ederim. Sorunum çözülmüş oldu. İyi ki varsınız sağ olun...

 

[canburak]

Bu şekilde de deneyebilirsiniz.

[a1:a302].SpecialCells(4).EntireRow.Delete

Merhabalar, Assagida 2 makrom var , ve ilk makrom Butonu hareketli olmasi icin kullaniyorum , belirli bir sutun icerisinde kosul koydum ve o satirlarin uzerinde geldigim zaman yaptigim buton onun karsisina geliyor A10:A30 Arasinda ornegin, Sorunum Kbuton nerede duruyorsa o satiri silsin istiyorum, butonu getirdigim yerde tikladigimda oldugu yeri siliyor sorun yok, lakin buton A12 Sutununda diyelim ve Imlec yani icinde bulundugum hucre B5 hucresin de diyelim ozaman 5 ci satiri siliyor ve bunu istemiyorum kntbuton ismini verdigim buton hangi satirda ise ve Imlecim nerede olursa olsun butonun oldugu satiri silmesini istiyorum,
Lutfen yardim edebilirmisiniz,

Saygilarimla,


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, [A10:A30]) Is Nothing Then Exit Sub
kntbuton.Top = ActiveCell.Top


End Sub

---------------------------

Private Sub kntbuton_Click()

Dim Onay As Byte

Onay = MsgBox("Butonun oldugu satir silinecektir!" & Chr(10) & Chr(10) & "Islemi onayliyor musunuz?", vbCritical + vbYesNo)
If Onay = vbNo Then Exit Sub

ActiveCell.Select
Selection.EntireRow.Delete
MsgBox "Silme islemi tamamlanmistir.", vbInformation


End Sub