Herkese Merhaba ben aşağıdaki kodla VERİ sayfasından sicil yazmak sureti ile istediğim hücreleri texboxlara getirebiliyorum .
Yukarıdaki kodla da texbox1 2 ve 3 ile combobox1 ve 2 deki verileri HAVUZ sayfasına kaydetmek istiyorum. Tam da bu aşamada 1.2.3. Texbox ile 1.2. Comboboxlardaki veri bir türlü HAVUZ sayfasına kaydolamıyor. Bu aşamada bana yardım edebilecek olan var mı???!!!
Kod:
Private Sub TexBox1_Change()
Dim Bul
On Error Resume Next
Bul = Sheets("VERİ").Range("B2:B100000").Find(What:=TexBox1, LookIn:=xlValues, LookAt:=xlWhole).Row
TexBox2.Value = Sheets("VERİ").Cells(Bul, 3).Value
TexBox3.Value = Sheets("VERİ").Cells(Bul, 4).Value
ComboBox1.Value = Sheets("VERİ").Cells(Bul, 5).Value
ComboBox2.Value = Sheets("VERİ").Cells(Bul, 6).Value
End Sub
Private Sub TexBox1_Change()
Dim Bul
On Error Resume Next
Bul = Sheets("VERİ").Range("B2:B100000").Find(What:=TexBox1, LookIn:=xlValues, LookAt:=xlWhole).Row
TexBox2.Value = Sheets("VERİ").Cells(Bul, 3).Value
TexBox3.Value = Sheets("VERİ").Cells(Bul, 4).Value
ComboBox1.Value = Sheets("VERİ").Cells(Bul, 5).Value
ComboBox2.Value = Sheets("VERİ").Cells(Bul, 6).Value
End Sub
Böylece texbox1 e yazdığım sicil VERİ Sayfasında varsa istediğim bilgiler anında alttaki texbox2 ve 3 ile combobox1 ve 2 ye geliyor . Buraya kadar her şey normal.
Kod:
Private Sub Kaydet_Click()
Dim SonSatır
SonSatır = WorksheetFunction.CountA(Worksheets("HAVUZ").Range("A:A")) + 1
Cells(SonSatır, "A").Value = WorksheetFunction.Max(Range("A2:A" & Rows.Count)) + 1
Worksheets("HAVUZ").Cells(SonSatır, 2) = TextBox1.Text
Worksheets("HAVUZ").Cells(SonSatır, 3) = TextBox2.Value
Worksheets("HAVUZ").Cells(SonSatır, 4) = TextBox3.Value
Worksheets("HAVUZ").Cells(SonSatır, 5) = ComboBox1.Value
Worksheets("HAVUZ").Cells(SonSatır, 6) = ComboBox2.Value
TextBox1.Text = ""
TextBox2.Value = ""
TextBox3.Value = ""
ComboBox1.Value = ""
ComboBox2.Value = ""
MsgBox "Kayıt İşlemi Tamamlandı"
End Sub