OptionButton

[stres]

arkadaşlar ekli dosyada açıklamasını yaptığım şekli ile veri girişi yapmak mümkünmüdür teşekkürler

 

[Orion1]

Option butonların click olayına

sheets("Sayfa2").select

diğer sorunuza gelince ise frame nesnesi ile option butonlarınız 2 şerli gruplara bölebilirsiniz.

 

[stres]

teşekkürler bir deniyim bakıyım ama option butona tıkladığmda ilgili hücreye var yada yok yazmasının formülü nasıl bu konuyu ilk kez çalıştığım için

 

[stres]

boş boş beklemekten ise checkbox ta kullandığımız formülü deniyim dedim oldu ilgin için teşekkür ederim

 

[Orion1]

teşekkürler bir deniyim bakıyım ama option butona tıkladığmda ilgili hücreye var yada yok yazmasının formülü nasıl bu konuyu ilk kez çalıştığım için

A1 hücresine var yazar.

Range("A1").value="Var"

 

[stres]

teşekkürler bir şey daha optionbuttonları en az 6 olduğunu farzedelim kaydet butonuna bağlamak ve her kaydedişimde bir alt satırdan başlaması mümkünmü

 

[Orion1]

teşekkürler bir şey daha optionbuttonları en az 6 olduğunu farzedelim kaydet butonuna bağlamak ve her kaydedişimde bir alt satırdan başlaması mümkünmü

A sütununda son satıra ve b sütununa son satıra yazar

dim sat as long
sat=cells(65536,"A").end(xlup).row+1
cells(sat,"A").value="Var"
cells(sat,"B").value="Yok"

 

[stres]

bir deniyim bakayım

 

[stres]

sayın evren gizlen malesef vermiş olduğun kodları kaydet butonuna adapte edemedim textbox1 ve ilk dört optionbuttonu adapte etmemde yardımcı olursan ben diğerlerini inşallah yaparım girişler zarf açma sayfasında b14 ten başlayacak her kaydedişte yine a14 ten başlayarak sıra numarası vererek bir alt satıra geçecek dosyayı ekliyorum

 

[Orion1]

Ayni mantıkla diğerlerini siz devam edin.

Private Sub CommandButton2_Click()
Dim i As Long
If TextBox6.Text = "" Then
    MsgBox "Adı boş olamaz..!!", vbCritical, "UYARI"
    TextBox6.SetFocus
    Exit Sub
End If
sat = Cells(65536, "A").End(xlUp).Row + 1
Cells(sat, "B").Value = TextBox6.Text
Cells(sat, "A").Value = sat - 13
If OptionButton1.Value = True Then
    Cells(sat, "C").Value = "Var"
    Else
    Cells(sat, "C").Value = "Yok"
End If
End Sub

 

[stres]

Evren Gizlen Hocam Dün Akşam Çıkmak Zorunda Olduğun İçin Bakamadım Ama Bu Gün Yaklaışık 2 Saattir Uğraşıyorum Vermiş Olduğun Kodlara Kırmızı Olan Yerleri Ekledim Olmadı Çıkardım Olmadı Option Button2 Ve 3 İle Bilgi Girişi Yapamadım Hata Nerde Bilmiyorum

Private Sub CommandButton2_Click()
Dim i As Long
If TextBox6.Text = "" Then
MsgBox "Adı boş olamaz..!!", vbCritical, "UYARI"
TextBox6.SetFocus
Exit Sub
End If
sat = Cells(65536, "A").End(xlUp).Row + 1
Cells(sat, "B").Value = TextBox6.Text
Cells(sat, "A").Value = sat - 13
If OptionButton1.Value = True Then
Cells(sat, "C").Value = "Var"
Else
Cells(sat, "C").Value = "Yok"
If OptionButton2.Value = True Then
Cells(sat, "D").Value = "Var"
Else
Cells(sat, "D").Value = "Yok"

End If

End Sub
Private Sub OptionButton1_Click()
Sheets("Zarf açma").Select
Range("c14").Value = "Var"

End Sub

Private Sub OptionButton2_Click()
Sheets("Zarf açma").Select
Range("c14").Value = "Yok"
End Sub

Private Sub OptionButton3_Click()
Sheets("Zarf açma").Select
Range("D14").Value = "Var"

End Sub

Private Sub OptionButton3_Click()
Sheets("Zarf açma").Select
Range("D14").Value = "Yok"
End Sub

 

[Orion1]

Bir prosedürden 1 tane olmasına dikkat ediniz 2 tane olursa hata verir
Kodlar

If OptionButton1.Value = True Then
Cells(sat, "C").Value = "Var"
Else
Cells(sat, "C").Value = "Yok"
End If
If OptionButton2.Value = True Then
Cells(sat, "D").Value = "Var"
Else
Cells(sat, "D").Value = "Yok"
End If

Private Sub OptionButton3_Click()
Sheets("Zarf açma").Select
If OptionButton1.Value = True Then
    Range("D14").Value = "Var"
    Else
    Range("D14").Value = "Yok"
End If
End Sub

 

[stres]

Yardımların ve emeğin için çok teşekkür ederim e sutununu ekledim çalıştı

 

[Orion1]

Yardımların ve emeğin için çok teşekkür ederim e sutununu ekledim çalıştı

Rica ederim.
İyi çalışmalar.

 

[stres]

evren gizlen hocam formumu tamamlama aşamasındayım
optionbuttonla ilgili son bir şey daha rica edecektim
formumda yapmış olduğum textbox u kaydete tıkladığımda boşaltabliyorum
TextBox6.Text = ""
optionbutonu boşaltmanın komutu nedir
ben şunu yazıyorum
optionbutton1="" o zaman içi dolu olduğu halde pasif oluyor ben boş ve aktif olmasını istiyorum

 

[Orion1]

Optionbutton1.setfocus
optionbutton1.value=false

 

[stres]

teşekkür ederim hayırlı akşamlar

 

[Orion1]

teşekkür ederim hayırlı akşamlar

Rica ederim.
iyi akşamlar.