Soru For Döngüsü Hakkında Küçük bir detay...

[stirra_ej]

Arkadaşlar hücrelerde işlem yapınca bu döngü sonsuza takılıyor.. Bunu herhangi bir değişiklikle tek sefer çalışabilecek şekle getirebilirmiyiz...

Private Sub Worksheet_Change(ByVal Target As Range)

Dim i As Integer
For i = Range("b50").End(3).Row To 1 Step -1
If Cells(i, "b") = "" Then
ActiveCell.EntireRow.Select
Selection.Delete Shift:=x1Up
End If

Next i
i = Empty

End Sub

 

[EmrExcel16]

For döngüsüne başlamadan Application.EnableEvents = False bitiminde ise "Next" satırından sonra Application.EnableEvents = True satırlarını ekleyip deneyiniz..

 

[stirra_ej]

Oldu bile teşekkürleeerrrrr

 

[EmrExcel16]

Oldu bile teşekkürleeerrrrr

Rica ederim , iyi çalışmalar.

 

[stirra_ej]

Son bir şey sormak istiyorum Bu formül sildiğim satırın altından itibaren tüm satırı siliyor,, ben mesela dolu olan satırların ortasından biar satır sildiğimde dolu olan satırları silmemesini nasıl sağlayabilirim.


Dim i As Integer
Application.EnableEvents = False
For i = Range("b50").End(3).Row To 1 Step -1
If Cells(i, "b") = "" Then
ActiveCell.EntireRow.Select
Selection.Delete Shift:=x1Up
End If

Next i
i = Empty
Application.EnableEvents = True
End Sub

 

[EmrExcel16]

Şu şekilde deneyiniz..

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Integer
    Application.EnableEvents = False
        For i = Range("b50").End(3).Row To ActiveCell.Row Step -1
            If Cells(i, "b") = "" Then
                Rows(i).Delete Shift:=x1Up
            End If
        Next i
        
    i = Empty
    Application.EnableEvents = True
End Sub