schlecht
Altın Üye
- Katılım
- 13 Kasım 2009
- Mesajlar
- 337
- Excel Vers. ve Dili
- Ofis 2016 TR 64 Bit
- Altın Üyelik Bitiş Tarihi
- 23-02-2025
Aşağıdaki kod ile dosya seçebiliyorum. Dosya yolunu sabit hale nasıl getirebilirim. Teşekkürler.
Application.ScreenUpdating = False
Cells(2, 1).Select
With Application.FileDialog(msoFileDialogFolderPicker)
On Error GoTo Bitir
.Show
MyFolder = .SelectedItems(1)
Bitir:
If MyFolder = "" Then Exit Sub
End With
MyFile = Dir(MyFolder & "\*.xlsm")
Do While MyFile <> ""
Workbooks.Open Filename:=MyFolder & "\" & MyFile
kit = ActiveWorkbook.Name
For syf = 1 To Sheets.Count
Sheets(syf).Select
Application.ScreenUpdating = False
Cells(2, 1).Select
With Application.FileDialog(msoFileDialogFolderPicker)
On Error GoTo Bitir
.Show
MyFolder = .SelectedItems(1)
Bitir:
If MyFolder = "" Then Exit Sub
End With
MyFile = Dir(MyFolder & "\*.xlsm")
Do While MyFile <> ""
Workbooks.Open Filename:=MyFolder & "\" & MyFile
kit = ActiveWorkbook.Name
For syf = 1 To Sheets.Count
Sheets(syf).Select
