ComboBox dan değer seçip TextBoxa değer girme

[kerwan21]

Merhaba
Oluşturduğum form da 267 adet poz var, Veri girişi yaparken oluşturğum ComboBox tan seçtiğim poza TextBoxa yazdığım değerin girmesi için nasıl bir kod gereklidir.
2. Olarak dosyamda yaklaşık 16000 satır var yeni kayıt yaptığımda kaydetmesi çok uzun sürüyor bunun için ne yapabilirim. Yardımlarınız için Şimdiden Çok teşekkür ediyorum

 

[askm]

İlk sorunuzu anlamadım. Son satırı döngü ile bulduruyorsunuz. Bu işlemi uzatıyor. Bunun yerine aşağıdaki şekilde deneyin.

Private Sub CommandButton1_Click()
Dim Son As Long
Son = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & Son).Select
'Range("A2").Select
'Do While Not IsEmpty(ActiveCell)
'ActiveCell.Offset(1, 0).Select
'Loop
If Range("A2").Value = "" Then
Range("A2").Value = 1
Range("A2").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
ActiveCell.Offset(0, 1).Value = TextBox1.Text
ActiveCell.Offset(0, 2).Value = TextBox2.Text
ActiveCell.Offset(0, 3).Value = TextBox3.Text
ActiveCell.Offset(0, 4).Value = TextBox4.Text
ActiveCell.Offset(0, 14).Value = TextBox14.Text
ActiveCell.Offset(0, 12).Value = TextBox12.Text
ActiveCell.Offset(0, 13).Value = TextBox13.Text
ActiveCell.Offset(0, 8).Value = TextBox8.Text
ActiveCell.Offset(0, 9).Value = TextBox9.Text
ActiveCell.Offset(0, 10).Value = TextBox10.Text
ActiveCell.Offset(0, 11).Value = TextBox11.Text

MsgBox ("Kayıt Tamamlandı")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox14.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
End Sub

 

[kerwan21]

Merhaba
Öncelikle zaman ayırıp ilgilendiğiniz için çok teşekkür ederim. 2. sorunum sayenizde düzelmiş.1. ve asıl sorunum için Ekran görüntüsü alarak anlatmaya çalıştım.

 

[kerwan21]

Merhaba
Öncelikle zaman ayırıp ilgilendiğiniz için çok teşekkür ederim. 2. sorunum sayenizde düzelmiş.1. ve asıl sorunum için Ekran görüntüsü alarak anlatmaya çalıştım.

 

[askm]

Resim okunmuyor malesef. Dilerseniz ekran görüntüsünü ve dosyanızı istediğinizi anlatarak askmadige34@hotmail.com adresine mail atın bakayım.

 

[kerwan21]

Resim okunmuyor malesef. Dilerseniz ekran görüntüsünü ve dosyanızı istediğinizi anlatarak askmadige34@hotmail.com adresine mail atın bakayım.

Mail olarak ilettim tabloyu. Teşekkür ediyorum

 

[askm]

İşlem mail ile cevaplanarak sonuçlanmıştır.

 

[kerwan21]

Teşekkür

İşlem mail ile cevaplanarak sonuçlanmıştır.

Tekrardan merhaba

@askm göstermiş olduğunuz ilgi ve alaka için size çok teşekkür ediyorum , çok uğraşıp emek verdiniz, emeğinize yüreğinize elinize sağlık.Selamlar.