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

Teşekkürler. Ancak maalesef işlem tamamlanmıyor. "Excel başka bir ugulamanın OLE eylemini tamamlamasını bekliyor" şeklinde hata veriyor. Tamam denince 10 saniye bekleyip tekrar aynı hatayı veriyor. Makro sonlanmıyor. Pause/break vs işe yaramıyor. Görev yöneticisinden işlem sonlandırmak zorunda...

..."A").End(xlUp).Row LastColumn = MySheet.Cells(1, MySheet.Columns.Count).End(xlToLeft).Column With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False .Filters.Add "Word Dosyaları", "*.docx", 1 If .Show = True Then MyFile =...

...As Integer Dim xOutlookObj As Object Dim xEmailObj As Object Dim xUsedRng As Range Set xSht = ActiveSheet Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker) If xFileDlg.Show = True Then xFolder = xFileDlg.SelectedItems(1) Else MsgBox "You must specify a folder to save the PDF...

...'31/08/2019 ' Dim DosyaAcPenceresi As FileDialog, Dosya As String Set DosyaAcPenceresi = Application.FileDialog(msoFileDialogOpen) With DosyaAcPenceresi .ButtonName = "DOSYA AÇALIM, BAKALIM :)" .Title = "DOSYA AÇMA PENCERESİ....!"...

sizlere zahmet veriyorum, teşekkür ederim. Aşağıda gif ekledim. Söylediğiniz gibi güncel kodu denedim ekrandaki hatayı alıyorum.

...CloseClipboard& Lib "user32" () #End If Dim bulunan2 Sub tablo_word1() Dim fd As FileDialog Dim i As Integer Set fd = Application.FileDialog(msoFileDialogOpen) fd.AllowMultiSelect = True fd.FilterIndex = 1 fd.Title = "Dosya Açma Penceresi" fd.InitialFileName = ThisWorkbook.Path If fd.Show =...

...kodu revize edeceğim. Sub ShowFileDialog2() Dim fd As FileDialog Dim selectedPaths() As String Dim i As Integer Set fd = Application.FileDialog(msoFileDialogOpen) With fd .AllowMultiSelect = True .FilterIndex = 2 .Title = "Select Excel File(s)" .InitialFileName = "" If .Show = -1 Then...

...14_04_50-Film Hasılat Raporu gibi. Bunları şu şekilde kod ile Film Hasılat Raporu yazan excelleri seçebiliyorum. With Application.FileDialog(msoFileDialogOpen) .InitialFileName = "C:\BiletiniAl\Reports\*Film*Hasılat*Raporu*.xls" If .Show = -1 Then fileopen =...

...istiyorum. Bunu nasıl yapabilirim. Diğer excelde ki makro da şu şekilde; Sub adoRapor() 'veyselEMRE 07042019 With Application.FileDialog(msoFileDialogOpen) .InitialFileName = "C:\BiletiniAl\Reports\*Kasa*Raporu*.xls" If .Show = -1 Then fileopen = .SelectedItems(1)...

...ChDrive ("D:\2019\RAPOR CIKTI\PRES BETON\") On Error GoTo ErrorHandler With Application.FileDialog(msoFileDialogOpen) .InitialFileName = "D:\2019\RAPOR CIKTI\PRES BETON\B*.tst" If .Show = -1 Then Fileopen = .SelectedItems(1) End With Open Fileopen...

...metni girin", vbExclamation Exit Sub End If strReplace = InputBox("Değiştirme metnini girin ") With Application.FileDialog(msoFileDialogFolderPicker) If .Show Then strPath = .SelectedItems(1) Else MsgBox "Klasör seçilmedi!"...

Bunların hepsini gözat diye bir butonun içinemi yazmam gerekiyor.

...As String Dim strSheet As String, strRange As String Dim myArgs() As Variant, argXL4 As String Set FD = Application.FileDialog(msoFileDialogOpen) FD.Title = "Dosya seçin..." FD.Filters.Clear FD.Filters.Add "Excel dosyası", "*.xlsx; *.xlsm"...

Alternatif: Sub Test() Set MyDialog = Application.FileDialog(msoFileDialogOpen) MyDialog.initialFilename = ThisWorkbook.Path MyDialog.Filters.Add "Text dosyaları", "*.txt" If MyDialog.Show = -1 Then MsgBox MyDialog.SelectedItems(1) End Sub .

...yazdırmak istiyorum. Yardımcı olursanız çok sevinirim. Makro Kodu; Sub sayfaDuzenle() 'veyselEMRE 06042019 With Application.FileDialog(msoFileDialogOpen) .InitialFileName = "C:\BiletiniAl\Reports\*Büfe*Rapor*.xls" If .Show = -1 Then fileopen = .SelectedItems(1) End...

...yazdırmak istiyorum. Yardımcı olursanız çok sevinirim. Makro Kodu; Sub sayfaDuzenle() 'veyselEMRE 06042019 With Application.FileDialog(msoFileDialogOpen) .InitialFileName = "C:\BiletiniAl\Reports\*Büfe*Rapor*.xls" If .Show = -1 Then fileopen = .SelectedItems(1) End...

...AktifDosya As Workbook Dim Dosya As Workbook Dim DosyaAdi Set AktifDosya = ActiveWorkbook With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = True .Title = "Birleştirilecek Dosyaları Seçin" If .Show Then...

Merhaba, bu son attığınız makro ilk attığınızdan ne gibi farklılığı var onu anlayamadım. Öğrenmek için soruyorum bunu, birde ben bu makroları asıl kullanmam gereken yerde malesef kullanamadım. Şimdi attığım örnek bu makroyu asıl kullanmak istediğim yer. Ama oraya taşıyamadım. Birleştirilmiş...

Sub sayfaDuzenle2() 'veyselEMRE 07042019 With Application.FileDialog(msoFileDialogOpen) .InitialFileName = "C:\BiletiniAl\Reports\*Büfe*Rapor*.xls" If .Show = -1 Then fileopen = .SelectedItems(1) End With If fileopen = "" Then Exit Sub Set wb =...

Hocam siz neler yaptınız böyle, size çok teşekkür ederim. 2 saattir yapılan işlemleri anlamaya uğraşıyorum ve size gerçekten çok teşekkür ederim. Yazdığınız makroyu iyice anladım. Bunu sürekli kullanabilirim. Tekrar tekrar çok teşekkür ederim size