2 tane optionbutton bulunan bir userformda birini seçince ona göre işlem yapması

[Orion1]

Merhabalar.
Aşağıdaki şekilde denermisiniz?
OptionButonunuzun isimleri op1 ve op2 olduğu varsayılarak.

if op1.value=true then
--işlemler-----
end if
if op2.value=true then
----işlemler------
end if

 

[olymposss]

çalışıyor ama uyarı mesajı ayarlayamadım

sayın sezar

ilginize çok teşekkürler. uygulama başarılı ancak ben dönem seçilmemiş ise uyarı notu eklemek istiyorum. çünkü bu durumda dönem seçili olmasada kayıt yapıldı mesajı geliyor. o ince noktayı yakalayamadım. yardımlarınız için teşekkürler.:roll: :???:

 

[Orion1]

Merhaba
Seçeneği nerden seçiyorsunuz?
Userform üzerinde bulunan checkbox'ınızmı var?
Yoksa ComboBox'tanmı seçiyorsunuz?Veya Listbox'tan'mı seçiyorsunuz?
Tam anlayamadım.

 

[olymposss]

:yardim: arkadaşlar merhaba kolay gelsin

bu konu daha önce işlendimi bilmiyorum.aradım ama bulamadım.
benim istediğim iki tane option butonu olan bir userformda seçeneklerden birini seçince kaydet butonuna bastığımda seçili olan optionbutton a göre istediğim çalışma sayfasına istediğim hücreye veri yazması ve tabiki diğer seçeneği de seçince başka hücreye yazması.
yardımlarınız için çok teşekkür ederim. şimdiden elinize sağlık.
aşağıdaki formülü denedim ama olmadı. seçim yapmasam dahi kayıt işlemini yapıyor.

Private Sub CommandButton1_Click()
If op1.Enabled Then
Sheets("urunstok").Select
Range("E" & ComboBox1.ListIndex + 2).Select
ComboBox1.SetFocus
ActiveCell.Cells = TextBox1.Value
ComboBox1.SetFocus
Sheets("urunstok").Select
Range("C" & ComboBox1.ListIndex + 2).Select
ComboBox1.SetFocus
ActiveCell.Cells = tarimal.Value
Else
MsgBox "Lütfen Dönem Seçiniz!"
End If
'
If op2.Enabled Then
Sheets("urunstok").Select
Range("F" & ComboBox1.ListIndex + 2).Select
ComboBox1.SetFocus
ActiveCell.Cells = TextBox1.Value
ComboBox1.SetFocus
Sheets("urunstok").Select
Range("G" & ComboBox1.ListIndex + 2).Select
ComboBox1.SetFocus
ActiveCell.Cells = tarimal.Value
Else
MsgBox "Lütfen Dönem Seçiniz!"
End If
MsgBox "ÜRÜNE AİT İMALAT KAYDEDİLDİ!"
ComboBox1.SetFocus
Sheets("ana").Select
End Sub

 

[olymposss]

sayın sezar geciktiğim için özür dilerim

iy günler
evet tam anlatamadım ben kusura bakmayın
örnek dosya ektedir açıklamayı yaptım. yerdımlarınız için teşekkürler
elinize sağlık:???:

 

[olymposss]

Yardim

:yardim: arkadaşlar yardım edebilecek kimse varmı
sizden haber bekliyorum çok teşekkürler.:yardim:

 

[veyselemre]

Private Sub CommandButton1_Click()
Sheets("veri").Select

If op1.Value Then
    Range("c" & ComboBox1.ListIndex + 2).Select
    GoTo ATLA
End If
If op2.Value Then
    Range("d" & ComboBox1.ListIndex + 2).Select
    GoTo ATLA
End If

MsgBox "Dönem Seçili Olmadığı İçin Kayıt Yapılamadı..", , "Lütfen Dönem Seçiniz..."
Exit Sub
ATLA:
ActiveCell.Cells = TextBox3.Value
ComboBox1.SetFocus
MsgBox "ÜRÜNE AİT İMALAT KAYDEDİLDİ!"
End Sub

 

[olymposss]

çok teşekkürler

sn veyselemre

harikasınız çok teşekkürler

saygılar