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

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\" &...

...String Dim YeniAd 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) End If...

...adını değiştirebileyim. Sub 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...

hocam kusura bakmayın araya giriyorum bende aynı işlemler ile uğraşıyorumda burada bende bir yapı değişikliği var dosyayı seçip seçilen dosyadaki verileri başka bir xls deki sayfaya nasıl göndeririz bana o lazım konu sorunuma çok yakın oldugu için araya girmek zorunda kaldım...

...Dim fd As FileDialog Dim SonSatir As Long Dim VeriSatirSayisi As Long ' FileDialog nesnesini oluştur Set fd = Application.FileDialog(msoFileDialogFolderPicker) fd.Title = "TEXT dosyalarınızın olduğu klasörü seçin" ' FileDialog'u göster ve kullanıcı seçimini...

Sub dosyaac() Set fd = Application.FileDialog(msoFileDialogFilePicker) Dim dosya As Variant With fd If .Show = -1 Then For Each dosya In .SelectedItems Workbooks.Open Filename:=dosya Next dosya Else End If End With Set fd = Nothing End Sub Sub Kart_Basmayan() Set s1 = Sheets("Kart_Basmayan") son...

...Then Set WS = Sheets.Add WS.Name = SayfaAdi Else WS.Cells.Clear End If Set fd = Application.FileDialog(msoFileDialogFolderPicker) With fd .Title = "Klasör Seçin" .AllowMultiSelect = False If .Show = -1 Then...

...Dim fso As Object Dim yeniDosyaAdi As String Dim sayac As Integer ' FileDialog ile klasör seç Set fd = Application.FileDialog(msoFileDialogFolderPicker) With fd .Title = "Lütfen resim dosyalarının olduğu klasörü seçin" If .Show <> -1 Then Exit Sub ' İptal...

...Dim fso As Object Dim yeniDosyaAdi As String Dim sayac As Integer ' FileDialog ile klasör seç Set fd = Application.FileDialog(msoFileDialogFolderPicker) With fd .Title = "Lütfen resim dosyalarının olduğu klasörü seçin" If .Show <> -1 Then Exit Sub ' İptal...

Arkadaşlar Merhaba; Aşağıdaki Kodu Outlook VBA da çalıştırdığımda Çıkışlar Klasörü içerindeki mailleri ek olarak kaydediyorum. Bu kodu ben Excel VBA da çalıştırmak istiyorum. Mümkün mü acaba yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürler Sub Mail_Dosya_Ekleri_Kaydet() Dim ns As...

...j As Integer Dim tempStr As String Dim tempDate As Date ' Klasör seçmek için FileDialog'u kullan Set fd = Application.FileDialog(msoFileDialogFolderPicker) ' FileDialog açılır ve kullanıcıdan klasör seçmesi istenir If fd.Show = -1 Then ' Eğer kullanıcı klasör...

PDF dosyalarının oluşturulma tarihine göre sıralı nasıl yazdırılabilir.

...Double Dim fd As FileDialog Dim selectedFolder As Variant ' Klasör seçmek için FileDialog'u kullan Set fd = Application.FileDialog(msoFileDialogFolderPicker) ' FileDialog açılır ve kullanıcıdan klasör seçmesi istenir If fd.Show = -1 Then ' Eğer kullanıcı klasör...

Merhaba, Sayfaya eklediğim resmi, eklediğim alanda bir metin kutusu var olduğunu varsayarak, resmi en arkaya göndermesi için bu kodu nasıl revize edebiliriz. (Örn, aşağıdaki alana sertifika şablonu ekleyeceğim ve metin kutularının en önde durmasını istiyorum)

RBozkurt hocam olmuştur. Emeğinize sağlık.

...listelemek için EVET'i, dosyaları yeniden adlandırmak için HAYIR'ı seçin.", vbYesNo + vbQuestion, "Seçim Yapın") With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Bir Klasör Seçin" .AllowMultiSelect = False If .Show <> -1 Then Exit Sub...