Macro uyarlama

[attrd]

Arkadaşlar bu makroyu kendi sayfama kullanmak istiyorum


Sub sil()
For x = [k65536].End(3).Row To 1 Step -1
If Cells(x, "k") = "x" Then Rows(x).Delete shift:=xlUp
Next
End Sub



bu makroyu DEFTER isimli exel isimli sayfamda şu şekilde değiştirmek istiyorum
*** burdaki X degeri= 0,00 olacak
*** tüm K sutunu = [k65536] degilde K3 ile K15 arasındaki sutunları alacak
*** degeri 0,00 olan satırın tümünü degilde B1 ile M15 arasındaki satırı silmek istiyorum
*** yani bu makro tüm Ksutunundaki x degerlerinin olduğu satırı siliyor ben X yerine harf yazınca oldu fakat sayı yazınca olmadı bide tüm K sutununu da ki x bulunan satırı sildi ben K3 İLE K15 hücrelerinde varsa 0,00 degeri odegerişn culundugu satırın tamamının degilde B1 ile M15 arasındaki satırı silmesini istiyorum A yı ve O Ö P RS... satırını silmesini istiyorum kısacası hücreyi yukarı sürüklüycek
kısacası
X= 0,00
[k65536] = Range("k3:k15").Select
0,00 degeri varsa silinmesi secilen satır içinde = ("b1:m14").Select



İNŞALLAH anlatabilmişimdir
yardımcı olursanız sevinirim bir türlü yapamadım
hayırlı akşamlar saygılarımla

 

[Ömer BARAN]

Merhaba.
Aşağıdaki gibi dener misiniz?

Sub SİL()
    For x = 15 To 3 Step -1
        If Cells(x, "k") <> "" And Cells(x, "k") = 0 Then Range("B" & x & ":M" & x).Delete shift:=xlUp
    Next
End Sub

 

[attrd]

Hocam cook tesekkur ederim