Textbox dan hücreye seri giriş yapmak

[tunç78]

iyi akşamlar herkese. userformda textbox a veri girdiğimde istediğim hücreye yazdıktan sonra textbox un temizlenip tekrardan veri girdiğimde bir alt satıra yazmasını istiyorum. aklım çok karıştı. lütfen bilen arkadaşlar yardımcı olursa çok sevinirim. çalışmamıda ekte ekliyorum.

 

[asi_kral]

Merhaba
Kaydet Butonundaki kodu bununla değiştirip dener misiniz_?

Private Sub CommandButton3_Click()
Dim STR As Long, TXT As Long
For TXT = 1 To 9
If Controls("Textbox" & TXT) = Empty Then
MsgBox "Boş Bırakmayınız"
Exit Sub
End If: Next
STR = Range("B" & Rows.Count).End(xlUp).Row
If STR < 7 Then STR = 7
If STR > 21 Then MsgBox "Boş Yer Kalmadı": Exit Sub
Range("D3") = CDate(TextBox1.Value): Range("D4") = TextBox2.Value
Range("B5") = TextBox3.Value: Range("C28") = TextBox4.Value
Range("C30") = TextBox5.Value: Range("D29") = TextBox6.Value
Range("D" & STR) = TextBox9.Value: Range("B" & STR) = TextBox7.Value
Range("C" & STR) = TextBox8.Value
TextBox7 = Empty: TextBox8 = Empty: TextBox9 = emty
End Sub

Userformun kod bölümüne

Private Sub CommandButton1_Click()
Unload UserForm1
Sheets("Sayfa1").Select
Range("A1").Select
Application.Visible = True
End Sub
Private Sub CommandButton3_Click()
Dim STR As Long, TXT As Long
For TXT = 1 To 9
If Controls("Textbox" & TXT) = Empty Then
MsgBox "Boş Bırakmayınız"
Exit Sub
End If: Next
STR = Range("B" & Rows.Count).End(xlUp).Row
If STR < 7 Then STR = 7
If STR > 21 Then MsgBox "Boş Yer Kalmadı": Exit Sub
Range("D3") = CDate(TextBox1.Value): Range("D4") = TextBox2.Value
Range("B5") = TextBox3.Value: Range("C28") = TextBox4.Value
Range("C30") = TextBox5.Value: Range("D29") = TextBox6.Value
Range("D" & STR) = TextBox9.Value: Range("B" & STR) = TextBox7.Value
Range("C" & STR) = TextBox8.Value
TextBox7 = Empty: TextBox8 = Empty: TextBox9 = emty
End Sub

Private Sub CommandButton4_Click()
cevap = MsgBox(" Program Kapanacak, Kapansın mı ? ", vbYesNo, "")
If cevap = vbNo Then Exit Sub
Unload Me
kullanici = Application.UserName
SAAT = Format(Now, "hh:mm:ss")
tarih = Format(Date, "d mmmm yyyy dddd")
sor = MsgBox("" & Chr(10) & _
"***************HOŞÇAKAL****************" & Chr(10) & Chr(10) & _
"Tarih : " & tarih & Chr(10) & Chr(10) _
& "Saat : " & SAAT & Chr(10) & Chr(10) _
& "" & Chr(10) & Chr(10) & _
"YAPILAN DEĞİŞİKLİKLER KAYIT EDİLSİN Mİ?", 4, "")
If sor = vbYes Then
ActiveWorkbook.Save
ActiveWorkbook.Close
Else
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.Quit
End If
Unload UserForm1
Workbooks.Close
End Sub
Private Sub CommandButton2_Click()
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
End Sub
Private Sub UserForm1_Initialize()
    Call Baglan
    no = bag.Execute("select top 1 [NO] from [VERI_TABANI$] order by [NO] desc").fields(0).Value
    TextBox2.Value = no + 1
End Sub

Bu kodları yapıştırırsanız daha iyi olur.

 

[tunç78]

Asi Kral çok Teşekkür ediyorum. ilgilendiğin için ve de zaman ayırdığın için. tam anlatmak istediğim aslında kaydet dediğimde son üç textbox birinci kaleme yazacak aynı textboxlara tekrar girdiğimde ve kaydet dediğimde ikinci kaleme yazacak ve böyle 15 kalemlik yer ayırdım. aslında ben visual basici daha önce bilmiyordum. bu sitedeki foruma baka baka birşeyler yapmaya çalıştım. ama artık aklım çok karıştı. bu nedenle yardım almak için konu açma gereğinde bulundum. birde kaç kalem malzeme yazdıysam, sayfanın altında ''.... kalem malın/hizmetin belirtilen'' kısmındaki ... yere rakamla yazılabilirmi, bu mümkünmü. çalışmamın son halinide göndermek istiyorum.

 

[asi_kral]

Asi Kral çok Teşekkür ediyorum. ilgilendiğin için ve de zaman ayırdığın için. tam anlatmak istediğim aslında kaydet dediğimde son üç textbox birinci kaleme yazacak aynı textboxlara tekrar girdiğimde ve kaydet dediğimde ikinci kaleme yazacak ve böyle 15 kalemlik yer ayırdım. aslında ben visual basici daha önce bilmiyordum. bu sitedeki foruma baka baka birşeyler yapmaya çalıştım. ama artık aklım çok karıştı. bu nedenle yardım almak için konu açma gereğinde bulundum. birde kaç kalem malzeme yazdıysam, sayfanın altında ''.... kalem malın/hizmetin belirtilen'' kısmındaki ... yere rakamla yazılabilirmi, bu mümkünmü. çalışmamın son halinide göndermek istiyorum.

Eki inceleyin.

 

[tunç78]

asi kral çok teşekkürler. sağlıcakla kal.

 

[asi_kral]

asi kral çok teşekkürler. sağlıcakla kal.

Kolay Gelsin.