Textboxları sayfa3e kaydetme

[osmanfenerli1907]

Merhabalar
Ben userform1 deki 12 tane textboxları commandbutton1 e tıklayınca sayfa3 de a1:a12 kaydetsin.Commandbutton1 e tekrar tıklayınca bir alt satıra kaydetsin.
Umarım sorumu anlayabilmişsinizdir..
İyi akşamlar...

 

[Recep İpek]

Aşağıdaki linkte bununla ilgili örneği bulabilirsiniz.

http://www.excel.web.tr/showthread.php?t=19472

 

[osmanfenerli1907]

SY RİPEK çok teşekkür ediyorum...

 

[Korhan Ayhan]

Selamlar,

Sn. ripek sorunuzu cevaplamış ama alternatif olması açısından aşağdaki koduda kullanabilirsiniz.

Private Sub CommandButton1_Click()
    For X = 1 To 12
    If Controls("TextBox" & X).Value = Empty Then
    MsgBox ("Kayıt işlemi için gerekli tüm bölümlere veri girmelisiniz." _
    & Chr(10) & "Lütfen boş bıraktığınız bölümleri doldurunuz."), vbExclamation, "DİKKAT !"
    Controls("TextBox" & X).SetFocus
    Exit Sub
    End If
    Next X

    Set S3 = Sheets("Sayfa3")
    
    Son = S3.Range("A65536").End(3).Row
    If Son = 1 Then
    Son = 1
    Else
    Son = Son + 1
    End If
    
    For Y = 0 To 11
    S3.Cells(Son + Y, 1) = Controls("TextBox" & Y + 1).Value
    Next Y
    
    For Z = 1 To 12
    Controls("TextBox" & Z).Value = Empty
    TextBox1.SetFocus
    Next Z
    MsgBox "Verileriniz kaydedilmiştir.", vbInformation
End Sub

 

[osmanfenerli1907]

Süpersiniz hocam
çok teşekkür ederim
sağolun

 

[osmanfenerli1907]

sayın hocam sorumu yanlış anlattım galiba.Kayıtları yanyana kaydedecek aşağıdan yukarı değil.Yardımcı olursanız sevinirim..
iyi geceler