global değişken tanımlama ve ilk değer verme

[manevra]

selam arkadaşlar,

bir uygulama için bir userform üzerindeki butona tikladiğimda form üzerindeki combobox ve textbox değerlerini çalışma sayfasındaki c ve d sütunlarının (mesela) 1. satirina yazip ikinci bir kayıt için alt satira gecmesini yapmam gerekiyor. bunun için aşağıdaki kodu yazdım ama satir değişkenine ilk değer veremediğimden hata alıyorum.
kısacası, satır değişkenini nasil global olarak tanımlar ve ilk değer olarak (mesela) 10 değerini atayabilirim.

Private Sub CommandButton3_Click()
Sheets("Sayfa3").Select
Cells(satir, "c") = ComboBox1.Text
Cells(satir, "d") = TextBox2.Text
satir = satir + 1
End Sub

iyi çalışmalar...

 

[Kemal Demir]

Private Sub CommandButton3_Click()
Sheets("Sayfa3").Select
'son satırı a kolonunun en alt satırı baz alınmıştır
satir=[a65536].End(3).Row
Cells(satir, "c") = ComboBox1.Text
Cells(satir, "d") = TextBox2.Text
End Sub

İyi akşamlar.

 

[manevra]

ya tam olarak anlayamadim cevabini
acıklama olsun diye örnek bir dosya ekledim

yapmak istediğim commandbutton1 e her bastigimda textboxlardaki degerleri (10. satirdan baslayarak) sayfa 1 deki a, b, c sutunlarina ekleyip bir alt satira gecmesi.

tesekkürler

 

[Kemal Demir]

Private Sub CommandButton3_Click()
Sheets("Sayfa3").Select
'son satırı a kolonunun en alt satırı baz alınmıştır
satir=WorksheetFunction.CountA (ActiveSheet.Range("a10:a65536")) + 1
Cells(satir, "c") = ComboBox1.Text
Cells(satir, "d") = TextBox2.Text
End Sub

İyi akşamlar.

10 satır itibari ile Düzeltilmiştir.