Sağlık Anketi

[Gorarr]

Arkadaşlar bir anket formu oluşturdum. Formda girdiğim kayıtları excele kaydederek gidebiliyor. Ancak optionbutton seçeneklerini excele isim olarak kaydettiremiyorum. { "erkek" seçeneğini işaretlediğimde, exelde uygun gelen kutuya "Erkek" diye yazdıramıyorum.}Kodlar üzerinde yardımcı olursanız çok sevinirim. Teşekkürler...

 

[usubaykan]

Merhaba;

Aşağıdaki kod işinizi görür mü?

Private Sub OptionButton1_Click()
Satır = Range("D65536").End(3).Row + 1
Cells(Satır, "D") = OptionButton1.Caption
End Sub
 
Private Sub OptionButton2_Click()
Satır = Range("D65536").End(3).Row + 1
Cells(Satır, "D") = OptionButton2.Caption
End Sub

 

[hamitcan]

Koda, bu satırı ilave edin.

ActiveCell.Offset(0, 3).Value = IIf(OptionButton1, "e", "k")

 

[Gorarr]

Öncelikle ikinizede çok çok teşekkür ederim. halloldu hatasız gidersem sorun yok ama örneğin erkek diye işaretlediğim anda kaydet demeden kayda geçiyor, o anda bayan diye değiştirirsem bir alt kutuya kaydediyor. Bunuda halletmenin bir yolu varmı aceba.

 

[Gorarr]

Öncelikle ikinizede çok çok teşekkür ederim. halloldu hatasız gidersem sorun yok ama örneğin erkek diye işaretlediğim anda kaydet demeden kayda geçiyor, o anda bayan diye değiştirirsem bir alt kutuya kaydediyor. Bunuda halletmenin bir yolu varmı aceba.

 

[usubaykan]

Merhaba;
#2 nolu mesajımdaki kodu değil de aşağıdaki kodu değiştirip,

Private Sub CommandButton1_Click()
[COLOR=red]If TextBox1 <> Empty Then[/COLOR]
Range("a2").Select
Do While Not IsEmpty(ActiveCell)
    ActiveCell.Offset(1, 0).Select
Loop
If Range("a2").Value = "" Then
    Range("a2").Value = 1
    Range("a2").Select
Else
    ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
ActiveCell.Offset(0, 1).Value = TextBox1.Text
ActiveCell.Offset(0, 2).Value = TextBox2.Text
ActiveCell.Offset(0, 4).Value = TextBox4.Text
ActiveCell.Offset(0, 5).Value = TextBox5.Text
ActiveCell.Offset(0, 6).Value = TextBox6.Text
[COLOR=red]ActiveCell.Offset(0, 3).Value = OptionButton1.Caption[/COLOR]
[COLOR=red]ActiveCell.Offset(0, 3).Value = OptionButton2.Caption[/COLOR]
 
aciklama = "Kayıt yapıldı"
buton = vbOKOnly + vbInformation + vbDefaultButton1
baslik = "Hasta verileri"
MsgBox aciklama, buton, baslik
TextBox1.Text = ""
TextBox2.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
[COLOR=red]Else[/COLOR]
[COLOR=red]MsgBox "Veri girişi yapınız!"[/COLOR]
[COLOR=red]TextBox1.SetFocus[/COLOR]
[COLOR=red]End If[/COLOR]
End Sub

şeklinde kullanınız.

 

[Gorarr]

Teşekkür ederim ilgilendiğiniz için. Bu kodları öğrenmeye başladım. Ancak bu son yolladığınız kod ile "erkek" diye bile işaretlesem hep "bayan" olarak çıkıyor. hatayı bir türlü çözemedim.

hamitcan arkadaşın yolladığı şu kodu;

ActiveCell.Offset(0, 3).Value = IIf(OptionButton1, "e", "k")

da denedim ama yapamadım.

 

[usubaykan]

Merhaba;

#6 nolu mesajımdaki kodu denedinizmi? Bende sorunsuz çalışıyordu. #6 nolu mesajdaki kodu kaydet butonun altına yazmalısınız. Orada yazılı kodu silip #6 nolu mesajdaki kodu yapıştırıp tekrar deneyin.

Teşekkür ederim ilgilendiğiniz için. Bu kodları öğrenmeye başladım. Ancak bu son yolladığınız kod ile "erkek" diye bile işaretlesem hep "bayan" olarak çıkıyor. hatayı bir türlü çözemedim.

hamitcan arkadaşın yolladığı şu kodu;

ActiveCell.Offset(0, 3).Value = IIf(OptionButton1, "e", "k")

da denedim ama yapamadım.

 

[Gorarr]

Tam dediğiniz gibi yaptım. ama optionbuttonda ne seçersem seçeyim excel de veriyi "bayan" olarak giriyor sanırım kodlar son seçenek olan optionbutton2 yi görüyor ve "bayan" seçilmiş gibi davranıyor. Tekrar bakabilirseniz çok sevinirim yine sizde normal çalıştıysa bende başka bir sorun var demektir.

 

[usubaykan]

Merhaba;

Haklısınız kodunuza bir sorgu daha ekledim. Bundan sonra sıkıntı yaşamazsınız diye ümit ediyorum.

Private Sub CommandButton1_Click()
If TextBox1 <> Empty Then
Range("a2").Select
Do While Not IsEmpty(ActiveCell)
    ActiveCell.Offset(1, 0).Select
Loop
If Range("a2").Value = "" Then
    Range("a2").Value = 1
    Range("a2").Select
Else
    ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
ActiveCell.Offset(0, 1).Value = TextBox1.Text
ActiveCell.Offset(0, 2).Value = TextBox2.Text
ActiveCell.Offset(0, 4).Value = TextBox4.Text
ActiveCell.Offset(0, 5).Value = TextBox5.Text
ActiveCell.Offset(0, 6).Value = TextBox6.Text
[COLOR=red]If OptionButton1 = True Then
[/COLOR]ActiveCell.Offset(0, 3).Value = OptionButton1.Caption
Else
ActiveCell.Offset(0, 3).Value = OptionButton2.Caption
[COLOR=red]End If
[/COLOR]aciklama = "Kayıt yapıldı"
buton = vbOKOnly + vbInformation + vbDefaultButton1
baslik = "Hasta verileri"
MsgBox aciklama, buton, baslik
TextBox1.Text = ""
TextBox2.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
Else
MsgBox "Veri girişi yapınız!"
TextBox1.SetFocus
End If
End Sub

Tam dediğiniz gibi yaptım. ama optionbuttonda ne seçersem seçeyim excel de veriyi "bayan" olarak giriyor sanırım kodlar son seçenek olan optionbutton2 yi görüyor ve "bayan" seçilmiş gibi davranıyor. Tekrar bakabilirseniz çok sevinirim yine sizde normal çalıştıysa bende başka bir sorun var demektir.

 

[Gorarr]

Çok teşekkür ederim. Sayenizde çok güzel çalışıyor.

 

[usubaykan]

Rica ederim;-)

Çok teşekkür ederim. Sayenizde çok güzel çalışıyor.