Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 17-02-2017, 08:25   #1
dragonflyvtr
Altın Üye
 
Giriş: 24/09/2004
Şehir: İstanbul
Mesaj: 56
Excel Vers. ve Dili:
2013
Varsayılan ToggleButton Farklı Sayfa da çalışması ve CheckBox uygulama

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.
Eklenmiş Dosyalar
Dosya Türü: xlsm Dernek_Kayıt.xlsm (38.9 KB, 3 Görüntülenme)
dragonflyvtr Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-02-2017, 08:47   #2
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 759
Excel Vers. ve Dili:
2010-2016
Varsayılan

Üye ekleme kısmına aşağıdaki kodları ekleyin.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 17-02-2017, 09:13   #3
dragonflyvtr
Altın Üye
 
Giriş: 24/09/2004
Şehir: İstanbul
Mesaj: 56
Excel Vers. ve Dili:
2013
Varsayılan

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
dragonflyvtr Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-02-2017, 10:20   #4
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 759
Excel Vers. ve Dili:
2010-2016
Varsayılan

Üye ekle kısmını aşağıdaki şekilde değiştirin. Diğer kısma öğleden sonra bakmaya çalışacağım.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 17-02-2017, 10:39   #5
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 759
Excel Vers. ve Dili:
2010-2016
Varsayılan

2. Sorunuz için de kodlar.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 17-02-2017, 13:00   #6
dragonflyvtr
Altın Üye
 
Giriş: 24/09/2004
Şehir: İstanbul
Mesaj: 56
Excel Vers. ve Dili:
2013
Thumbs up

Çok teşekkür ederim. Tam istediğim gibi oldu
dragonflyvtr Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 03:24


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna - Çorlu Web Tasarım - Tarot Falı - Fenerbahçe Haberleri - Trakya Haberleri - Investing - Hurda - Kobi Danışmanlık - Tekirdağ Samsung - Kozmetik Ürünler - Sağlıklı Makyaj Ürünleri - Yaşlanma Karşıtı Ürünler - Excel Eğitimi - Çorlu OSGB - Lingerie - Dyeing Machine - Çorlu Temizlik- Didim Çatı İnşaat- Çorlu Ambar- Hava Çekimi- Hazır Site- SEO- Çorlu Estetik
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden