userform üzerinde checkbox1, checkbox2 ve checkbox3 ten

[mühendis^^]

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.

 

[Levent Menteşoğlu]

Bu şekilde cevaplamak pek mümkün değil, bir örnek dosya ekleyebilirsiniz.

 

[mühendis^^]

dosyayı ekte gönderiyorum levent bey çözüm bulursanız sevinirim.iyi akşamlar.

 

[Levent Menteşoğlu]

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]

 

[mühendis^^]

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.

 

[Levent Menteşoğlu]

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.

 

[mühendis^^]

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.

 

[Levent Menteşoğlu]

Bütün chechboxlara göre verileri yazdıracağınız hücre isimlerini verirseniz kodda ona göre bir düzenleme yapalım.

 

[Haluk]

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

 

[mühendis^^]

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.

 

[orcunerkek54]

arkadaşlar buradaki kodlar sadece sayfa1 e kayıt rdiyor sayfa2 ye kaydettire bilme için kodu nasıl yazmalıyız