• DİKKAT

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

OptionButtonlar konusunda yardım

F

fatih34

Katılım
2 Ekim 2007
Mesajlar
359
Excel Vers. ve Dili
2010
sayın hocalarım personelle ilgili formda bir takım öğrendiğim bilgilerle ilgili bir çalışma yapıyorum. Takıldığım yer Userformda 8 adet optionbuton var.
Aşağıdaki kodla kayıt yapıyorum. Ancak örnek olarak birinci optionu işaretleyip kayıt yap dediğimde diğer optionbutonalrıda seçmiş gibi kayıt yapıyor. Bu konuda yardımcı olursanız sevinirim. Örnek çalışmayı ekliyorum.

Kod: 
Private Sub CommandButton1_Click() 'KAYDET TUŞU (Yeni veri girişi için kullanılmaktadır.)

    '1 - Kayıt işlemi için gerekli bilgileri ilgili hücrelere aktarıyoruz.
    With Worksheets("Sayfa1")
        Satır = .Range("A65536").End(3).Row + 1
        .Cells(Satır, "A") = Application.Max(.Range("A2:A" & Satır)) + 1
        .Cells(Satır, "T") = TextBox1.Text
        .Cells(Satır, "B") = TextBox2.Text
        .Cells(Satır, "C") = TextBox3.Text
        .Cells(Satır, "D") = TextBox4.Text
        .Cells(Satır, "E") = TextBox5.Text
        .Cells(Satır, "AA") = TextBox6.Text
        .Cells(Satır, "G") = TextBox7.Text
        .Cells(Satır, "Z") = TextBox8.Text
        .Cells(Satır, "Y") = TextBox10.Text
        .Cells(Satır, "X") = ComboBox1.Text
        .Cells(Satır, "H") = TextBox11.Text
        .Cells(Satır, "I") = TextBox19.Text
        .Cells(Satır, "V") = TextBox20.Text
        .Cells(Satır, "W") = ComboBox3.Text
        .Cells(Satır, "J") = ComboBox4.Text
        .Cells(Satır, "AF") = TextBox17.Text
        .Cells(Satır, "AH") = OptionButton1.Caption
        .Cells(Satır, "AI") = OptionButton2.Caption
        .Cells(Satır, "AJ") = OptionButton3.Caption
        .Cells(Satır, "AK") = OptionButton4.Caption
        .Cells(Satır, "AL") = OptionButton5.Caption
        .Cells(Satır, "AM") = OptionButton6.Caption
        .Cells(Satır, "AN") = OptionButton7.Caption
        .Cells(Satır, "AO") = OptionButton8.Caption
        
        End With

    ThisWorkbook.Save 'her kayıt sonrası dosyayı kaydeder.
    MsgBox "Kayıt işlemi tamamlanmıştır.", vbInformation, "Kayıt İşlemi"
    Unload Me
    UserForm1.Show

End Sub
 

Ekli dosyalar

Son düzenleme:
Merhaba.Bu kodlar ile sadece Worksheets("Sayfa1")'e kayıt yapar. Siz ne yapmak istiyorsanız küçük bir dosya ekleyerek içinde belirtirseniz sonuca çabuk ulaşırsınız.Kolay gelsin.
 
Hocam kusura bakmayın örnek bir çalışmayı ekliyorum. Hangi butonu seçersem ilgili satıra kayıt yapmasını istiyorum. Benim yazdığım kodda hepsi seçilmiş gibi sayfa1 deki ilgili yerlere yazıyor.
 

Ekli dosyalar

İlgili satırı aşağıdaki ile değiştirerek deneyin. Aynı mantığı diğer satırlarada uygulayabilirsiniz.

Kod: 
.Cells(Satır, "AH") = IIf(OptionButton1 = True, OptionButton1.Caption, "")
 
fatih34' Alıntı:
sayın hocalarım personelle ilgili formda bir takım öğrendiğim bilgilerle ilgili bir çalışma yapıyorum. Takıldığım yer Userformda 8 adet optionbuton var.
Aşağıdaki kodla kayıt yapıyorum. Ancak örnek olarak birinci optionu işaretleyip kayıt yap dediğimde diğer optionbutonalrıda seçmiş gibi kayıt yapıyor. Bu konuda yardımcı olursanız sevinirim. Örnek çalışmayı ekliyorum.

Kod: 
Private Sub CommandButton1_Click() 'KAYDET TUŞU (Yeni veri girişi için kullanılmaktadır.)

    '1 - Kayıt işlemi için gerekli bilgileri ilgili hücrelere aktarıyoruz.
    With Worksheets("Sayfa1")
        Satır = .Range("A65536").End(3).Row + 1
        .Cells(Satır, "A") = Application.Max(.Range("A2:A" & Satır)) + 1
        .Cells(Satır, "T") = TextBox1.Text
        .Cells(Satır, "B") = TextBox2.Text
        .Cells(Satır, "C") = TextBox3.Text
        .Cells(Satır, "D") = TextBox4.Text
        .Cells(Satır, "E") = TextBox5.Text
        .Cells(Satır, "AA") = TextBox6.Text
        .Cells(Satır, "G") = TextBox7.Text
        .Cells(Satır, "Z") = TextBox8.Text
        .Cells(Satır, "Y") = TextBox10.Text
        .Cells(Satır, "X") = ComboBox1.Text
        .Cells(Satır, "H") = TextBox11.Text
        .Cells(Satır, "I") = TextBox19.Text
        .Cells(Satır, "V") = TextBox20.Text
        .Cells(Satır, "W") = ComboBox3.Text
        .Cells(Satır, "J") = ComboBox4.Text
        .Cells(Satır, "AF") = TextBox17.Text
        [COLOR="Red"]'.Cells(Satır, "AH") = OptionButton1.Caption
        [COLOR="Black"].Cells(Satır, "AH") = IIf(OptionButton1 = True, OptionButton1.Caption, "") 'olması gereken[/COLOR]
        .Cells(Satır, "AI") = OptionButton2.Caption
        .Cells(Satır, "AJ") = OptionButton3.Caption
        .Cells(Satır, "AK") = OptionButton4.Caption
        .Cells(Satır, "AL") = OptionButton5.Caption
        .Cells(Satır, "AM") = OptionButton6.Caption
        .Cells(Satır, "AN") = OptionButton7.Caption
        .Cells(Satır, "AO") = OptionButton8.Caption[/COLOR]
        
        End With

    ThisWorkbook.Save 'her kayıt sonrası dosyayı kaydeder.
    MsgBox "Kayıt işlemi tamamlanmıştır.", vbInformation, "Kayıt İşlemi"
    Unload Me
    UserForm1.Show

End Sub
Genişletmek için tıkla ...

Merhaba. kodlarınızdaki kırmızı ilen gösterilen yerleri levet beyin verdiği kod ile gerekli değişiklikleri yaparak kullanabilirsiniz.

Levent Menteşoğlu' Alıntı:
İlgili satırı aşağıdaki ile değiştirerek deneyin. Aynı mantığı diğer satırlarada uygulayabilirsiniz.

Kod: 
.Cells(Satır, "AH") = IIf(OptionButton1 = True, OptionButton1.Caption, "")
Genişletmek için tıkla ...
 
Teşekkürler saygıdeğer hocalarım. ellerinize. bilginize ve yüreğinize sağlık
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst