formdan veri girişi !!!!!

[lansor]

öncelikle herkese hayırlı akşamlar arkadaşlar benm sorunum şu :

şimdi benm bi tablom var orda bi kaç veri girişi yapıcam o çalışma sayfasına

adı,soyadı,tc no hücrelerine sırayla atacak yani ben sadece textboxa gircem o değerleri örn a1 sonra a2 sonra a3.. şeklinde sırada hangisi bpşsa atacak nasıl yapabilirim...

teşekkürler..

 

[cebir]

merhaba.
bir buton_click
Sheets("Sayfa1").Select
say = WorksheetFunction.CountA([a1:a65536])
Cells(say + 1, 1) = TextBox1
Cells(say + 1, 2) = TextBox2
Cells(say + 1, 3) = TextBox3
End Sub

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
Dim sat As Long, i As Byte
Sheets("Sayfa1").Select
If TextBox1.Value = "" Then
    MsgBox "Adı Soyadı boş olamaz..!!", vbCritical, "UYARI"
    TextBox1.SetFocus
    Exit Sub
End If
sat = Cells(65536, "A").End(xlUp).Row + 1
If sat >= 65536 Then
    MsgBox "Sayfa doldu.Başka Kayıt yapamazsınız..!!", vbCritical, "DİKKAT"
    Exit Sub
End If
Cells(sat, "A").Select
For i = 1 To 3
    Cells(sat, i).Value = Controls("TextBox" & i).Value
    Controls("Textbox" & i).Value = Empty
Next i
MsgBox "Kayıt Yapıldı..", vbOKOnly + vbInformation, "KAYIT"
TextBox1.SetFocus
End Sub

 

[lansor]

ellerin dert görmesn
çok saolasın
ellerinize sağlık...

 

[lansor]

ya bi sorum daha olacak bunu 15 taneye nası dökebilirim yani 15 textboxlı oplacak teşekkürler..

 

[lansor]

orion2 kardes saolasın dediğim mantık buyduda bunu 15 textbox şeklinde nasıl yapabilirim acaba..

 

[Orion1]

orion2 kardes saolasın dediğim mantık buyduda bunu 15 textbox şeklinde nasıl yapabilirim acaba..

for i = 1 to 3 yerine for i = 1 to 15 yazınız.
Ancak sırası ile textbox1 ,textbox2 ,.... ,textbox15 şeklinde textboxlarınızın olması lazım.