OptionButton hk

[mraltin]

Arkadaslar Bir userform hazırladım ve buraya girilen bilgiler sayfa1 in ilgli alanlarina geliyor ve yazıcıya gonderiyorum.Sorum userform uzerine 2 tane optionbutton koydum bunlar ERKEK ve KADIN diye cinsiyet belirtiyor.ben ERKEK olani isaretlersen F29 a ERKEK. KADIN isaretlersem F29 a KADIN yazmasini istiyorum.
simdiden tesekkurler.
ben If komutu ile filan denedim ama yapamadim

 

[Levent Menteşoğlu]

Aşağıdaki kodları deneyin.

[vb:1:e8e169d495]Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then [f29] = "ERKEK"
End Sub
Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then [f29] = "KADIN"
End Sub
[/vb:1:e8e169d495]

 

[mraltin]

kodlari yazdim ve calisti tesekkur ederim

 

[efkanaka]

pekii levent.. bu kodu su sekilde yazabilir miyiz..
Cells(DoluSay, "p").Value = IIf(CheckBox1,"Evet","Hayır")

yani her kaydet dediimizde bir sonraki sat1ra ve "p" sütununa nas1l yaz1cam?? tesekkürr..

 

[Levent Menteşoğlu]

Aşağıdaki gibi yazarsanız her seferinde bir alt satıra yazdırabilirsiniz.


Dolusay=worksheetfunction.counta([p165536])+1
Cells(Dolusay, "p").Value = IIf(OptionButton1, "Evet", "Hayır")

 

[efkanaka]

tesekkürlerrr... süpersiniz valla..