[Yardım]  OptiumButton ile cinsiyet seçimi yapma.

Seçenek düğmesi

OptiumButton ile cinsiyet seçimi yapma.

İleti#1)  YazılımMerakı » 13 May 2018 11:42

Merhaba. Ben optium button ile cinsiyet seçimi yapmak istiyorum. Erkek seçildiğinde kadın aktif olmicak. Yada tam tersi olduğunda. Bir de Erkek seçildiğinde excel aktarılacak ama her yeni kayıtta bir alt satıra gelicek. Aynısı kadın içinde geçerli olucak. Bu kodları yazdım 1-2 kere geliyor daha sonra gelmiyor. Nerde hatam var ?

Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then [f2] = "ERKEK"
Dolusay = WorksheetFunction.CountA([F:p65536]) + 1
Cells(Dolusay, "F").Value = IIf(OptionButton1, "ERKEK", "ERKEK")

End Sub
Private Sub OptionButton2_Click()
If OptionButton1.Value = True Then [G2] = "KADIN"
Dolusay = WorksheetFunction.CountA([G:p65536]) + 1
Cells(Dolusay, "G").Value = IIf(OptionButton2, "KADIN", "KADIN")

End Sub
Kullanıcı avatarı
YazılımMerakı
 
Kayıt: 13 May 2018 11:37
Meslek: Öğrenci / Bilgisayar Programcılığı
Yaş: 23
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kocaeli

Cevap: OptiumButton ile cinsiyet seçimi yapma.

İleti#2)  YazılımMerakı » 13 May 2018 14:47

Yardımcı olucak yok mu?
Kullanıcı avatarı
YazılımMerakı
 
Kayıt: 13 May 2018 11:37
Meslek: Öğrenci / Bilgisayar Programcılığı
Yaş: 23
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kocaeli

Cevap: OptiumButton ile cinsiyet seçimi yapma.

İleti#3)  tasad » 13 May 2018 15:43

Örnek bir dosya eklersen yardımcı oluruz.
Kullanıcı avatarı
tasad
Site Dostu
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 598
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: OptiumButton ile cinsiyet seçimi yapma.

İleti#4)  işsiz123 » 13 May 2018 17:23

Merhabalar sorularınıza örnek dosya eklerseniz daha erken ve sağlıklı cevap alırsınız.
Anladığım kadarıyla kodlar aşağıdaki gibi olmalı
Kod: Tümünü seç
Private Sub OptionButton1_Click()

If OptionButton1.Value = True Then
sonsat = [f65536].End(3).Row + 1
Cells(sonsat, 6).Value = "Erkek"
End If
End Sub
Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then
sonsat = [g65536].End(3).Row + 1
Cells(sonsat, 7).Value = "KADIN"
End If
End Sub
Kullanıcı avatarı
işsiz123
Siteye Alışmış
 
Adı Soyadı:Mehmet Emin ALKAN
Kayıt: 16 Kas 2016 15:45
Meslek: YAPI DENETİM
Yaş: 25
İleti: 338
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mardin/Midyat

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: OptiumButton ile cinsiyet seçimi yapma.

İleti#5)  feraz » 13 May 2018 21:53

Buda benden altarnatif olsun-

Kod: Tümünü seç
Private Sub OptionButton1_Click()

    If OptionButton1.Value = True Then
        son = Cells(Rows.Count, "G").End(3)(2, 1).Row
        Cells(son, "G").Value = IIf(OptionButton1.Value, "ERKEK", "ERKEK")
        Cells(son, "G").Select
    End If


End Sub

Kod: Tümünü seç
Private Sub OptionButton2_Click()

    If OptionButton2.Value = True Then
        son = Cells(Rows.Count, "G").End(3)(2, 1).Row
        Cells(son, "G").Value = IIf(OptionButton2.Value, "KADIN", "KADIN")
        Cells(son, "G").Select
    End If

End Sub
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5948
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: OptiumButton ile cinsiyet seçimi yapma.

İleti#6)  YazılımMerakı » 13 May 2018 21:58

Teşekkürler. Sayenizde sorunum çözülmüş oldu.
Kullanıcı avatarı
YazılımMerakı
 
Kayıt: 13 May 2018 11:37
Meslek: Öğrenci / Bilgisayar Programcılığı
Yaş: 23
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kocaeli

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: OptiumButton ile cinsiyet seçimi yapma.

İleti#7)  işsiz123 » 15 May 2018 14:58

Rica ederim. İyi çalışmalar
Kullanıcı avatarı
işsiz123
Siteye Alışmış
 
Adı Soyadı:Mehmet Emin ALKAN
Kayıt: 16 Kas 2016 15:45
Meslek: YAPI DENETİM
Yaş: 25
İleti: 338
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mardin/Midyat


Forum OptionButton

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe