ToggleButton Farklı Sayfa da çalışması ve CheckBox uygulama

[dragonflyvtr]

Tekrar Merhaba Arkadaşlar

Öncelikle bir önceki açmış olduğum konuda forum kurallarına yaptığım aykırılık için kusura bakmayın.

Ekteki gibi bir uygulamayı kendi çabalarım ile yapmaya çalışıyorum. Bir kaç kısım var ve kafam da durdu. Yardımlarınızı rica ediyorum.

1_Yeni üye kaydı ve Tahsilat kaydı butonlarının Kapak sayfasında çalışması

2_Tahsilat kaydın daki CheckBox tiklerinin çalışması ( Evet_Hayır şeklinde )

3_ ve sonuncu da bir türlü kafam da tasarlayamadığım son bir sayfa olarak hangi üyenin hangi yıldan ne kadar borcu kaldığı gibi bir tablo yapmak istiyorum ama tasarım konusunu aklımda nasıl olur diye bir türlü toparlayamadım.

Şimdiden çok teşekkür ederim.

 

[askm]

Üye ekleme kısmına aşağıdaki kodları ekleyin.

Private Sub ToggleButton1_Click()
son = Sheets("ÜYE_DATA").Range("a65536").End(3).Row + 1

Sheets("ÜYE_DATA").Cells(son, 1).Value = UserForm1.TextBox1.Text
Sheets("ÜYE_DATA").Cells(son, 2).Value = UserForm1.TextBox2.Text
Sheets("ÜYE_DATA").Cells(son, 3).Value = UserForm1.TextBox3.Text
Sheets("ÜYE_DATA").Cells(son, 4).Value = UserForm1.TextBox4.Text
Sheets("ÜYE_DATA").Cells(son, 5).Value = UserForm1.TextBox5.Text
Sheets("ÜYE_DATA").Cells(son, 6).Value = UserForm1.TextBox6.Text
Sheets("ÜYE_DATA").Cells(son, 7).Value = UserForm1.TextBox7.Text
Sheets("ÜYE_DATA").Cells(son, 8).Value = UserForm1.TextBox8.Text
Sheets("ÜYE_DATA").Cells(son, 9).Value = UserForm1.TextBox9.Text
Sheets("ÜYE_DATA").Cells(son, 10).Value = UserForm1.TextBox10.Text
Sheets("ÜYE_DATA").Cells(son, 11).Value = UserForm1.TextBox11.Text
Sheets("ÜYE_DATA").Cells(son, 12).Value = UserForm1.TextBox12.Text
Sheets("ÜYE_DATA").Cells(son, 13).Value = UserForm1.ComboBox1.Text
MsgBox ("Kayıt Tamamlandı")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
ComboBox1.Text = ""
End Sub

 

[dragonflyvtr]

Teşekkür ederim askm

İstediğim gibi çalıştı yanlız rica etsem

- Üye Data Kısmında ilk otomatik sıra no veriyordu sanırım onu silmişiz

- Bir de aynı işlemi tahsilat kaydındaki sorunlarım için bir bakabilirmisiniz.

Teşekkürler

 

[askm]

Üye ekle kısmını aşağıdaki şekilde değiştirin. Diğer kısma öğleden sonra bakmaya çalışacağım.

Private Sub ToggleButton1_Click()
son = Sheets("ÜYE_DATA").Range("a65536").End(3).Row + 1
If Sheets("ÜYE_DATA").Cells(son - 1, 1).Value = "SIRA NO" Then
    Sheets("ÜYE_DATA").Cells(son, 1).Value = 1
Else
    Sheets("ÜYE_DATA").Cells(son, 1) = Sheets("ÜYE_DATA").Cells(son - 1, 1) + 1
End If
Sheets("ÜYE_DATA").Cells(son, 2).Value = UserForm1.TextBox1.Text
Sheets("ÜYE_DATA").Cells(son, 3).Value = UserForm1.TextBox2.Text
Sheets("ÜYE_DATA").Cells(son, 4).Value = UserForm1.TextBox3.Text
Sheets("ÜYE_DATA").Cells(son, 5).Value = UserForm1.TextBox4.Text
Sheets("ÜYE_DATA").Cells(son, 6).Value = UserForm1.TextBox5.Text
Sheets("ÜYE_DATA").Cells(son, 7).Value = UserForm1.TextBox6.Text
Sheets("ÜYE_DATA").Cells(son, 8).Value = UserForm1.TextBox7.Text
Sheets("ÜYE_DATA").Cells(son, 9).Value = UserForm1.TextBox8.Text
Sheets("ÜYE_DATA").Cells(son, 10).Value = UserForm1.TextBox9.Text
Sheets("ÜYE_DATA").Cells(son, 11).Value = UserForm1.TextBox10.Text
Sheets("ÜYE_DATA").Cells(son, 12).Value = UserForm1.TextBox11.Text
Sheets("ÜYE_DATA").Cells(son, 13).Value = UserForm1.TextBox12.Text
Sheets("ÜYE_DATA").Cells(son, 14).Value = UserForm1.ComboBox1.Text
MsgBox ("Kayıt Tamamlandı")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
ComboBox1.Text = ""
End Sub

 

[askm]

2. Sorunuz için de kodlar.

Private Sub CheckBox1_Click() 'CheckBox1 E ÇİFT TIKLAYIP
CheckBox2.Value = False
End Sub

Private Sub CheckBox2_Click() 'CheckBox2 E ÇİFT TIKLAYIP
CheckBox1.Value = False
End Sub

Private Sub ToggleButton1_Click() 'ONAY BUTONUNA ÇİFT TIKLAYIP
son = Sheets("AİDAT_ÇİZELGESİ").Range("a65536").End(3).Row + 1
If Sheets("AİDAT_ÇİZELGESİ").Cells(son - 1, 1).Value = "SIRA NO" Then
    Sheets("AİDAT_ÇİZELGESİ").Cells(son, 1).Value = 1
Else
    Sheets("AİDAT_ÇİZELGESİ").Cells(son, 1) = Sheets("AİDAT_ÇİZELGESİ").Cells(son - 1, 1) + 1
End If
Sheets("AİDAT_ÇİZELGESİ").Cells(son, 2).Value = ComboBox1.Text
Sheets("AİDAT_ÇİZELGESİ").Cells(son, 3).Value = ComboBox2.Text
Sheets("AİDAT_ÇİZELGESİ").Cells(son, 4).Value = TextBox2.Text
Sheets("AİDAT_ÇİZELGESİ").Cells(son, 5).Value = TextBox3.Text
If CheckBox2.Value = True Then
    Sheets("AİDAT_ÇİZELGESİ").Cells(son, 6).Value = "EVET"
Else
    Sheets("AİDAT_ÇİZELGESİ").Cells(son, 6).Value = "HAYIR"
End If
Sheets("AİDAT_ÇİZELGESİ").Cells(son, 7).Value = TextBox4.Text
MsgBox ("Kayıt Tamamlandı")
ComboBox1.Text = ""
ComboBox2.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
CheckBox1.Value = False
CheckBox2.Value = False
TextBox4.Text = ""
End Sub

 

[dragonflyvtr]

Çok teşekkür ederim. Tam istediğim gibi oldu