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

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

Forumda aşağıdaki kodları buldum. Yeni bir excel de çalıştırın dosyalarınızın olduğu klasörü seçin içinde olan dosyaların adını ve uzantısını listeliyor. Ordan bakıp bilgi edinmeye çalışalım.

Merhaba teşekkür ediyorum fakat excel dosyaların içinde bazılarında 2 sayfa var ve isimleri data , komax bu komaxtaki bazı veriler sizin makrodada almamış örnek veriyorum 0535 varyantındaki bu kabloları eklememiş 0522.1-1 0,5 BU 1740 X3707/X1 21A07/X1 A 619 540 05 35 A 619 540 20 13...

...Workbook Dim WsSource As Worksheet Dim WsDest As Worksheet Dim LastRow As Long Dim DestRow As Long With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Bir klasör seçin" .Show If .SelectedItems.Count = 0 Then Exit Sub FolderPath...

Dim s2 As Worksheet Dim dosya As Variant Set w1 = ThisWorkbook Set s1 = w1.Worksheets("Çalışma sayfası adını yazın") With Application.FileDialog(msoFileDialogOpen) .InitialFileName = "veri alınacak dosya yolunu yazın" .Title = "Dosya Seç" .ButtonName = "Seç" .Filters.Clear...