Excel Açılırken Belli Satırlara Kod gönderilmesi

[yenilik025]

Merhabalar.

EXCEL AÇILIRKEN MACRO İLE Belli Satırlara Kod
BELLİ KODLAR GÖNDERMEK İSTEDİĞİMDE

5.ŞIK HARİÇ

" TIRNAK İŞARETİNDE SORUN YAŞIYORUM BUNU NASIL HALLEDEBİLİRİM.


1 Sheets("A").Range("b1") = EĞER(a1=";";(BUGÜN()))
2 Sheets("B").Range("c1") = EĞER(a1-b2>16;doğru";"yanlış")"
3 Sheets("A").Range("d1") = EĞERSAY(SAYFA2!G$2:G$500;SAYFA1!C2)
4 Sheets("B").Range("e1") = EĞERSAY(SAYFA2!C$2:C$1000;SAYFA1!C2)
5 Sheets("A").Range("a1") = "MERHABA"

 

[PLİNT]

Merhabalar.

EXCEL AÇILIRKEN MACRO İLE Belli Satırlara Kod
BELLİ KODLAR GÖNDERMEK İSTEDİĞİMDE

1 Sheets("A").Range("b1") = EĞER(a1=";";(BUGÜN()))
2 Sheets("B").Range("c1") = EĞER(a1-b2>16;doğru";"yanlış")"
3 Sheets("A").Range("d1") = EĞERSAY(SAYFA2!G$2:G$500;SAYFA1!C2)
4 Sheets("B").Range("e1") = EĞERSAY(SAYFA2!C$2:C$1000;SAYFA1!C2)
5 Sheets("A").Range("a1") = "MERHABA"

Merhaba
Makro kaydet ile çıkan sonuçları ekleyebilirsiniz
Şöyle

Sheets("A").Range("b1").FormulaR1C1 = "=IF(RC[-2]="";"",(TODAY()))"
Sheets("B").Range("c1").FormulaR1C1 = "= IF(RC[-2]-R[1]C[-1]>16,""doğru"",""yanlış"")"
Sheets("A").Range("d1").FormulaR1C1 = "= COUNTIF(Sayfa2!R2C[1]:R500C[1],Sayfa1!R[-1]C[-3])"
Sheets("B").Range("e1").FormulaR1C1 = "= COUNTIF(Sayfa2!R2C[-3]:R1000C[-3],Sayfa1!R[-2]C[-3])"

 

[yenilik025]

Hocam Teşekkürler kod için şöyle yaptım tüm arkadaşlara da tavsiye ederim

öncelikle excelde formülü kestim sonra yapıştıracağım yere geçerek
makro kaydet dedim sonra visual basıc kısımından kontrol ettiğimde gerekli yerleri düzelttim teşekür ederim.
arkadaşlara da çözüm olabilir.