ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[YazılımMerakı]

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

[YazılımMerakı]

Yardımcı olucak yok mu?

[tasad]

Örnek bir dosya eklersen yardımcı oluruz.

[işsiz123]

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

[feraz]

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

[YazılımMerakı]

Teşekkürler. Sayenizde sorunum çözülmüş oldu.

[işsiz123]

Rica ederim. İyi çalışmalar