Basit bir Kaydet Butonu Yardım...

[vimpir]

Kaydet Butonu Yardım...

hazırladığım userformu poliçe sekmesine kayıt edemiyorum ve poliçe numarası daha önceden kayıtlı ise mükerer butonu çıksın ve bastığımızda daha önceden kayıt ettiğimiz bilgiler gelsi değişikler yapıldığın kaydet butonuna bastığımızda değişikler kaydedildi . diye bir msgbox çıksın listboxtan tıklama yaptığımızda sil butonuna tıkladığımızda msg box silmekten eminmisiniz tamam basıldığında işlem tamamlanıldı... bu konuda yardımcı olursanız sevinirim... arkadaşlar...

kullanıcı adı : hakan
şifre : 123

admin giriş
kullanıcı : admin
şifre : admin

bu konu benim için çok önemli yaklaşık 1 aydır bu macroyu sonuca baglayamadım...
Şimdiden teşekkürler arkadaşlar...

 

[vimpir]

Arkadaşlar ben bişiler yapmaya çalıştım ama beceremedim bir dünya hata var yardımcı olurmusunuz... dosyayı yeniledim...bi bakıp yardımcı olursanız sevirim...

 

[vimpir]

arkadaşlar yardım eden yok mu?

 

[Korhan Ayhan]

Selamlar,

Başlangıç olarak KAYDET butonuna ait kodları veriyorum. Ayrıca YENİ KAYIT butonuna ait kodlarıda aşağıdaki gibi değiştiriniz.

Diğer kodlamalar için Sn. Levent beyin hazırlamış olduğu örnek dosyayı inceleyiniz. Linkteki ilk konuyu inceleyiniz. Tabiki diğer konularında size faydası olacaktır onlarıda inceleyebilirsiniz.

VERİ YÖNETİMİ UYGULAMALARI

Private Sub CommandButton1_Click()
    Dim Satır As Long
    
    If TextBox1 = "" Then
        MsgBox "Lütfen sigortalının Adı-Soyadı bilgisiniz giriniz !", vbCritical
        TextBox1.SetFocus
        Exit Sub
    End If
    
    If TextBox2 = "" Then
        MsgBox "Lütfen sigortalının TC Kimlik No bilgisiniz giriniz !", vbCritical
        TextBox2.SetFocus
        Exit Sub
    End If
    
    With Sheets("POLİCE")
        If WorksheetFunction.CountIf(.Range("F:F"), ComboBox8) > 0 Then
            MsgBox ComboBox8 & " nolu poliçe daha önce kayıt edilmiştir. Lütfen kontrol ediniz !", vbCritical
            ComboBox8.SelStart = 0
            ComboBox8.SelLength = Len(ComboBox8)
            ComboBox8.SetFocus
            Exit Sub
        End If
    
        Satır = .Range("a65536").End(3).Row + 1
        .Cells(Satır, "A") = Satır - 1
        .Cells(Satır, "B") = Format(mpbs, "dd.mm.yyyy")
        .Cells(Satır, "C") = Format(mpbt, "dd.mm.yyyy")
        .Cells(Satır, "D") = TextBox1
        .Cells(Satır, "E") = TextBox2
        .Cells(Satır, "F") = ComboBox8
        .Cells(Satır, "G") = ComboBox1
        .Cells(Satır, "H") = TextBox4
        .Cells(Satır, "I") = TextBox5
        .Cells(Satır, "J") = ComboBox2
        .Cells(Satır, "K") = ComboBox3
        .Cells(Satır, "L") = ComboBox4
        .Cells(Satır, "M") = ComboBox5
        .Cells(Satır, "N") = ComboBox6
        .Cells(Satır, "O") = TextBox6
        .Cells(Satır, "P") = TextBox7
        .Cells(Satır, "Q") = TextBox8
        .Cells(Satır, "R") = TextBox9
        .Cells(Satır, "S") = ComboBox7
        .Cells(Satır, "T") = Format(mbt, "dd.mm.yyyy")
        .Cells(Satır, "U") = TextBox11
        .Cells(Satır, "V") = TextBox12
        .Cells(Satır, "W") = TextBox13
        .Cells(Satır, "X") = TextBox14
        .Cells(Satır, "Y") = TextBox15
        .Cells(Satır, "Z") = TextBox16
        .Cells(Satır, "AA") = TextBox10
    End With
        
    MsgBox "Kayıt işlemi tamamlanmıştır.", vbInformation
    CommandButton4_Click
End Sub

Private Sub CommandButton4_Click()
    Dim Nesne As Control
    
    mpbs.Value = Now
    mpbt.Value = Now + 365
    mbt.Value = Now
    
    For Each Nesne In Me.Controls
        If TypeOf Nesne Is MSForms.TextBox Then
            Nesne.Text = ""
        End If
        
        If TypeOf Nesne Is MSForms.ComboBox Then
            Nesne.Text = ""
        End If
    Next
    TextBox1.SetFocus
End Sub

 

[vimpir]

Korhan Hocam Çok teşekkürler önerdiğiniz linki inceledim çok faydası levent hocamda tek tek harika anlatmış yalnız kodları uyguladım. Ama hata almaya başladım listbox a tıkladığımda bilgiler textboxlara gelmiyor belirsiz nesne gibi bir hata alıyorum çözemedim bir türlü bir değişitir butonunda bir hata var sanırım yardımcı olursanız sevinirim... örnek excelimi tekrar yüklüyorum önceki mesajımda ki silip...

 

[vimpir]

arkadaşlar yardım eden yok mu?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    'listbox kutusuna çit tıklattığınızda
    mpbs = ListBox1.Column(0)
    mpbt = ListBox1.Column(1)
    TextBox1 = ListBox1.Column(2)
    TextBox2 = ListBox1.Column(3)
    ComboBox8 = ListBox1.Column(4)
    ComboBox1 = ListBox1.Column(5)
    TextBox4 = ListBox1.Column(6)
    TextBox5 = ListBox1.Column(7)
    ComboBox2 = ListBox1.Column(8)
    ComboBox3 = ListBox1.Column(9)
    ComboBox4 = ListBox1.Column(10)
    ComboBox5 = ListBox1.Column(11)
    ComboBox6 = ListBox1.Column(12)
    TextBox6 = ListBox1.Column(13)
    TextBox7 = ListBox1.Column(14)
    TextBox8 = ListBox1.Column(15)
    TextBox9 = ListBox1.Column(16)
    ComboBox7 = ListBox1.Column(17)
    mbt = ListBox1.Column(18)
    TextBox11 = ListBox1.Column(19)
    TextBox12 = ListBox1.Column(20)
    TextBox13 = ListBox1.Column(21)
    TextBox14 = ListBox1.Column(22)
    TextBox15 = ListBox1.Column(23)
    TextBox16 = ListBox1.Column(24)
    TextBox10 = ListBox1.Column(25)
    CommandButton1.Enabled = False
    CommandButton2.Enabled = True
    CommandButton3.Enabled = True
End Sub