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ı.
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ı.