Makro ile formül yazdırma

[Carpintero]

Merhaba arkadaşlar.

For i 3 to 10
If Cells(i,"a")<>""Then
Cells(i,"E")...........................
End If:Next i

Aşağıdaki formülü yukarıdaki kodun noktalı yerine yerleştirmek istiyorum
lakin bir türlü çalışmıyor. Bu hususta yardımlarınızı bekliyorum.
3. satırdan 10 satıra kadar aşağıda ki formülü yazdırmalıyım.
teşekkürler

=EĞER(VE(B3="A";C3=1);"ok";EĞER(VE(B3=1;C3="A");"ok";""))

 

[çıtır]

Deneyiniz.

Sub formülyaz1()
For i = 3 To 10
If Cells(i, "a") <> "" Then
Cells(i, "E").FormulaLocal = "=EĞER(VE(B" & i & " =" & """A""" & ";C" & i & " =1);" & """ok""" & ";EĞER(VE(B" & i & "=1;C" & i & "=" & """A""" & ");" & """ok""" & ";""""))"
End If: Next i
End Sub

 

[Carpintero]

Merhaba Sayın çıtır
=EĞER(VE(B3="A";C3=1);"ok";EĞER(VE(B3=1;C3="A");"ok";""))
=EĞER(VE(B4="A";C4=1);"ok";EĞER(VE(B4=1;C4="A");"ok";""))
=EĞER(VE(B5="A";C5=1);"ok";EĞER(VE(B5=1;C5="A");"ok";""))
=EĞER(VE(B6="A";C6=1);"ok";EĞER(VE(B6=1;C6="A");"ok";""))

formüller uygulandığında yukarıdaki gibi satır noları artacak
(döngü sayısı boyunca )
acaba bu düzeltmeyi yapabilir misiniz ?

 

[çıtır]

Merhaba Sayın çıtır
=EĞER(VE(B3="A";C3=1);"ok";EĞER(VE(B3=1;C3="A");"ok";""))
=EĞER(VE(B4="A";C4=1);"ok";EĞER(VE(B4=1;C4="A");"ok";""))
=EĞER(VE(B5="A";C5=1);"ok";EĞER(VE(B5=1;C5="A");"ok";""))
=EĞER(VE(B6="A";C6=1);"ok";EĞER(VE(B6=1;C6="A");"ok";""))

formüller uygulandığında yukarıdaki gibi satır noları artacak
(döngü sayısı boyunca )
acaba bu düzeltmeyi yapabilir misiniz ?

#2 nolu ileti isteğinize göre düzeltildi.

 

[Carpintero]

Çok teşekkür ediyorum
Elinize sağlık sayın çıtır.

 

[çıtır]

Çok teşekkür ediyorum
Elinize sağlık sayın çıtır.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.