Formul sonucuna (EĞER) gore satir silmek

[Eser Gökay]

arkadaslar

hücre A8 den itibaren 82. satira kadar butun hucreler değerlerini baska bir sayfadan =EĞER(XX>0;XX;"") seklinde aliyor. yapmak istedigim bu aralikta EĞER'in kosulu saglamamasından dolayı hücre değerinin boş olması durumunda o satirin silinmesi. ilgilenen arkadaslara tesekkur ediyorum.

 

[kombo]

sN. Muhasebecieser

Aşağıdaki kodları bir butona bağlayın.

Sub BOSSATIRSIL()
    For X = [A65536].End(3).Row To 8 Step -1
    If Cells(X, 1) = "" Then Rows(X).Delete
    Next
End Sub

./.

 

[Eser Gökay]

tesekkur ediyorum sayin kombo.