satırı düzgün yazma hakk.

[GursoyC]

Bir makrom var. son kodları aşağıdaki gibi.
yalnız altı çizili satırda hata alıyorum. tek tırnak - çift tırnak, formülleri İngilizce - Türkçe, her türlü şeyi denedim hatayı bulamıyorum.
Yardımcı olur musunuz.


Range("K9,L3,M6").Select
Selection.ClearContents
Range("L3").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("M6").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=IF(K9="" ; "" ;IF(OR(K9=""Elden satış"";K9=""Siteden havale"");""KAPALI"";""AÇIK""))"
Range("k3").Select

 

[mancubus]

tırnak içinde tırnak işaretinin kendini kullandığımızda VBA'nin bunu anlaması için her bir tırnak için iki adet yazıyoruz. yani "" yerine """"

 

[GursoyC]

sayın mancubus, cevabınız için teşekkür ederim.
Ancak tüm tırnakları çift tırnak ile denememe rağmen yine kabul etmiyor.
şu şekle çevirdim ancak yine hata alıyorum.

ActiveCell.FormulaR1C1 = "=IF(K9="""";"""";IF(OR(K9=""Elden satış"";K9=""Siteden havale"");""KAPALI"";""AÇIK""))"

 

[PLİNT]

Merhaba
Formül çubuğuna yazıp; bir başka hücreye makro kaydet eşliğinde kopyalarsanız aşağıdaki sonuç çıkıyor.

[SIZE="2"]ActiveCell.FormulaR1C1 = "=IF(R9C11="""","""",IF(OR(R9C11=""Elden satış"",R9C11=""siteden havale""),""KAPALI"",""AÇIK""))" [/SIZE]

 

[GursoyC]

çok teşekkür ederim sayın Plint.
sonunda düzeldi
saygılar,