aradaki veriler

[milow]

sevgili ustalarım elimdeki verierin tarih karşısındakiler haric arada kalanların silinmesi gerekiyor nasıl yapabilirim yardım ederseniz sevinirim

 

[numan şamil]

sevgili ustalarım elimdeki verierin tarih karşısındakiler haric arada kalanların silinmesi gerekiyor nasıl yapabilirim yardım ederseniz sevinirim

Merhaba

Sub numan()
Dim x As Long
Application.ScreenUpdating = False
For x = 1 To Cells(Rows.Count, 1).End(3).Row
If Range("A" & x).Value = "" Then
Range("D" & x).Clear
Range("E" & x).Clear
End If
Next x
Application.ScreenUpdating = True
End Sub

 

[milow]

Merhaba

Sub numan()
Dim x As Long
Application.ScreenUpdating = False
For x = 1 To Cells(Rows.Count, 1).End(3).Row
If Range("A" & x).Value = "" Then
Range("D" & x).Clear
Range("E" & x).Clear
End If
Next x
Application.ScreenUpdating = True
End Sub

çok teşekür ederim emeklerinize sağlık

 

[numan şamil]

çok teşekür ederim emeklerinize sağlık

İyi çalışmalar