Sorgu için arama sonuçları: Application.FileDialog

Şöyle deneyin: Dim folderPath As String Dim a As String Dim yol As Variant With Application.FileDialog(msoFileDialogFilePicker) .Show If .SelectedItems.Count = 0 Then Exit Sub End If folderPath = .SelectedItems(1) End With yol = Split(Mid(folderPath, 1), "\") a = yol(UBound(yol)) Not: Siz...

...adını yazmak mümkün mü Yardımcı olursanız sevinirim. . Şimdiden tşk.ler. Dim folderPath As String Dim a As String With Application.FileDialog(msoFileDialogFilePicker) .Show If .SelectedItems.Count = 0 Then Exit Sub End If folderPath...

...s1 = w1.Worksheets("Sayfa1") Dim sonsat As Integer sonsat = s1.Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To sonsat With Application.FileDialog(msoFileDialogOpen) .InitialFileName = "C:\Users\eli\Desktop\burhan\" Dosya = w1.Worksheets("Sayfa1").Cells(i, 1) End With...

Merhabalar, Bu kodu olduğu gibi kullanıyorum ve çok memnunum. Gayet başarılı ellerinize sağlık. Yalnız benim ayrıca istediğim. Bu işlemi yaparken ayrıca klasör içindeki yalnızca dosyaları değil de klasör içindeki alt klasörleri listelemesi ve bunlara köprü eklemesi. Yani dosyalara köprü eklemesi...

Hocam teşekkür ederim.

...As String Init = "D:\Belgelerim\Downloads\deney*" Range("L2:L" & Cells(Rows.Count, "L").End(xlUp).Row).Copy With Application.FileDialog(msoFileDialogOpen) If (Dir(Init, vbDirectory)) <> "" Then .InitialFileName = Init .Filters.Clear .Filters.Add "Excel...

...Workbook Dim Hucre2, Hucre1 As Range Set ikinci = Application.ActiveWorkbook Set ikinci = Application.ActiveWorkbook With Application.FileDialog(msoFileDialogOpen) .InitialFileName = "D:\Belgelerim\Downloads\deney*" .Filters.Clear .Filters.Add "Excel 2003-2019", "*.xls...

Teşekkür ederim. Kod yazmadan yapılabilir mi?

...şekilde rahatlıkla hücre aralığını belirleyerek aktarım yapabilirsiniz. Başarılar... Private Sub CommandButton1_Click() With Application.FileDialog(msoFileDialogOpen) .Filters.Clear .Filters.Add "Excel 2007-13", "*.xlsx;*.xlsm;*.xlsa" .AllowMultiSelect = False .Show If...

...son dolu satırın bir altındaki boş satıra atacak çektiği veriyi. Şimdiden teşekkürler, iyi çalışmalar. Sub Makro1() With Application.FileDialog(msoFileDialogOpen) .Filters.Clear .Filters.Add "Excel 2007-13", "*.xlsx;*.xlsm;*.xlsa" .AllowMultiSelect = False .Show If .SelectedItems.Count...

...Veri Aktarma.. başlıklı konuma çözüm bulamadığım için farklı bir yöntem ile sorunu çözmeye çalışıyorum. Sub Makro1() With Application.FileDialog(msoFileDialogOpen) .Filters.Clear .Filters.Add "Excel 2007-13", "*.xlsx;*.xlsm;*.xlsa" .AllowMultiSelect = False .Show If .SelectedItems.Count...

...Veri_Adedi As Long Set K1 = ActiveWorkbook Set S1 = K1.Sheets("Fişler") S1.Cells.Delete With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = True .Title = "Birleştirilecek Dosyaları Seçiniz..." If .Show Then...

...Dim AktifDosya As Workbook Dim Dosya As Workbook Dim DosyaAdi Set AktifDosya = ActiveWorkbook With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = True .Title = "Birleştirilecek Dosyaları Seçin" If .Show Then For...

Merhaba, Problemi çözdüm. Kodu merak edenler için aşağıda paylaşıyorum. Sub CSVtoXLS() 'UpdatebyExtendoffice20170814 Dim xSPath As String, NewPath As String Dim xCSVFile As String Dim wkbActv As Workbook, wkbCSV As Workbook Set wkbActv = ActiveWorkbook With Application .DisplayAlerts = False...

...Dim xWsheet As String Application.DisplayAlerts = False Application.StatusBar = True xWsheet = ActiveWorkbook.Name Set xFd = Application.FileDialog(msoFileDialogFolderPicker) xFd.Title = "Select a folder:" If xFd.Show = -1 Then xSPath = xFd.SelectedItems(1) Else Exit Sub End If If...

...anlayabilmek benim için daha önemli) Yardımcı olabilirseniz çok sevinirim Sub adoRapor() 'veyselEMRE 07042019 With Application.FileDialog(msoFileDialogOpen) .InitialFileName = "C:\BiletiniAl\Reports\*Büfe*Rapor*.xls" If .Show = -1 Then fileopen = .SelectedItems(1)...

Merhaba Aşağıdaki şekilde kullanınız. Selamlar... Sub Klasör_Secimi() '23.03.2022 11:56 With Application.FileDialog(msoFileDialogFolderPicker) If .Show = -1 Then Cells(3, 4) = .SelectedItems(1) Call Aktar End If End With End Sub Sub Aktar()...

...Tekrar Merhaba Son talebinizi karşılayan makro kodu aşağıdadır. Selamlar... Sub Klasör_Secimi() '23.03.2022 11:56 With Application.FileDialog(msoFileDialogFolderPicker) If .Show = -1 Then Cells(3, 4) = .SelectedItems(1) Call Aktar End If End With...

Merhaba Kodlar aşağıdadır. Sub Klasör_Secimi() '23.03.2022 11:56 With Application.FileDialog(msoFileDialogFolderPicker) If .Show = -1 Then Cells(3, 4) = .SelectedItems(1) Call Aktar End If End With End Sub Sub Aktar() '23.03.2022 09:06 Dim anadosya...

...Dosyanın daha gelişmiş halini ekliyorum. İyi çalışmalar... Ekran Resmi Sub Klasör_Secimi() '23.03.2022 11:56 With Application.FileDialog(msoFileDialogFolderPicker) If .Show = -1 Then Cells(3, 4) = .SelectedItems(1) Call Aktar End If End With End Sub...