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

...musunuz?", vbCritical + vbYesNo + vbDefaultButton2) If Onay = vbNo Then Exit Sub Say = 0 With Application.FileDialog(msoFileDialogFolderPicker) If .Show = -1 Then Call Dosyalari_Sil(.SelectedItems(1), True) End If End With Zaman...

Üstad slm, senide yorduk hakkını helal et. Şimdi kod dosyayı acarken çalışıyor. Ama tek sıkıntı rapor indiğinde dosyayı aç dediğimde Enable Editing uyarısı aldıgımdan kod burayı gecemedıgı ıcın hata verıyor. Bunu edit yaptıktan sonra tekrar open yaparam calısıyor. Bu Enable Editing'i otamatik...

...End Sub 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..." .Filters.Clear...

üstad ekte ikinci resmi eklemek icin sordugu kısım secimsiz olarak eklenmeli Set My_File_Browser = Application.FileDialog(msoFileDialogFilePicker) With My_File_Browser .Title = "Lütfen Eklemek İstediğiniz Resim Dosyasını Seçiniz..."...

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