Makro'da FormÜl İÇerİsİnde If İfadesİ

[kazim_ahmet_hasim]

Merhaba arkadaşlar;

Sub makro1

Dim kappa_son As Range

Set kappa_son = Sayfa2.Range(Cells(2, 16), Cells(2, 16))
kappa_son.Formula = "=EĞER(" & "T2=" & 0 & ";" & 5 & ";" & 3 & ")"

End Sub

Arkadaşlar yukarıdaki kodda eğer ifadesini hücre içinde oluşmuş şekilde bulamıyorum nerde hata yapıyorum yardım edebilir misiniz?

Saygılarımla;

 

[Ferhat Pazarçevirdi]

Aşağıdaki gibi deneyiniz ...

Sub makro1()
    Dim kappa_son As Range
    
    Set kappa_son = Sayfa2.Cells(2, 16)
    
    kappa_son.Formula = "=IF(T2=0,6,3)"
 
[COLOR=darkgreen]    '------------------------------------------
[B]    'VEYA aynı formül şu şekillerde de yazılabilirdi ...[/B]
    '------------------------------------------
    'kappa_son.FormulaR1C1 = "=IF(RC[4]=0,6,3)"
    'kappa_son.FormulaLocal = "=EĞER(T2=0;6;3)"[/COLOR]
 
End Sub

 

[kazim_ahmet_hasim]

Aşağıdaki gibi deneyiniz ...

Sub makro1()
    Dim kappa_son As Range
    
    Set kappa_son = Sayfa2.Cells(2, 16)
    
    kappa_son.Formula = "=IF(T2=0,6,3)"
 
[COLOR=darkgreen]    '------------------------------------------
[B]    'VEYA aynı formül şu şekillerde de yazılabilirdi ...[/B]
    '------------------------------------------
    'kappa_son.FormulaR1C1 = "=IF(RC[4]=0,6,3)"
    'kappa_son.FormulaLocal = "=EĞER(T2=0;6;3)"[/COLOR]
 
End Sub

Teşekkürler hocam benim excel Türkçe olduğu için FormulaLocal ' ı kullanıp Eğer yazınca çalıştı. İyi ki sizin gibi hocalar var da biz de Excelimizi biraz olsun geliştirebilme imkanı buluyoruz.

İyi çalışmalar