Activex Button Makro kod hatası

[kadir78]

İyi günler. Aşağıdaki makro kodunun, kırmızı ile işaretlediğim kısımında "Sayfa1" sayfasına değilde "Bilgiler" sayfasına işlem yapıyor. Dosyayı ekledim. Yardımcı olur musunuz.

http://dosya.pro/download.php?file=e9e795e62bd5d29884de4f452bf25fd3

Private Sub CommandButton9_Click()

Application.ScreenUpdating = False
Application.DisplayAlerts = False
        With Me.CommandButton9
        Select Case .Caption
        Case Is >= "SIRA NO" & Chr(11) & "1 - 500"
            .Caption = "İŞLEM" & Chr(11) & "TAMAM"
            .BackColor = vbGreen
        End Select
    End With

Sheets("Sayfa1").Activate

[COLOR="Red"]x = Worksheets("Kod1").Range("A1")
For i = 3 To 39 Step 4
Cells(i, 1) = " 2017 / " & x
x = x + 1
Next i[/COLOR]

 

[PLİNT]

Merhaba
Kodlar "Bilgiler" in kod sayfasında olduğu ve veri eklenecek hücrelerin başında sayfa adı yazmadığı için kendi sayfasına ekliyor.
Aşağıdaki kırmızı bölüm gibi sayfa adını "s1" olarak tanımlayıp; (aşağıya doğru) bütün döngülerinizin içinde "s1" i ekleyin.

[SIZE="2"]Private Sub CommandButton9_Click()

Application.ScreenUpdating = False
Application.DisplayAlerts = False
        With Me.CommandButton9
        Select Case .Caption
        Case Is >= "SIRA NO" & Chr(11) & "1 - 500"
            .Caption = "İŞLEM" & Chr(11) & "TAMAM"
            .BackColor = vbGreen
        End Select
    End With
    
[COLOR="Red"]Set s1 = Sheets("Sayfa1")
s1.Activate[/COLOR]

x = Worksheets("Kod1").Range("A1")
For i = 3 To 39 Step 4
[COLOR="Red"]s1.[/COLOR]Cells(i, 1) = " 2017 / " & x
x = x + 1
Next i

x = Worksheets("Kod1").Range("A2")
For i = 46 To 82 Step 4
[COLOR="Red"]s1.[/COLOR]Cells(i, 1) = " 2017 / " & x
x = x + 1
Next i 
'....
'[COLOR="Red"]s1[/COLOR].Cells(i, 1) = ..... diğer döngü kodları
'....[/SIZE]

 

[kadir78]

Hocam Çok Teşekkür Ederim. Siz Değerli Hocalarımız olmasa ne yapardık bilmiyorum.
İyiki varsınız. İyi günler.