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

...mumkun mu? Sub Insert_Picture() Dim My_File_Browser As FileDialog, My_File As String Set My_File_Browser = Application.FileDialog(msoFileDialogFilePicker) With My_File_Browser .Title = "Lütfen Eklemek İstediğiniz Resim Dosyasını Seçiniz..."...

Ustad bu sabah pc geldıgımde rstart yapmıstı. Word de calısmıs oldugum pernonel makroların olmadıgını gordum. Calısmıs oldugum modullere ulasma sansım varmı acaba teknık olarak?

...Option Explicit Sub Insert_Picture() Dim My_File_Browser As FileDialog, My_File As String Set My_File_Browser = Application.FileDialog(msoFileDialogFilePicker) With My_File_Browser .Title = "Lütfen Eklemek İstediğiniz Resim Dosyasını Seçiniz..."...

...Set xAWB = ActiveWorkbook xAWBStrPath = xAWB.Path & "\" & xAWB.Name On Error GoTo ErrHandler Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker) xFileDialog.AllowMultiSelect = False xFileDialog.Title = "Select a forlder" If xFileDialog.Show = -1 Then...

...End Sub Public Function UseFolderDialogOpen() As String Dim lngCount As Long ' Open the folder dialog With Application.FileDialog(msoFileDialogFolderPicker) .AllowMultiSelect = False .Show ' Set Current Folder Path For lngCount = 1 To...

...vergi_borc() Dim dosya As String Dim klasor_liste As String Dim kitap As Workbook Application.ScreenUpdating = False With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Birleştirilecek dosyaların olduğu klasörü seçin" .ButtonName = "Dosya Seç" If .Show = 0 Then Exit Sub Else...

...Dim objFolder As Object Dim objFile As Object Dim i As Integer Dim fldr As FileDialog Dim klasor_adi As String Set fldr = Application.FileDialog(msoFileDialogFolderPicker) fldr.Show klasor_adi = fldr.SelectedItems.Item(1) Set objFSO = CreateObject("Scripting.FileSystemObject") 'Get the folder...

...Dim objFolder As Object Dim objFile As Object Dim i As Integer Dim fldr As FileDialog Dim klasor_adi As String Set fldr = Application.FileDialog(msoFileDialogFolderPicker) fldr.Show klasor_adi = fldr.SelectedItems.Item(1) Set objFSO = CreateObject("Scripting.FileSystemObject") 'Get the folder...

...Dim objFolder As Object Dim objFile As Object Dim i As Integer Dim fldr As FileDialog Dim klasor_adi As String Set fldr = Application.FileDialog(msoFileDialogFolderPicker) fldr.Show klasor_adi = fldr.SelectedItems.Item(1) Set objFSO = CreateObject("Scripting.FileSystemObject") 'Get the folder...

Cok tessekkur ederim super olmus. Elinize emeginize saglik.

...As ThisWorkbook Dim repertoire As String, fichier As String Dim FldrPicker As FileDialog Set FldrPicker = Application.FileDialog(msoFileDialogFolderPicker) With FldrPicker .Title = "Select A Target Folder" .AllowMultiSelect = False If .Show <> -1 Then...

...As FileDialog Dim vrtSelectedItem As Variant Range("A1").CurrentRegion.Offset(2).ClearContents Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .Filters.Clear .Filters.Add "All files", "*.*" .Filters.Add "Images", "*.xls...

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

...gereken Makro : DizinBul Public Sub DizinBul() Dim fd As FileDialog Dim vrtSelectedItem As Variant Set fd = Application.FileDialog(msoFileDialogFolderPicker) With fd If .Show = -1 Then For Each vrtSelectedItem In .SelectedItems...

...için yardımınızı rica ediyorum. Yardımcı olursanız sevinirim. Private Sub Makro1() Dim Pencere As FileDialog Set Pencere = Application.FileDialog(msoFileDialogOpen) Pencere.Filters.Add "Resim Dosyaları", "*.png, .jpg, .jpeg" If Pencere.Show <> 0 Then Userform4.image1.Picture =...

Hocam çok teşşekkür e Hocam çok teşekkür ederim

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