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

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

Bu kodlar çalışıyor ama bir ilave daha rica edeceğim Hocam bu kod ile belirli klasör deki tüm pdf leri listeliyoruz. Peki bunu ilgili klasör ve tüm alt klasörleri şeklinde değiştirebilir miyiz ? G1 hücresi değil de ben o g1 olan yere ana klasör yolunu yazayım alt klasörlerinde de ne kadar pdf...

...As FileDialog Dim xPath As String Dim I As Integer Dim kontrol As Boolean Dim son As Long ' Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker) ' If xFiDialog.Show = -1 Then ' xPath = xFiDialog.SelectedItems(1) ' End If ' Set xFiDialog =...

Aşağıdaki hatayı veriyor hocam çalışmadı. Birde A1 den itibaren aşağıya kadar köprü yaparak yapıştırıyor dosyaları bunu acaba manuel ayarlayabilirmiyiz c3 den itibaren örneğin aşağıya kadar yapıştırması için.

...Dim xFile As Object Dim xFiDialog As FileDialog Dim xPath As String Dim I As Integer ' Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker) ' If xFiDialog.Show = -1 Then ' xPath = xFiDialog.SelectedItems(1) ' End If ' Set xFiDialog = Nothing xPath =...

...Dim xFile As Object Dim xFiDialog As FileDialog Dim xPath As String Dim I As Integer Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker) If xFiDialog.Show = -1 Then xPath = xFiDialog.SelectedItems(1) End If Set xFiDialog = Nothing If xPath...

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

...Private Sub CommandButton3_Click() Dim fso As Object Set fso = VBA.CreateObject("Scripting.FileSystemObject") With Application.FileDialog(msoFileDialogFilePicker) .Title = "Dosya Seçiniz" If .Show = True Then dosya = .SelectedItems(1) End If End With...

...= &H2C Sub Selected_File() Dim DialogBox As FileDialog, My_Picture As Picture, Alan As Range Set DialogBox = Application.FileDialog(msoFileDialogOpen) DialogBox.AllowMultiSelect = False DialogBox.Title = "Select a file" DialogBox.InitialFileName =...

Sayın hocam merhaba. Öncelikle çok uzun süre önce atılmış olan mesajı alıntılayarak "hortlattığım" için kusura bakmayınız. Tam aradığım ve bana lazım olan bir kod çalışması olmuş. Ellerinize sağlık. Çok ufak bir güncelleme rica edeceğim sizden; açıkçası kendim uğraştım ancak kod bilgim o...

Korhan hocam yorduk seni ama halen olmadı. yeni dosya oluşuyor ama boş. kod şu şekilde Option Explicit Sub DOSYALARDAN_VERİ_AL() Dim K1 As Workbook, K2 As Workbook Dim K3 As Workbook, S1 As Worksheet Dim X As Integer, Satır As Integer, Son_Satır As Long Dim Klasör As Object...

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

...Dim w2 As Workbook Dim s2 As Worksheet Dim dosya As Variant Set w1 = ThisWorkbook Set s1 = w1.Worksheets("DataPo_S") With Application.FileDialog(msoFileDialogOpen) .InitialFileName = "C:\Excel" .Title = "Dosya Seç" .ButtonName = "Search PO" .Filters.Clear .Filters.Add "Excel...

...= Nothing: D = vbNullString MsgBox "Aktarma başarılı " End Sub Function KlasorSec(dosyayo1 As String) With Application.FileDialog(msoFileDialogFolderPicker) If sFolder = "" Then .InitialFileName = dosyayol & "\\dosya konumu link yapıştır"...

...Target As Range) Dim pencere As FileDialog If (ActiveCell.Column = 21) Then Set pencere = Application.FileDialog(msoFileDialogOpen) pencere.Filters.Add "Resim Dosyaları", "*.png,*.jpg" If (pencere.Show <> 0) Then ActiveCell = pencere.SelectedItems(1) End...

...Dim w2 As Workbook Dim s2 As Worksheet Dim dosya As Variant Set w1 = ThisWorkbook Set s1 = w1.Worksheets("DataPo_S") With Application.FileDialog(msoFileDialogOpen) .InitialFileName = "C:\Excel" .Title = "Dosya Seç" .ButtonName = "Search PO" .Filters.Clear .Filters.Add "Excel...

...fdgPicker As FileDialog fPath = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") ChDrive fPath Set fdgPicker = Application.FileDialog(msoFileDialogFilePicker) With fdgPicker .InitialView = msoFileDialogViewThumbnail .Filters.Add "Graphics Files (*.bmp; *.jpg; *.jpeg)"...