• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

userform üzerinde checkbox1, checkbox2 ve checkbox3 ten

Katılım
18 Şubat 2005
Mesajlar
94
Excel Vers. ve Dili
excel 2013 türkçe
userform üzerinde 3 tane checkboxtan hangisi onaylı ise textboxlardan o checkbox ile bağlantılı olan textboxlar sadece ilgili sayfaya yazsın onaylı olmayan textboxlar yazmasın.iyi çalışmalar.
 
Bu şekilde cevaplamak pek mümkün değil, bir örnek dosya ekleyebilirsiniz.
 
dosyayı ekte gönderiyorum levent bey çözüm bulursanız sevinirim.iyi akşamlar.
 
Aşağıdaki kodu deneyin. Fakat birden fazla checkbox işaretli ise kod hatalı işlem yapacaktır. Bu sebeple optionbutton kullanarak çift seçimi engelleyebilirsiniz.

[vb:1:63d3eb3f73]Private Sub CommandButton1_Click()
a1 = CheckBox1.Value
a2 = CheckBox2.Value
a3 = CheckBox3.Value
If a1 = False And a2 = False And a3 = False Then Exit Sub
If a1 = True Then a = 1
If a2 = True Then a = 3
If a3 = True Then a = 5
[a1] = Controls("textbox" & a)
[b1] = Controls("textbox" & a + 1)
End Sub
[/vb:1:63d3eb3f73]
 
sn: Levent bey kodları aynen kopyalayıp çalışmamda kullandım ama sadece inşaat kontrolü check butonunu OK lediyimde ünvanı sadece yazıyor 2 ve 3 check butonuda işaretlediyimde durum aynı yani seçime göre yazmıyor .option butonla yapılabilecek şekli nasıl olur acaba.Zaman ayırdığınız için teşekkür ederim.
 
Aşağıdaki gibi deneyin.

[vb:1:e849cf9317]Private Sub CommandButton1_Click()
If CheckBox1.Value = False And CheckBox2.Value = False And CheckBox3.Value = False Then Exit Sub
If CheckBox1.Value = True Then a = 1
If CheckBox2.Value = True Then a = 3
If CheckBox3.Value = True Then a = 5
[a1] = Controls("textbox" & a)
[b1] = Controls("textbox" & a + 1)
End Sub
[/vb:1:e849cf9317]

Checkboxlar yerine optionbutton kullanın ve koddada checkboxlar yerine optionbuttonların isimlerini yazın.
 
sn:levent bey gecenin bir vaktinde rahatsız ettiğim için özür dilerim vermiş olduğunuz kodlar bilgi almak ve checkbox ve optionbutton kullanımı ile güzel bir örnek ama ben çalışmamda 3 tane checkbox kullanmak isteyişim oluşturduğum bir matbu forumda kimi zaman sadece inşaat kontolünün kimi zaman hem inşaat hem tesisat kontrolünün ve bazende 3 kontrolün ismini aynı sayfada farklı hücrelere yazdırmak istemiştim.Bu seçimler değişken aynı hücrelere yazmayacak yani bazende 2 isim 2 ünvan bazen 3 isim 3 ünvanıda seçime göre yapsın istiyordum ama VBA ile ilgili kodları çok iyi bilmediyimden sorunun yapılabilirliğini bilemiyorum.Her şey için sağolun .İyi çalışmalar diliyorum.
 
Bütün chechboxlara göre verileri yazdıracağınız hücre isimlerini verirseniz kodda ona göre bir düzenleme yapalım.
 
Kod:
Private Sub CommandButton1_Click()
    Range("A1,A2,B1,B2,C1,C2") = Empty
    If CheckBox1 Then
        [A1] = TextBox1
        [A2] = TextBox2
    End If
    If CheckBox2 Then
        [B1] = TextBox3
        [B2] = TextBox4
    End If
    If CheckBox3 Then
        [C1] = TextBox5
        [C2] = TextBox6
    End If
End Sub
 
sn: levent bey mesajınızı geç aldım özür dilerim.
sn: haluk bey verdiyiniz kodlar harika çalışıyor.Bin defa hatta birmilyon defa teşekkür ederim.Sağolasın var olasın.
sn: levent bey sizede sonsuz teşekkür ediyorum.
Bu forumun bütün üye ve yöneticileri gönül insanı herkese başarılar diliyorum.saygılarımla.
 
arkadaşlar buradaki kodlar sadece sayfa1 e kayıt rdiyor sayfa2 ye kaydettire bilme için kodu nasıl yazmalıyız
 
Geri
Üst