Soru option button ile seçilen sayfaya veri girişi

[woxow]

Merhaba, option button hakkında çok bilgim yok. Pek çok şeye baktım, bazılarını uygulayabildim, bazılarını yapamadım.

Yapmak istediğim şöyle:
"anasayfa" formundaki "sayfa1" butonuna tıklandığında açılacak olan başka bir formdaki ilgili option buton'da aynı anda seçilmiş olacak.
Option butonla seçilmiş olan sayfaya veri girişi yazılacak.
Böylece ortak kullanılacak tek bir form ile tüm sayfalara veri yazılabilecek.

örnek dosya

Şimdiden teşekkür ederim. Buradan çok şey öğrendim.

 

[tamer42]

Merhaba, option button hakkında çok bilgim yok. Pek çok şeye baktım, bazılarını uygulayabildim, bazılarını yapamadım.

Yapmak istediğim şöyle:
"anasayfa" formundaki "sayfa1" butonuna tıklandığında açılacak olan başka bir formdaki ilgili option buton'da aynı anda seçilmiş olacak.
Option butonla seçilmiş olan sayfaya veri girişi yazılacak.
Böylece ortak kullanılacak tek bir form ile tüm sayfalara veri yazılabilecek.

örnek dosya

Şimdiden teşekkür ederim. Buradan çok şey öğrendim.

Ekli dosyayı inceler misiniz, bu şekilde bir çözüm mü istiyordunuz?

 

[woxow]

ekte olanı göremiyorum altın üye ol diyor. ben işsiz güçsüz, 5 parasız biriyim, iş şansımı arttırmaya çalışıyorum

 

[tamer42]

ekte olanı göremiyorum altın üye ol diyor. ben işsiz güçsüz, 5 parasız biriyim, iş şansımı arttırmaya çalışıyorum

linkten indirebilirsiniz

https://dosya.co/pa8xbonzsvgk/option_button(1).xlsm.html

 

[woxow]

Evet, tam olarak bu, çok teşekkür ederim.
Bu acayip içimi görecek, yoksa dosya boyutu çok artacaktı, her bir sayfaya form oluşturacaktım.
Tek sorum olacak, Anasayfadaki Sayfa butonlarına tıkladığımda Option butonu el ile seçmek yerine o butonlardan nasıl seçilir? doğaçlama birkaç şey denedim ama olmadı.

 

[woxow]

galiba yaptım

Private Sub CommandButton1_Click()
UserForm1.OptionButton1.Value = True
UserForm1.Show
End Sub

şimdi de sayfa butonuna tıkladığımda ayrıca optionda seçili olanı listboxta göstersin kısmını ekleyeceğim ama onu bildiğimi sanıyorum.
çok teşekkür ederim işim çok kolaylaştı ve option butonu da epeyce öğrenmiş oldum.

 

[woxow]

seçilen veriyi göstermeyi yapamadım. farklı bir formdaki listbox ile etkileşim nasıl oluyor?

anasayfa formundaki buton2'a tıklayınca userform1 açıldığında listbox'ta seçilmiş olan sayfanın verisini göstermeyi yapamadım.
Bu kod userform1 içerisindeyken çalışıyor, listbox orada. Bu kodu anasayfa formuna alıp userfom1.listbox1......şeklinde yol girince olmuyor.

Private Sub CommandButton2_Click()
'---option buton seçiyor-------seçilene veri giriliyor----------OK
UserForm1.OptionButton2.Value = True

'---userform1'deki listboxta seçilmiş olan sayfa2'yi göster--------YAPAMADIM
UserForm1.ListBox1.ColumnCount = 2
UserForm1.ListBox1.ColumnWidths = 205
UserForm1.ListBox1.ColumnHeads = True
UserForm1.ListBox1.RowSource = "sayfa2!c5:d" & Sheets("sayfa2").[c65536].End(xlUp).Row + 1

'---userform1 göster----------------------------------OK
UserForm1.Show


End Sub

 

[tamer42]

galiba yaptım

