Kayıt

[fatih34]

takıldığım yerde yardım ederseniz sevinirim.
useformda girdiğim verileri alt alta nasıl kayıt yapa bilirim.numara sırası vererek

 

[leumruk]

Merhaba,
Userformdaki kodu aşağıdaki ile değiştirin.

Private Sub CommandButton1_Click()
Sheets("Sayfa1").Select
Sat = Cells(1048576, 1).End(3).Row + 1
If Sat < 3 Then Sat = 3
Cells(Sat, 2) = TextBox1.Text
Cells(Sat, 3) = TextBox2.Text
Cells(Sat, 4) = TextBox3.Text
Cells(Sat + 1, 2) = TextBox4.Text
Cells(Sat + 1, 3) = TextBox5.Text
Cells(Sat + 1, 4) = TextBox6.Text
Cells(Sat + 2, 2) = TextBox7.Text
Cells(Sat + 2, 3) = TextBox8.Text
Cells(Sat + 2, 4) = TextBox9.Text
Cells(Sat, 1) = Sat - 2
Cells(Sat+1, 1) = Sat - 1
Cells(Sat+2, 1) = Sat
End Sub

 

[fatih34]

hocam ilginize teşekkür ederim
kodu değiştirdim ancak a hücresine 1,2,3 diye otomatik sayı atmıyor veri girişi yapılınca

 

[leumruk]

Kodu düzelttim. Bir daha dener misiniz? 2007 olmadığı için ben deneyemiyorum.

 

[fatih34]

Teşekkür ederim hocam ilginizden dolayı denedim
asıl ben otomatik sayı atma diye ayrı bir klasörde yardım istemiştim örnek dosyayıda eklemiştim.bu kodları burada kullana bilirmiyim.bakıp yardımcı olursanız sevinirim allaha emanet olun