Userform - option button kaydetme

[rekormuhendislik]

Arkadaşlar Sorunum şu ki

OPTİON BUTTONLARIN 2 SİNİ AYNI ANDA SEÇEMİYORUM.

ÖRNEK SEÇMEM MESELA YAPMAK İSTEDİĞİM

DAİRE İÇİ İLE DÜZ KOMBİYİ SEÇİCEM KAYDET E BASTIĞIMDA

DİĞER BİLGİLERLE BİRLİKTE KAYDEDİCEK.

DÜZ KOMBİYİ SEÇTİĞİMDE 'DÜZ KOMBİ YAZMASINI İSTİYORUM' YADA '1' YAZMASINI İSTİYORUM. SİZCE NE YAPMALIYIM ?

HER KAYITTA ALT SATIRA EKLEMESİNİ İSTİYORUM. YARDIMCI OLURSANIZ ÇOK SEVİNİRİM.

Buda dosyam. Çok eksiğim var ve çalışıyorum üstünde
http://dosya.co/0muiyt8kykcj/PROGRAMLA.rar.html

 

[Mustafa MUTLU]

CheckBox KULLANMAYI DENEYİN

 

[rekormuhendislik]

CheckBox Kullanırsam hangi kodları yazmam gerekecek peki Mustafa Bey

 

[rekormuhendislik]

kullandığım kod paneli bu ama CheckBox lara hangi kod'u kullanmam gerektiğini bilmiyorum.
H hücresine Checkbox'um seçili ise "1" yazdırmak istiyorum.

Private Sub CommandButton12_Click() ' KOMBİ KAYIT

If TextBox117.Text <> "" Then
    Son_Dolu_Satir = Sheets("KOMBİ").Range("A65536").End(xlUp).Row
    Bos_Satir = Son_Dolu_Satir + 1
    Sheets("KOMBİ").Range("A" & Bos_Satir).Value = _
                   Application.WorksheetFunction.Max(Sheets("KOMBİ").Range("A:A")) + 1
    Sheets("KOMBİ").Range("B" & Bos_Satir).Value = TextBox117.Text
    Sheets("KOMBİ").Range("C" & Bos_Satir).Value = TextBox118.Text
     Sheets("KOMBİ").Range("D" & Bos_Satir).Value = TextBox119.Text
     Sheets("KOMBİ").Range("E" & Bos_Satir).Value = TextBox120.Text
     Sheets("KOMBİ").Range("F" & Bos_Satir).Value = TextBox121.Text
     Sheets("KOMBİ").Range("G" & Bos_Satir).Value = TextBox122.Text
     
     Sheets("KOMBİ").Select
     Unload UserForm1
   Else
   MsgBox "İsim Girmeniz gerekiyor"
   End If
Exit Sub

 

[cems]

Dosyanızı biraz değiştirerek bir şeyler yapmaya çalıştım. Kendi userformunuzda ya da sayfada anlamadığım şeyler var , form başlıkları ve sütun başlıkları benim öylesine doldurup düzen için kontrol amaçlı kullandığım şekilde .Yani biraz sizden biraz mantıken işin akışı herhalde öyle olur dizaynı yaptım. Bu sadece örnek çalışma.

Daha düzenli bir şekilde olması için , sizin konuları düzenli ve gruplayarak sayfalara ayrılacak şekilde iş akışını sütun başlıkları halinde ayırmanız , daha işe yarar bir dosya oluşmasına yardımcı olabilir.

Ekteki dosyayı inceleyiniz . Bu şekilde devam derseniz zaman oldukça istediğinizi oluşturmaya çalışırım.

 

[rekormuhendislik]

Cems bey çok teşekkür ederim elinize ve emeğinize sağlık