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

Hocam çok teşekkür ederim Sorunsuz çalıştı. Sağ olun. Var olun.

...Dim geciciListe As Object Dim i As Long, j As Long Dim key As Variant ' Klasör yolunu seçtir With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Dergi sayfalarının bulunduğu klasörü seç" If .Show = -1 Then klasorYolu =...

Hocam emeğinize sağlık. Mükemmel bir çalışma. Ben hep elle yapıyordum. Sağ olun var olun. Ben izninizle Right olarak kullanırım. Yalnız hocam şöyle biz WhatsApp üzerinden gelen fotoğrafları çok kaydediyoruz. Fotoğraf WhatsApp Image 2026-03-20 at 18.01.32 şeklinde isimlendiriliyor. Hiç...

...Dim DosyaAdi As String, Uzanti As String Dim YeniAd As String Dim Sayac As Long ' Klasör seç With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Klasör Seçiniz" If .Show = -1 Then Klasor = .SelectedItems(1) & "\" Else...

...= False Application.DisplayAlerts = False Set wb = ThisWorkbook ' Dosya seçme Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .AllowMultiSelect = False .Title = "Word dosyasını seçin (.doc veya .docx)" .Filters.Clear...

...' Başlangıç satırı (Eğer sayfa boşsa 1; istersen değiştirebilirsin) curRow = 1 ' Dosya seçme dialogu Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .AllowMultiSelect = False .Title = "Word dosyasını seçin (.doc veya .docx)"...

...Object Dim i As Long Set fso = CreateObject("Scripting.FileSystemObject") ' --- Çoklu Dosya Seçimi --- With Application.FileDialog(msoFileDialogFilePicker) .Title = "Kopyalanacak Dosyaları Seçiniz" .AllowMultiSelect = True ' <<< Çoklu seçim aktif If...

...As String Dim hedefYol As String Set fso = VBA.CreateObject("Scripting.FileSystemObject") ' Dosya seçimi With Application.FileDialog(msoFileDialogFilePicker) .Title = "Dosya Seçiniz" If .Show = True Then dosya = .SelectedItems(1) Else...

...'----- dosya kopyalama------------ 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 Set ObjFolder...

...As Document Dim eklenecekDoc As Document Dim docRange As Range Set anaDoc = Documents.Add Set dlg = Application.FileDialog(msoFileDialogFolderPicker) With dlg .Title = "Word dosyalarının bulunduğu klasörü seçin" If .Show <> -1 Then...

...String If Intersect(Target, Me.Range("A:A")) Is Nothing Then Exit Sub If ResimKlasoru = "" Then With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Resimlerin bulunduğu klasörü seçin" If .Show = -1 Then ResimKlasoru =...

...tempDoc As Document Dim pageRange As Range Dim fileName As String Dim paraText As String Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker) If xFileDlg.Show <> -1 Then MsgBox "Lütfen geçerli bir klasör seçin.", vbInformation Exit Sub...

...As String Dim xFileDlg As FileDialog Dim xStartPage, xEndPage As Long Dim xStartPageStr, xEndPageStr As String Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker) If xFileDlg.Show <> -1 Then MsgBox "Please chose a valid directory", vbInformation, "Kutools for Word" Exit Sub End...

...xFileDlg As FileDialog Dim xStartPage, xEndPage As Long Dim xStartPageStr, xEndPageStr As String Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker) If xFileDlg.Show <> -1 Then MsgBox "Please chose a valid directory", vbInformation, "Kutools for Word"...

...adında bir sayfa bulunamadı.", vbCritical Exit Sub End If On Error GoTo 0 ' Klasör seçtir Set fd = Application.FileDialog(msoFileDialogFolderPicker) fd.Title = "CSV dosyalarının kaydedileceği klasörü seçin" If fd.Show <> -1 Then MsgBox "Klasör...

harika bir şekilde çalıştı yine de sağlama yapacağım bir sorun olursa dönüş yaparım ama tam olarak yapmaya çalıştığım buydu çok teşekkürler ilginiz için

2018 klasörüne uyguladığımda tüm aylar için listele dediğimde kod sorunsuz çalışmıştı. Fakat diğer klasörlerde denediğimde tüm ayları listele dediğimde automation error hatası alıyorum. İlginç bir şekilde 2019-2020-2021-2022 klasörülerinde ay seçmeden arama yaptığımda sol altta inceleniyor...

Dostum bu çalışma için çok teşekkürler hatasız verileri çekmeyi başardım. Kodlarda oynama yapmama gerek bile kalmadı hatta. İnisiyatifin için tekrar teşekkürler. Bence oldukça verimli bir çalışma oldu yararlanacak arkadaşlar da vardır. Belki ufak bir ekleme yapmak gerekirse dosya adlarını...

...biliyorum. Private Sub CommandButton7_Click() Dim dialogbox As FileDialog Dim dosyaY As String Set dialogbox = Application.FileDialog(msoFileDialogFolderPicker) dialogbox.AllowMultiSelect = False dialogbox.Filters.Clear dialogbox.Filters.Add "Resim Dosyası", "*.jpg?", 1 dialogbox.Show...

Hocam emeğinize sağlık. Hocam özellikle resimlerle ilgili dosyalar benim ilgimi çekiyor da. Burada 21-22 yazan yere resmin kaydedileceği dosya yolu yazılacak değil mi. Bu sefer modüle :) Yani benim klasörüm için fso.CopyFile Dosya, ThisWorkbook.Path & "\C:\Users\muratgunay48\Desktop\test\" &...