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