Şartlı Eğer Formulu

[delipoyraz5353]

Şimdiden yardım edenlere teşekkürler
Excelde bir tablom var ve en son olarak bu kodu içerek makroyu çalıştırmak istiyorum
Q9 hücresindeki değer 0 olursa A9 ve B9 hüçresine 0 yazsın diğer şekilde hücredeki değere dokunmasın
Bunu aşaği doğru Q9dan Q750'ye kadar devam ettireceğim

 

[Tevfik_Kursun]

Merhaba,
A9 ve B9 da formülle değer geliyorsa, bu formülün önüne, "=" ten sonra

EĞER(Q9=0;0;

ifadesini ekleyip satırın sonunda da parantezi kapayın, kafi.
Kolay gelsin

 

[delipoyraz5353]

Tevfik bey Denedim ama olmadı.Q9 değerini 0 yapınca 0 1 yapıncada 0 oluyor birde bunu makroyla nasıl halledebilirim. Çünkü aşaği doğru çokça satır var. Makroda denedim ama başaramadim Q9'dan Q750'ye kadar değeri 0 olduğu hüçrelerde ona denk gelen satırdaki A ve B hüçrelerine 0 yazmasını istiyorum

 

[delipoyraz5353]

Yardım edecek kimse yok mu arkadaşlar

 

[ASLAN7410]

Merhaba ekteki dosya gibi istediniz?

http://s6.dosya.tc/server3/senqnf/Ornek.xlsx.html

 

[ÖmerBey]

Merhaba,
Umarım isteğinizi anlamışımdır; aşağıdaki kodu deneyiniz.

Sub Kod()
For a = 9 To [COLOR="Red"]750[/COLOR]
    If Cells(a, "Q") <> "" And Cells(a, "Q") = 0 Then Range("A" & a & ":B" & a) = 0
Next
End Sub