Çözüldü PDF LISTELE YARDIM

[hasanyaprak]

Arkadaşlar merhaba,
Aşağıdaki gibi bir makro kullanıyorum. Normalde çalışıyor ama her seferinde yol göstererek(browse) klasörü tanıtıyorum. Sabit bir klasörden almak istersem neleri değiştirmeliyim.

Klasör yolunu E1 hücresinden alacak

klasor_adi = Sheets("DWG_LISTESI").Range("E1")

Yardımınızı rica ederim.

 

[ÖmerBey]

Merhaba,
Kodu yazmışsınız zaten klasor_adi = Sheets("DWG_LISTESI").Range("E1")
Yukarıdaki değişikliği yaptıktan sonra şu satırları da iptal ediniz.

Dim fldr As FileDialog

Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
fldr.Show

 

[hasanyaprak]

Merhaba,
Kodu yazmışsınız zaten klasor_adi = Sheets("DWG_LISTESI").Range("E1")
Yukarıdaki değişikliği yaptıktan sonra şu satırları da iptal ediniz.

Dim fldr As FileDialog

Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
fldr.Show

Hocam teşekkür ederim. Çalıştı kodlar bu şekilde.