Private Sub CommandButton1_Click()
UserForm1.OptionButton1.Value = True
UserForm1.Show
End Sub

şimdi de sayfa butonuna tıkladığımda ayrıca optionda seçili olanı listboxta göstersin kısmını ekleyeceğim ama onu bildiğimi sanıyorum.
çok teşekkür ederim işim çok kolaylaştı ve option butonu da epeyce öğrenmiş oldum.

Ekli linkteki inceleyiniz, sanırım bunu istiyordunuz

https://dosya.co

 

[tamer42]

seçilen veriyi göstermeyi yapamadım. farklı bir formdaki listbox ile etkileşim nasıl oluyor?

anasayfa formundaki buton2'a tıklayınca userform1 açıldığında listbox'ta seçilmiş olan sayfanın verisini göstermeyi yapamadım.
Bu kod userform1 içerisindeyken çalışıyor, listbox orada. Bu kodu anasayfa formuna alıp userfom1.listbox1......şeklinde yol girince olmuyor.

Private Sub CommandButton2_Click()
'---option buton seçiyor-------seçilene veri giriliyor----------OK
UserForm1.OptionButton2.Value = True

'---userform1'deki listboxta seçilmiş olan sayfa2'yi göster--------YAPAMADIM
UserForm1.ListBox1.ColumnCount = 2
UserForm1.ListBox1.ColumnWidths = 205
UserForm1.ListBox1.ColumnHeads = True
UserForm1.ListBox1.RowSource = "sayfa2!c5:d" & Sheets("sayfa2").[c65536].End(xlUp).Row + 1

'---userform1 göster----------------------------------OK
UserForm1.Show


End Sub

bu linki inceleyiniz....
https://dosya.co/m9k8dz5gauaa/option_button(3).xlsm.html

 

[woxow]

Çok teşekkür ederim. Şöyle yaptım oldu. Öğrenmiş oldum. Şimdi projeme aktarma vakti

Sub listbox1_doldur()
If UserForm1.OptionButton1 = True Then
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = 140
ListBox1.ColumnHeads = True
ListBox1.RowSource = "sayfa1!c5:d" & Sheets("sayfa1").[c65536].End(xlUp).Row + 1

ElseIf UserForm1.OptionButton2 = True Then
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = 140
ListBox1.ColumnHeads = True
ListBox1.RowSource = "sayfa2!c5:d" & Sheets("sayfa2").[c65536].End(xlUp).Row + 1

ElseIf UserForm1.OptionButton3 = True Then
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = 140
ListBox1.ColumnHeads = True
ListBox1.RowSource = "sayfa3!c5:d" & Sheets("sayfa3").[c65536].End(xlUp).Row + 1

End If

 

[tamer42]

Çok teşekkür ederim. Şöyle yaptım oldu. Öğrenmiş oldum. Şimdi projeme aktarma vakti

Sub listbox1_doldur()
If UserForm1.OptionButton1 = True Then
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = 140
ListBox1.ColumnHeads = True
ListBox1.RowSource = "sayfa1!c5:d" & Sheets("sayfa1").[c65536].End(xlUp).Row + 1

ElseIf UserForm1.OptionButton2 = True Then
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = 140
ListBox1.ColumnHeads = True
ListBox1.RowSource = "sayfa2!c5:d" & Sheets("sayfa2").[c65536].End(xlUp).Row + 1

ElseIf UserForm1.OptionButton3 = True Then
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = 140
ListBox1.ColumnHeads = True
ListBox1.RowSource = "sayfa3!c5:d" & Sheets("sayfa3").[c65536].End(xlUp).Row + 1

End If

bence çok uzatmışın, tekrar eden ifadeleri bir seferde yazabilirsin.

ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = 140
ListBox1.ColumnHeads = True

Me.OptionButton3 = True

 

[woxow]

Daha öğreniyorum. Çalışsın da nasıl olursa olsun kısmındayım. Her an başka şey öğreniyorum. Şu an da öğrenmiş oldum, çok işime yarayacak bu da