Makro ile Aktif Hücreye Formül Yazdırma

[muratnazli]

Selamlar,

ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=SUM(E4:E78)"

Kodu ile aktif hücreye "=SUM(E4:E78)" formülünü yazdırdığımda Excel saydfasındaki formül "=SUM('E4:E78')" şekle dönüşüyor. Ne yapmam gerektiği konusunda yardımcı olursanız sevinirim.

Teşekkürler.

 

[veyselemre]

ActiveCell.Offset(0, 1).Select
ActiveCell.Formula = "=SUM(e4:e78)"

 

[snx111]

=PARÇAAL(YERİNEKOY(A3;"$";"");BUL("!";YERİNEKOY(A3;"$";""))+1;UZUNLUK(YERİNEKOY(A3;"$";""))-BUL("!";YERİNEKOY(A3;"$";"")))

bende bu kodu yazdığımda dolar işaretlerini invalid karakter diye tanımlıyor

Range("a4").formula = "=PARÇAAL(YERİNEKOY(A3;"$";"");BUL("!";YERİNEKOY(A3;"$";""))+1;UZUNLUK(YERİNEKOY(A3;"$";""))-BUL("!";YERİNEKOY(A3;"$";"")))"

 

[Huseyinkis]

Selamlar,

ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=SUM(E4:E78)"

Kodu ile aktif hücreye "=SUM(E4:E78)" formülünü yazdırdığımda Excel saydfasındaki formül "=SUM('E4:E78')" şekle dönüşüyor. Ne yapmam gerektiği konusunda yardımcı olursanız sevinirim.

Teşekkürler.

Excel hangi dilde kullanıyorsunuz?

 

[mmuratakgul]

Selamlar,

Benim sorunum toplamı alacağım satır sayısının değişken olması. Formulü aşağıdaki gibi bir fonksyona koydum. Fakat formülü koyduğum hücre değeri 0 gözüküyor. Ekran görüntüsünü de eke koydum

Function toplama(kolon_no, ilksatir, sonsatir)
Dim i As Integer

If kolon_no = 12 Then ceviri = "L"
If kolon_no = 13 Then ceviri = "M"
If kolon_no = 14 Then ceviri = "N"

toplama = "=SUM(" & ceviri & ilksatir & ":" & ceviri & sonsatir & ")"

End Function