HÜCRE İÇİNDE F2 YAPMAK

[meslek5]

Merhaba, hücre içinde kod ile ayrı ayrı f2 yapmak istiyorum. Mesela A1, D5, H2, D1 hücreleri için yardımcı olurmusunuz

 

[Korhan Ayhan]

F2'den sonra ENTER yapılacak mı?

 

[meslek5]

F2'den sonra ENTER yapılacak mı?

evet hocam enter yapılacak

 

[Korhan Ayhan]

Peki amacınız nedir?

 

[meslek5]

F2'den sonra ENTER yapılacak mı?

Korhan Hocam aslında bunu yapma sebebim şu aşağıdaki formülleri kod ile hücrelere yazamıyorum. Bende hücre biçimini metin olarak değiştirip makro kaydet ile aşağıdaki kodları oluşturdum. Ama aynı kodları hücre biçini genel iken hücrelere yazdıramıyorum. Çözüm olarak hücre biçimini metin yaptım ve aşağıdaki kodları hücrelere yazdırdım ve yine kod ile hücre biçimini genel olarak değiştirip o hücrelere f2 yaparak aktif etmek istiyorum

Sheets("Sayfa1").Range("CK3").FormulaR1C1 = "=EĞER(CK2="""";0;CK2-CK1)"
Sheets("Sayfa1").Range("CL3").FormulaR1C1 = "=TOPLA.ÇARPIM(ALTTOPLAM(3;KAYDIR($V$5:$V$10000;SATIR($V$5:$V$10000)-SATIR($V$5);;1));--($V$5:$V$10000>0))"
Sheets("Sayfa1").Range("CM3").FormulaR1C1 = "=TOPLA.ÇARPIM(ALTTOPLAM(3;KAYDIR($Z$5:$Z$10000;SATIR($Z$5:$Z$10000)-SATIR($Z$5);;1));--($Z$5:$Z$10000=DOĞRU))"
Sheets("Sayfa1").Range("CN3").FormulaR1C1 = "=TOPLA.ÇARPIM(ALTTOPLAM(3;KAYDIR($AA$5:$AA$10000;SATIR($AA$5:$AA$10000)-SATIR($AA$5);;1));--($AA$5:$AA$10000=DOĞRU))"
Sheets("Sayfa1").Range("CO3").FormulaR1C1 = "=TOPLA.ÇARPIM(ALTTOPLAM(3;KAYDIR($AB$5:$AB$10000;SATIR($AB$5:$AB$10000)-SATIR($AB$5);;1));--($AB$5:$AB$10000=DOĞRU))"
Sheets("Sayfa1").Range("CP3").FormulaR1C1 = "=TOPLA.ÇARPIM(ALTTOPLAM(3;KAYDIR($AC$5:$AC$10000;SATIR($AC$5:$AC$10000)-SATIR($AC$5);;1));--($AC$5:$AC$10000=DOĞRU))"
Sheets("Sayfa1").Range("CQ3").FormulaR1C1 = "=TOPLA.ÇARPIM(ALTTOPLAM(3;KAYDIR($AD$5:$AD$10000;SATIR($AD$5:$AD$10000)-SATIR($AD$5);;1));--($AD$5:$AD$10000=DOĞRU))"
Sheets("Sayfa1").Range("CR3").FormulaR1C1 = "=TOPLA.ÇARPIM(ALTTOPLAM(3;KAYDIR($AF$5:$AF$10000;SATIR($AF$5:$AF$10000)-SATIR($AF$5);;1));--($AF$5:$AF$10000=""OLUMLU""))"
Sheets("Sayfa1").Range("CS3").FormulaR1C1 = "=TOPLA.ÇARPIM(ALTTOPLAM(3;KAYDIR($AG$5:$AG$10000;SATIR($AG$5:$AG$10000)-SATIR($AG$5);;1));--($AG$5:$AG$10000=""OLUMSUZ""))"
Sheets("Sayfa1").Range("CW3").FormulaR1C1 = "=TOPLA.ÇARPIM(ALTTOPLAM(3;KAYDIR($AI$5:$AI$10000;SATIR($AI$5:$AI$10000)-SATIR($AI$5);;1));--($AI$5:$AI$10000>0))"
Sheets("Sayfa1").Range("CX3").FormulaR1C1 = "=TOPLA.ÇARPIM(ALTTOPLAM(3;KAYDIR($AU$5:$AU$10000;SATIR($AU$5:$AU$10000)-SATIR($AU$5);;1));--($AU$5:$AU$10000=DOĞRU))"
Sheets("Sayfa1").Range("CY3").FormulaR1C1 = "=TOPLA.ÇARPIM(ALTTOPLAM(3;KAYDIR($AV$5:$AV$10000;SATIR($AV$5:$AV$10000)-SATIR($AV$5);;1));--($AV$5:$AV$10000=DOĞRU))"
Sheets("Sayfa1").Range("CZ3").FormulaR1C1 = "=TOPLA.ÇARPIM(ALTTOPLAM(3;KAYDIR($AW$5:$AW$10000;SATIR($AW$5:$AW$10000)-SATIR($AW$5);;1));--($AW$5:$AW$10000=DOĞRU))"
Sheets("Sayfa1").Range("DA3").FormulaR1C1 = "=TOPLA.ÇARPIM(ALTTOPLAM(3;KAYDIR($AX$5:$AX$10000;SATIR($AX$5:$AX$10000)-SATIR($AX$5);;1));--($AX$5:$AX$10000=DOĞRU))"
Sheets("Sayfa1").Range("DB3").FormulaR1C1 = "=TOPLA.ÇARPIM(ALTTOPLAM(3;KAYDIR($AY$5:$AY$10000;SATIR($AY$5:$AY$10000)-SATIR($AY$5);;1));--($AY$5:$AY$10000=DOĞRU))"

 

[meslek5]

Buda hücre biçimi genel iken makro kaydet ile hücre içine girip çıkarak oluşturulan formüller ama işte ne garip ki aynı formülü makro ile tekrar yazamıyorum hata veriyor.

Range("CK3").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C="""",0,R[-1]C-R[-2]C)"
Range("CL3").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT(SUBTOTAL(3,OFFSET(R5C22:R10000C22,ROW(R5C22:R10000C22)-ROW(R5C22),,1)),--(R5C22:R10000C22>0))"
Range("CM3").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT(SUBTOTAL(3,OFFSET(R5C26:R10000C26,ROW(R5C26:R10000C26)-ROW(R5C26),,1)),--(R5C26:R10000C26=TRUE))"
Range("CN3").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT(SUBTOTAL(3,OFFSET(R5C27:R10000C27,ROW(R5C27:R10000C27)-ROW(R5C27),,1)),--(R5C27:R10000C27=TRUE))"
Range("CO3").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT(SUBTOTAL(3,OFFSET(R5C28:R10000C28,ROW(R5C28:R10000C28)-ROW(R5C28),,1)),--(R5C28:R10000C28=TRUE))"
Range("CP3").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT(SUBTOTAL(3,OFFSET(R5C29:R10000C29,ROW(R5C29:R10000C29)-ROW(R5C29),,1)),--(R5C29:R10000C29=TRUE))"
Range("CQ3").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT(SUBTOTAL(3,OFFSET(R5C30:R10000C30,ROW(R5C30:R10000C30)-ROW(R5C30),,1)),--(R5C30:R10000C30=TRUE))"
Range("CR3").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT(SUBTOTAL(3,OFFSET(R5C32:R10000C32,ROW(R5C32:R10000C32)-ROW(R5C32),,1)),--(R5C32:R10000C32=""OLUMLU""))"
Range("CS3").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT(SUBTOTAL(3,OFFSET(R5C33:R10000C33,ROW(R5C33:R10000C33)-ROW(R5C33),,1)),--(R5C33:R10000C33=""OLUMSUZ""))"
Range("CW3").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT(SUBTOTAL(3,OFFSET(R5C35:R10000C35,ROW(R5C35:R10000C35)-ROW(R5C35),,1)),--(R5C35:R10000C35>0))"
Range("CX3").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT(SUBTOTAL(3,OFFSET(R5C47:R10000C47,ROW(R5C47:R10000C47)-ROW(R5C47),,1)),--(R5C47:R10000C47=TRUE))"
Range("CY3").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT(SUBTOTAL(3,OFFSET(R5C48:R10000C48,ROW(R5C48:R10000C48)-ROW(R5C48),,1)),--(R5C48:R10000C48=TRUE))"
Range("CZ3").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT(SUBTOTAL(3,OFFSET(R5C49:R10000C49,ROW(R5C49:R10000C49)-ROW(R5C49),,1)),--(R5C49:R10000C49=TRUE))"
Range("DA3").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT(SUBTOTAL(3,OFFSET(R5C50:R10000C50,ROW(R5C50:R10000C50)-ROW(R5C50),,1)),--(R5C50:R10000C50=TRUE))"
Range("DB3").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT(SUBTOTAL(3,OFFSET(R5C51:R10000C51,ROW(R5C51:R10000C51)-ROW(R5C51),,1)),--(R5C51:R10000C51=TRUE))"
Range("DB4").Select

 

[Korhan Ayhan]

Deneyiniz.

Sheets("Sayfa1").Range("CK3").FormulaLocal = "=EĞER(CK2="""";0;CK2-CK1)"