sıfır olan satır silinsin

[yesilcan]

arkadaşlar ilgili sayfadaki "0" olan satır otomatik silinebilirmi?

 

[Orion1]

A sütünunda "0" olan satırları siler.

dim i as long
for i = cells(65536,"A").end(xlup).row to 1 step  -1
    if cells(i,"A").value <> "" and cells(i,"A").value = 0 then rows(i).delete
next i
msgbox "&#304;&#351;lem tamamlnd&#305;.."

 

[yesilcan]

değerli hocam bu kodu nasıl uygulayacağım

 

[Orion1]

değerli hocam bu kodu nasıl uygulayacağım

Boş bir modüle aşağıdaki kodu yapıştırınız.Ve alt+F8 tuşuna basarak sil makrosunu çalıştırınız.

sub sil
dim i as long
for i = cells(65536,"A").end(xlup).row to 1 step  -1
    if cells(i,"A").value <> "" and cells(i,"A").value = 0 then rows(i).delete
next i
msgbox "İşlem tamamlndı.."
end sub

 

[yesilcan]

hocam öncelikle ilginiz için sonsuz teşekkürler ederim.fakat ben bu dosyada userform üzerinden çalışacağım için macro ile yapmam pek işimi görmüyor açıkcası.bunu otomatik olarak sütünda "0"sayısını gördüğünde desek ? olurmu acaba?

 

[Orion1]

Tam anlayamadım.Userformdamı çalıştırmak istiyorsunuz.O zaman gene bu kodu boş bir modüle yazın ve kodun çalışmasını istediğiniz satıra

call sil

yazınız.
Yok eğer ben çalışma sayfasına manuel olarak el ile veri gircem 0 yazdığım anda silinsin diyorsanız o zaman gene boş bir modüle bu kodu yazın ve çalışma sayfasının worksheet_change olayına aşağıdaki kodu yazınız.

if intersect(target,[A:A]) is nothing then exit sub
on error resume next
call sil

 

[yesilcan]

hocam affınıza sığınarak birşey söylemek istiyorum.. dosya üzerinde uygularmısınız?

 

[Orion1]

Ankara için yaptım.
Diğerinide size bıraktım.
Dosyayı inceleyiniz.

 

[yesilcan]

hocam çok teşekkür ederim böylece mantığınıda öğrendim.
iyi çalışmalar.

 

[Orion1]

hocam çok teşekkür ederim böylece mantığınıda öğrendim.
iyi çalışmalar.

Rica ederim.
iyi çalışmalar.