commandbutton kod hata

[ocamsul]

Arkadaşlar merhaba;

Private Sub CommandButton1_Click()
Unload Me
sonsat = Sheets("GÜNDÜZ").Cells(65536, 5).End(xlUp).Row + 1
Sheets("GÜNDÜZ").Cells(sonsat, 2) = TextBox111.Value
Sheets("GÜNDÜZ").Cells(sonsat, 3) = TextBox112.Value
MsgBox "Kayıt İşlemi Tamamlanmıştır."
Unload Me
UserForm1.Show
End Sub

arkadaşlar bu kodda sürekli aynı satırlara kayıt yapıyo ama alt alta yapması gerek. yardım edermisiniz arkadaşlar.

 

[Levent Menteşoğlu]

[vb:1:8498f00490]sonsat = Sheets("GÜNDÜZ").Cells(65536, 5).End(xlUp).Row + 1
[/vb:1:8498f00490]
Yukarıdaki satırı aşağıdaki gibi değiştirerek deneyin.
[vb:1:8498f00490]sonsat = Sheets("GÜNDÜZ").Cells(65536, 2).End(xlUp).Row + 1
[/vb:1:8498f00490]

 

[ocamsul]

leventm
ama kayıt etmeye B% ve c5 hücrelerinden başlaması lazım. bu kod; B41 ve c41 den başlatıyo yani boş satır olarak oraları görüyo.

 

[Levent Menteşoğlu]

Sürekli aynı satıra yazması sadece sonsat değerinin sürekli aynı değeri alması ile mümkün olacaktır. Bu değeride 5. yani E sütununda almaktadır. Bu durumda E sütunundaki sonsatır değerini kontrol edin.

 

[ocamsul]

leventm
Eki inceleme ve bu doğrultuda cevap verme imkanınız olursa sevinirim.

 

[Levent Menteşoğlu]

Tablonuzda son satır değerini B veya C sütunundan alırsanız elbette sondaki düzenleyen ve imzası kelimelerini son satır olarak algılayacaktır. Bu durumda yukarıdaki satırı aşağıdaki gibi değiştirin.

[vb:1:f1fec688d3]sonsat = Sheets("GÜNDÜZ").Cells(34, 2).End(xlUp).Row + 1
[/vb:1:f1fec688d3]

 

[ocamsul]

leventm

ellerinize sağlık. teşekkür ederim.