Basit bir userform

[spasmex97]

merhaba öncelikle, görüşmeye dair bilgileri kısaca not edebileceğim bir excel tablosu oluşturmaya çalışıyorum, basit bir userform tasarladım gerekli bir kaç bilgi girdikten sonra excel sayfasına kaydetmek istiyorum fakat, kaydet butonuna bastığımda hiçbir tepki vermiyor

Private Sub CommandButton1_Click()
Dim sonsatir As Long

sonsatir = Sayfa3.Cells(Rows.Count, "a").End(xlUp).Row + 1
Sayfa3.Cells(sonsatir, 1) = Date
Sayfa3.Cells(sonsatir, 2) = ComboBox1.Text
Sayfa3.Cells(sonsatir, 7) = ComboBox2.Text
Sayfa3.Cells(sonsatir, 8) = ComboBox3.Text
Sayfa3.Cells(sonsatir, 10) = ComboBox4.Text
Sayfa3.Cells(sonsatir, 9) = TextBox2.Text

End Sub

nerede hata yapıyorum acaba

 

[AdemCan]

Merhaba, kodda hata yok. Sayfa3 e kayıt yapar.
Başka bir sayfa üzerinde userformu çalıştırıyor olabilirsiniz.

 

[spasmex97]

Merhaba, kodda hata yok. Sayfa3 e kayıt yapar.
Başka bir sayfa üzerinde userformu çalıştırıyor olabilirsiniz.

Tam anlayamadım hocam, nasıl yani başka sayfa üzerinde çalıştırıyor olabilirim?

 

[AdemCan]

Sayfa3 dışında herhangi bir sayfa olabilir.
Örnek bir dosya paylaşmanız mümkün mü?

 

[spasmex97]

Sayfa3 dışında herhangi bir sayfa olabilir.
Örnek bir dosya paylaşmanız mümkün mü?

FIRMA_NUMUNE_TAKIP_kopya.xlsm dosyasını indir - download

FIRMA_NUMUNE_TAKIP_kopya.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

dışarı çıkmıştım kusura bakmayın

 

[AdemCan]

Sayfayı tablo olarak biçimlendirdiğiniz için son satır tablonun bitiminden başlıyor.
Aşağıdaki kodlar ile değiştiriniz.

Private Sub CommandButton1_Click()
Dim ws As Worksheet

Set ws = Sheets("ISLEMLER")
sonsatir = Cells(Rows.Count, "a").End(xlUp).Row

With ws
sonsatir = .Range("A2:A" & sonsatir).Find("", .Range("A" & sonsatir), xlValues, xlByRows, xlPrevious).Row
    .Cells(sonsatir, 1) = TextBox1.Text
    .Cells(sonsatir, 2) = ComboBox1.Text
    .Cells(sonsatir, 7) = ComboBox2.Text
    .Cells(sonsatir, 8) = ComboBox3.Text
    .Cells(sonsatir, 10) = ComboBox4.Text
    .Cells(sonsatir, 11) = ComboBox5.Text
    .Cells(sonsatir, 9) = TextBox2.Text
End With
End Sub

 

[spasmex97]

Sayfayı tablo olarak biçimlendirdiğiniz için son satır tablonun bitiminden başlıyor.
Aşağıdaki kodlar ile değiştiriniz.

Private Sub CommandButton1_Click()
Dim ws As Worksheet

Set ws = Sheets("ISLEMLER")
sonsatir = Cells(Rows.Count, "a").End(xlUp).Row

With ws
sonsatir = .Range("A2:A" & sonsatir).Find("", .Range("A" & sonsatir), xlValues, xlByRows, xlPrevious).Row
    .Cells(sonsatir, 1) = TextBox1.Text
    .Cells(sonsatir, 2) = ComboBox1.Text
    .Cells(sonsatir, 7) = ComboBox2.Text
    .Cells(sonsatir, 8) = ComboBox3.Text
    .Cells(sonsatir, 10) = ComboBox4.Text
    .Cells(sonsatir, 11) = ComboBox5.Text
    .Cells(sonsatir, 9) = TextBox2.Text
End With
End Sub

hocam kod çalışıyor fakat biraz açıklayabilir misiniz?

sonsatir = .Range("A2:A" & sonsatir).Find("", .Range("A" & sonsatir), xlValues, xlByRows, xlPrevious).Row

burayı anlayamadım