1 textboxtla ayrı ayrı 5 ayrı hüçreye veri girme

[aydın3838]

selamlar

textbox la 1 hücreye veriyi girebiliyoruz

fakat aynı textboxtaki veriyi başka hücrelerede girmem gerekiyor

aktarmayı denedim son dolu hücreyi bulması falan

güvensiz oluyor

kullandığım kodlar aşağıda teşekkürler

Private Sub CommandButton12_Click()
'-------açık sayfaya kaydediyor.---------------------
f = ListBox2.ListIndex + 61
Cells(f, 2).Value = TextBox13.Text
Cells(f, 5).Value = TextBox15.Text
'--------kasa sayfasına kaydediyor.-------------------
SDS = Sheets("KASA").Range("A65536").End(xlUp).Row
BS = SDS + 1
Sheets("KASA").Range("A" & BS).Value = _
Application.WorksheetFunction.Max(Sheets("KASA").Range("A:A")) + 1
Sheets("KASA").Range("E" & BS).Value = TextBox12.Text
Sheets("KASA").Range("C" & BS).Value = TextBox13.Text
Sheets("KASA").Range("D" & BS).Value = TextBox15.Text
Sheets("KASA").Range("B" & BS).Value = TextBox17.Text
Sheets("KASA").Range("H" & BS).Value = TextBox18.Text
'-----------------------------------------------------
For L = 12 To 16
Controls("TextBox" & L).Text = ""
Next
On Error Resume Next
'ilerleme çubuğunu çalıştır
ProgressBar1.Visible = True
For i = 1 To 10000
ProgressBar1 = i / 10000 * 560
Next
'ilerleme çubuğunu gizle
ProgressBar1.Visible = False
MsgBox "TAHSİLAT YAPILMIŞTIR", , "AYDIN CAM"
Unload UserForm6
UserForm6.Show
If MsgBox("TAHSİLAT MAKBUZU KESİLSİNMİ", vbInformation + vbYesNo) = vbNo Then
Exit Sub
End If
Unload UserForm6
ActiveWindow.View = xlPageBreakPreview
Application.Wait Now + TimeValue("00:00:5")

ActiveWindow.View = xlNormalView
Range("E62").Select
Selection.Copy
Range("S64:T64").Select
ActiveSheet.Paste
[R51:AG85].PrintOut
End Sub






Private Sub UserForm_Initialize()
ListBox2.ColumnCount = 7
ListBox2.ColumnHeads = False
ListBox2.ColumnWidths = "70;70;25,50,50,50,40"
ListBox2.RowSource = "A61:G84"
ListBox3.ColumnCount = 7
ListBox3.ColumnHeads = False
ListBox3.ColumnWidths = "80;70;40,40,40,40,40"
ListBox3.RowSource = "A60:G60"
TextBox17.Text = Range("B54").Value
TextBox18.Text = Range("B57").Value
TextBox13.Text = Format(Date)

 

[aydın3838]

yanıt veren yokmu arkadaşlar

 

[fedeal]

şu an textbox13'ü hem açıkolan hemde kasa sayfasına giriyorsunuz zaten sorunuzu kodlarınızı inceledim şahsım adına hangi textboxu hangi sayfaya hangi şartlarda girmek istiyorsunuz anlamadım örnek dosya eklerseniz yapmaya çalışırız.saygılar.

 

[aydın3838]

örnek ektedir

sayın fedeal ayrıntılı açıklama ekte

= ListBox2.ListIndex + 61
Cells(f, 2).Value = TextBox13.Text
Cells(f, 5).Value = TextBox15.Text


( f ) olayını çözemedim

 

[fedeal]

Çalışmanızın hücre degerleri aynıysa, Q14 hücresi sabitse direkt hücreye yazdırın.
sheets("kasa").range("Q14").value=textbox13.text

yani listboxun liste sayısına göre yapmanıza gerek yok (tabi Q14 sabitse)

e hücresinin ilk boş hücresine yazdıracaksanız
SDS = Sheets("KASA").Range("e65536").End(xlUp).Row
BS = SDS + 1
Sheets("KASA").Range("E" & BS).Value = TextBox13.Text

olarak kullanabilirsiniz.

 

[aydın3838]

sayın fedeal
verdiğiniz kodlar olmadı bende böyle değiştirdim oldu gibi ama biraz yavaşlama var gibi
Cells.Range("S64").Value = TextBox15.Text