if formülü neden olmaz...

[GursoyC]

Arkadaşlar merhaba,
tam 2,5 saattir bir inatla 1 satır koddaki sorunu çözmeye uğraşıyorum.
Öyle ki, msgbox ile kodu yani işlemin sonucunu kontrol ediyorum, onda bile hata olmamasına rağmen işlemde hata veriyor.

Ekteki dosyada da görüleceği üzere, düğmeye basıldığında E2 hücresine şu formülü yazmasını sağlamaya çalışıyorum. Yardımcı olur musunuz?

=eğer(d2<a1+1;1;0)

 

[ÖmerFaruk]

Neden bunu yapmaya çalışıyorsunuz?
Aşağıdkai hali işinizi görmüyor mu?

Private Sub CommandButton1_Click()
Range("E2:E3") = 0
If Range("D2") < Range("A1") + 1 Then Range("E2") = 1
If Range("D3") < Range("A1") + 1 Then Range("E3") = 1
End Sub

 

[GursoyC]

Maalesef görmüyor.
baside indirgemek için yukarıdaki şekilde gönderdim.
Dosyam çok büyük ve karmaşık. Bu kod satırında birkaç adres var ve adresler stabil değil. Yani bu kod satırlarından önce hücre adres tanımlamaları var.
Sütunların yerleri değiştiğinde de formülün doğru işlemesi için Range değil cell tanımlaması yapmak durumundayım.