ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[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 ayrı ayrı veri yazılabilecek.

Teşekkür ederim.

[şahin]

Ekte

option button.rar

[woxow]

işte budur! çok teşekkürler. şimdide sayfa butonuna tıkladığımda aynı zamanda da listboxta o seçilen sayfayı göstersin yapmam gerek ama onu biliyorum sanırım
sayende option butonu da öğrenmiş oldum. teşekkür ederim.

[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. anasayfa formuna alıp userfom1.listbox1......şeklinde yol girince olmuyor.

Kod: Tümünü seç

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


[şahin]

Ekte

option button.rar

[woxow]

Ben o bölümü şöyle kendim hallettim. Sonunda biraz öğrenmeye başladım galiba. Şimdi sizin versiyonunuzu inceleyip, nasıl olduğunu öğreniyorum.
Çok teşekkür ederim siz olmasaydınız hiçbir şey yapamazdım, çok şey öğrendim.

Kod: Tümünü seç

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


command buton ile farklı userformdaki option button'dan seçim yapıp, seçilen sayfaya veri girişi ve listboxta o seçilmiş sayfayı gösterme.
lazım olan faydalanır diye dosyayı ekliyorum ekliyorum.
https://drive.google.com/open?id=1P2EzT_oyDmXDdVjzqtW-m6avi-s4XryE

[woxow]

link düzeltme. kod denemeden kalan bir hatalı kod kalmış, düzeltildi. yeni link:
https://drive.google.com/open?id=1MJGdK6wbUQl77KNqnJTphJLqpV96nW_H