Satır silme

[mancubus]

aşağıdaki gibi deneyin.

Sub DoluSatDolguSarı()

With Application
    .Calculation = xlCalculationManual
    .ScreenUpdating = False
    .DisplayAlerts = False
End With

Dim ssat As Long, ssut As Long, i As Long

ssat = Cells(Rows.Count, "AG").End(xlUp).Row
ssut = Cells(1, Columns.Count).End(xlToLeft).Column


For i = 2 To ssat
    If Len(Trim(Cells(i, "AG"))) > 0 Then Range(Cells(i, 1), Cells(i, ssut)).Interior.Color = vbYellow
Next
    
With Application
    .Calculation = xlCalculationAutomatic
    .ScreenUpdating = True
    .DisplayAlerts = True
End With

End Sub

 

[rtk19641990]

Çok teşekkür ederim. İyi çalışmalar

 

[mancubus]

rica ederim.
kolay gelsin.