Soru Texboxla Ara Bul Kaydet

[TURKOLOG]

Herkese Merhaba ben aşağıdaki kodla VERİ sayfasından sicil yazmak sureti ile istediğim hücreleri texboxlara getirebiliyorum .

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.

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

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ı???!!!

 

[hımmmmmmmm]

SonSatır = Sheets("HAVUZ").Range("B" & Rows.Count).End(3).Row + 1 bunu dene

 

[TURKOLOG]

SonSatır = Sheets("HAVUZ").Range("B" & Rows.Count).End(3).Row + 1 bunu dene

Sayın @
hımmmmmmmm dosyayı ekliyorum verdiğiniz kod hata verdi. İlgilenme imkanınız var mı

 

[hımmmmmmmm]

verdiğim kot hatalı değildi...
textbox... ların name özelliğini texbox... yapmışsın... kotlarında bazı yerlerde textbox... bazı kısımlarda texbox... yazılmış...

 

[TURKOLOG]

verdiğim kot hatalı değildi...
textbox... ların name özelliğini texbox... yapmışsın... kotlarında bazı yerlerde textbox... bazı kısımlarda texbox... yazılmış...

Bu dosyada userform çalışıyor bu kodları kopyalayıp aynı bilgisayarda kendi user formuma kopyalayıp kaydet diyince
Sor = msgBox (Bu kayıt takip sayfasına kaydedilecek ) kısmında hata mesajı veriyor
hata çıkıyor. Ama sizin eklediğiniz user form kusursuz çalışıyor. Sorun nerede acaba

 

[hımmmmmmmm]

userformun tüm macrolarını kopyala... userform üzerindeki textboxların name özelliklerini textbox olarak değiştir

 

[TURKOLOG]

userformun tüm macrolarını kopyala... userform üzerindeki textboxların name özelliklerini textbox olarak değiştir

Aynn öyle yapıyorum. Ama bendeki form
Sor = kısmında hata verip duruyor

 

[TURKOLOG]

Kodlar bu dosyada çalışırken. userformu dışa aktarıp kendi excel dosyama aldiğimda yukarıda 5 numaralı mesajda belirttiğim hatayı veriyor. Yardım edebilecek olan var mı