Hücre harfini yazdırma tırnak problemi var sanırım ?

[blackkugu]

Sayac = Sayac + 1
If Sayac = 1 Then
Sayac = "K"
ElseIf Sayac = 2 Then
Sayac = "M"
ElseIf Sayac = 3 Then
Sayac = "N"
End If
MsgBox "SAYAC SAY " & Sayac


For j = 1 To 12
Cells(j, """ & Sayac & """).Formula = "=Date(TakvimYılı," & j & "," & tarih_formati & ")"
Next j

Bu şekilde yapmama rağmen Cells(j, """ & Sayac & """).Formula = "=Date(TakvimYılı," & j & "," & tarih_formati & ")" bu kod satırında hata alıyorum. Sayac 2 olunaca M hücresini tanımalasın ve Sayac tanımlı alanda M hücre adı geçince işlemi orada yapsın istedim. Beceremedim . """ tırnak atmama rağmen olmadı.

 

[Ömer]

Merhaba,

Deneyiniz.

Cells(j, Sayac).Formula = "=Date(" & TakvimYılı & "," & j & "," & tarih_formati & ")"

.

 

[blackkugu]

Çok tşk ederim oldu.