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

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...

...End Sub Private Sub CommandButton5_Click() Worksheets("Data").PrintOut End Sub Private Sub CommandButton6_Click() With Application.FileDialog(msoFileDialogOpen) .Filters.Clear .Filters.Add "Excel 2007-13", "*.xlsx;*.xlsm;*.xlsa" .AllowMultiSelect = False .Show If .SelectedItems.Count = 0...

...Selection.End(xlDown)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Delete Shift:=xlUp With Application.FileDialog(msoFileDialogOpen) .Filters.Clear .Filters.Add "excel 2007-13", "*.xlsx;*.xlsm;*.xls" AllowMultiSelect = False .Show If .SelectedItems.Count = 0 Then MsgBox...

...xStrPath As String Dim xFileDialog As FileDialog Dim xFile As String On Error Resume Next Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker) xFileDialog.AllowMultiSelect = False xFileDialog.Title = "Select a folder [Kutools for Excel]" If...

...xStrPath As String Dim xFileDialog As FileDialog Dim xFile As String On Error Resume Next Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker) xFileDialog.AllowMultiSelect = False xFileDialog.Title = "Klasör Seçiniz" If xFileDialog.Show = -1 Then...