ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[Slayer]

Merhabalar,

Kod: Tümünü seç

mainpath = "Userform1.Textbox.Text"

dizinindeki tüm resimleri çeken bir dosya mevcut.
Kısaca Textbox'a girilen dizin yolundaki tüm resimleri exele çekiyor. Fakat Ben bu dizinleri Optionbox ile seçmeli hale getirmek istiyorum fakat uğraşlarım sonucunda yapamadım.

Kod: Tümünü seç

Checkbox1= C:\Folder\2019
Checkbox2=C:\Folder\2018


Userform üzerinden Optionbox 1 Seçildiğinde Textbox1'e C:\Folder\2019 dizini otomatik olarak gelsin gelsin.
Optionbox2' seçildiğinde ise C:\Folder\2018 dizini gelsin.Arama yapmasına gerek yok. Sadece seçildiği zaman bu dizinlerin yol olarak textbox1 e kopyalanmasını nasıl yapabiliriz?
Bilgi ve paylaşımınz için şimdiden çok teşekkürler.

[Slayer]

Düzeltme, Checkbox yazdığıma bakmayın Optionbox olacak. Yada Checkbox ile de yapılabilir sanırım. Ne olduğu pek önemli değil.

[Miraç CAN]

Kod: Tümünü seç

Private Sub OptionButton1_Click()
UserForm1.TextBox.Text = "C:\Folder\2019"
End Sub
Private Sub OptionButton2_Click()
UserForm1.TextBox.Text = "C:\Folder\2018"
End Sub


[Slayer]

Kod: Tümünü seç

Private Sub OptionButton1_Click()
UserForm1.TextBox.Text = "C:\Folder\2019"
End Sub
Private Sub OptionButton2_Click()
UserForm1.TextBox.Text = "C:\Folder\2018"
End Sub


Çok teşekkürler @Miraç CAN