Kullanıcıdan birden fazla seçenek almanız gerekiyorsa (Örn: Hangi dilleri biliyor? İngilizce, Almanca, Fransızca...), OptionButton yerine CheckBox kullanmalısınız.
Kod Mantığı
Kaydet butonuna bastığınızda hangilerinin seçili olduğunu şöyle kontrol edersiniz:
Dim Diller As String
If CheckBox_Ing.Value = True Then Diller = Diller & "İngilizce "
If CheckBox_Alm.Value = True Then Diller = Diller & "Almanca "
Range("A1").Value = Diller
If CheckBox_Ing.Value = True Then Diller = Diller & "İngilizce "
If CheckBox_Alm.Value = True Then Diller = Diller & "Almanca "
Range("A1").Value = Diller
Seçili olan her kutunun değeri True döner. Böylece hepsini birleştirip hücreye yazabilirsiniz.
Henüz yorum yapılmamış. İlk yorumu sen yap!
Yorum Yap