Vba ile sayfaya r1c1 stili veya normal stille formül yazdırmak.

[a_self_lion]

....
...
QLText = SQLText & " WHERE ADFY_DP = '38' AND ADFY_FY1 <> 0 " & vbCrLf


' recortsete al
Set rst.DataSource = SQLCON.Execute(SQLText)

'set e bak bişey varmı yokmudiye
Do Until rst.EOF
' 1 den başla birer birere verileri
For i = 1 To rst.RecordCount Step 1
'gelen veriyi s satırının 9 inci sutunundaki hücreye rst nin 3 üncü alanının değerini yaz
Cells(i + 6, 1) = "38" ' 38 YAZ
Cells(i + 6, 2) = rst.Fields(2) ' 
Cells(i + 6, 3) = rst.Fields(3) ' 
Cells(i + 6, 4) = rst.Fields(4) '
Cells(i + 6, 5) = rst.Fields(0) ' 
Cells(i + 6, 6) = rst.Fields(1) ' 
Cells(i + 6, 7) = rst.Fields(5) '  FİYATI

Cells(i + 6, 11) = rst.Fields(6) ' ADSFIY_FIY1  SATIŞ FİYATI

'Cells(i + 6, 8) = FormulaR1C1 = "=(((R[i+6]C[6]/100)*R[i+6]C[3])+R[i+6]C[6])"
Cells(i + 6, 8) = Formula = "=(G7/100)*D7+G7"

'bir sonraki satıra geç

Yukarıda ki kodlarımda formula r1c1 stilinde de normal stilde de formül yazdırmak istedim fakat bana hep excel sayfamda YANLIŞ ifadesi çıktı nerde yanlış yapıyor olabilirm.

 

[Levent Menteşoğlu]

"Formula" kelimesinden önce "=" işareti yerine "." işareti koyun.

 

[a_self_lion]

OLmadı yine aynısını veriyor teşekkür ederim sayın menteşoğlu ama yine olmadı

 

[a_self_lion]

Olmadı Arkadaşlar Lütfen Yardım edermsisiniz. Rica etsem.

 

[Korhan Ayhan]

Selamlar,

Yazım hatası yapıyor olabilirmisiniz.

Cells(i + 6, 8).Formula = "=(G7/100)*D7+G7"