Texbox veri aktarımı

[shocaoglu]

Yaptığım Userformda 1 adt. Texbox mevcut ve bunları firma a ve firma b gibi iki adet combox var. Tek texboxu kullanarak ister firma a ister firma b butonlarına tıklıyarak texbox taki bilgileri ilgili sheet lere aktarmam için ne yapmam gerekir.
Umarım açıklıyabilmişimdir....
İlgi ve alakanıza şimdiden teşekkürler

Dosyam ektedir.

 

[ileriexcel]

Private Sub CommandButton1_Click()
Set fa = Sheets("FİRMA A")
say = WorksheetFunction.CountA(fa.Range("a1:a65000"))
fa.Range("a" & say + 1) = TextBox1
End Sub

Private Sub CommandButton2_Click()
Set fb = Sheets("FİRMA B")
say = WorksheetFunction.CountA(fb.Range("a1:a65000"))
fb.Range("a" & say + 1) = TextBox1
End Sub

 

[Explorer]

Merhaba,

Girdiğiniz Firma Adını ilgili sayfada A sütununa yazacağınızı varsayarak ekteki dosya bir fikir verebilir.

 

[shocaoglu]

Yardımlarınız için teşekkürler

 

[shocaoglu]

Sayın Explorer verdiğin kodu şöyle uyarladım fakat olmadı " başaramadım" hatam nerede acaba

Private Sub CommandButton7_Click()
Set fa = Sheets("DOLU SEVKİYAT")
say = WorksheetFunction.CountA(fa.Range("C4:S4"))
fa.Range("c" & say + 1) = TextBox9
fa.Range("d" & say + 1) = TextBox10
fa.Range("e" & say + 1) = TextBox11
fa.Range("f" & say + 1) = TextBox12
fa.Range("g" & say + 1) = TextBox13
fa.Range("h" & say + 1) = TextBox14
fa.Range("ı" & say + 1) = TextBox15
fa.Range("j" & say + 1) = TextBox16
fa.Range("k" & say + 1) = TextBox17
fa.Range("l" & say + 1) = TextBox18
fa.Range("m" & say + 1) = TextBox19
fa.Range("n" & say + 1) = TextBox20
fa.Range("O" & say + 1) = TextBox21
fa.Range("p" & say + 1) = TextBox22
fa.Range("q" & say + 1) = TextBox23
fa.Range("r" & say + 1) = TextBox24

End Sub

 

[Explorer]

Merhaba,

İlgili satırı aşağıdaki gibi düzeltirsen sanırım problem çözülür.

say = WorksheetFunction.CountA(fa.Range("C1:C65536"))

 

[shocaoglu]

Merhaba

dediğinizgibi yaptım ama gene aynı ;
girdiğim verileri aktarmıyor

 

[shocaoglu]

Arkadaşlar hatamı buldum aşağıdaki gibi düzeltim sorun çözüldü

Private Sub CommandButton7_Click()
Set fa = Sheets("DOLU SEVKİYAT")
say = WorksheetFunction.CountA(fa.Range("c1:R65536"))
fa.Range("c4") = TextBox9
fa.Range("d4") = TextBox10
fa.Range("e4") = TextBox11
fa.Range("f4") = TextBox12
fa.Range("g4") = TextBox13
fa.Range("h4") = TextBox14
fa.Range("ı4") = TextBox15
fa.Range("j4") = TextBox16
fa.Range("k4") = TextBox17
fa.Range("l4") = TextBox18
fa.Range("m4") = TextBox19
fa.Range("n4") = TextBox20
fa.Range("o4") = TextBox21
fa.Range("p4") = TextBox22
fa.Range("R4") = TextBox23
fa.Range("q4") = TextBox24
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
TextBox14.Text = ""
TextBox15.Text = ""
TextBox16.Text = ""
TextBox17.Text = ""
TextBox18.Text = ""
TextBox19.Text = ""
TextBox20.Text = ""
TextBox21.Text = ""
TextBox22.Text = ""
TextBox23.Text = ""
TextBox24.Text = ""
End Sub

 

[shocaoglu]

Arkadaşlar sorunu çözdüm aşağıdaki gibi düzeltince sorun ortadan kalktı.

Private Sub CommandButton7_Click()
Set fa = Sheets("DOLU SEVKİYAT")
say = WorksheetFunction.CountA(fa.Range("c1:R65536"))
fa.Range("c4") = TextBox9
fa.Range("d4") = TextBox10
fa.Range("e4") = TextBox11
fa.Range("f4") = TextBox12
fa.Range("g4") = TextBox13
fa.Range("h4") = TextBox14
fa.Range("ı4") = TextBox15
fa.Range("j4") = TextBox16
fa.Range("k4") = TextBox17
fa.Range("l4") = TextBox18
fa.Range("m4") = TextBox19
fa.Range("n4") = TextBox20
fa.Range("o4") = TextBox21
fa.Range("p4") = TextBox22
fa.Range("R4") = TextBox23
fa.Range("q4") = TextBox24
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
TextBox14.Text = ""
TextBox15.Text = ""
TextBox16.Text = ""
TextBox17.Text = ""
TextBox18.Text = ""
TextBox19.Text = ""
TextBox20.Text = ""
TextBox21.Text = ""
TextBox22.Text = ""
TextBox23.Text = ""
TextBox24.Text = ""
End Sub

 

[zafer]

Merhaba

İşinize karışmak gibi olmasında o kadar kod yazmanıza gerek yok.Textbox ve hücreler sıra takip ediyorsa aşağıdaki kodları kullanabilirsiniz.


Private Sub CommandButton1_Click()
On error resume next
Set fa = Sheets("DOLU SEVKİYAT")
say = WorksheetFunction.CountA(fa.Range("c1:R65536"))

For i = 1 To 16
Cells(4, i + 2) = Controls("textbox" & i+8)
Controls("textbox" & i) = ""
Next
End Sub

 

[shocaoglu]

Textbox veri aktarımı

Merhaba

İşinize karışmak gibi olmasında o kadar kod yazmanıza gerek yok.Textbox ve hücreler sıra takip ediyorsa aşağıdaki kodları kullanabilirsiniz.


Private Sub CommandButton1_Click()
On error resume next
Set fa = Sheets("DOLU SEVKİYAT")
say = WorksheetFunction.CountA(fa.Range("c1:R65536"))

For i = 1 To 16
Cells(4, i + 2) = Controls("textbox" & i+8)
Controls("textbox" & i) = ""
Next
End Sub

Sayın Zafer verdiğiniz kodu denedim fakat yanlış bir şey var. Sonuç vermedi.

Yardımızın için teşekkürler

 

[shocaoglu]

Sayın Zafer Verileri aktarıyor fakat istediğim " Dolu Sevkiyat" sayfasına değil ana sayfama atıyor.

 

[zafer]

Merhaba

Private Sub CommandButton1_Click()
On error resume next
Set fa = Sheets("DOLU SEVKİYAT")
say = WorksheetFunction.CountA(fa.Range("c1:R65536"))

For i = 1 To 16
fa.Cells(4, i + 2) = Controls("textbox" & i+8)
Controls("textbox" & i) = ""
Next
End Sub

 

[shocaoglu]

Merhaba

İşlem tamam üstat.Yardımların için teşekkürler

Beni kod yazmaktan ve kod karmaşasından kurtardığın için tekrar teşekkürler