Belli Rakamdan Küçük Olan Verilerin Satırını Sil

[baydeniro]

Merhaba Arkadaşlar,

Bir tabloda H6 hücresinde bir rakam bulunmaktadır. H6 hücresinde yazılı rakamdan G ve H sütunlarındaki rakamlardan (her ikisi de) küçükse o satırların silinmesi veya temizlenmesi ve sütun toplamlarının güncellenmesi mümkün müdür ?

 

[turist]

Aşağıdaki Kodu, Butona atayıp deneyin.

Sub sil()
For i = Cells(Rows.Count, 1).End(xlUp).Row To 10 Step -1
If Cells(i, "G") < [H6] And Cells(i, "H") < [H6] Then Rows(i).EntireRow.Delete
Next i
For i = 10 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, 1) = i - 9
Next i
End Sub

 

[baydeniro]

Turist üstadım çok teşekkür ediyorum. Sağlıcakla kalın, elleriniz dert görmesin.

 

[turist]

Sağ olun, iyi çalışmalar.