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

  1. hadromer

    Word Sabit Bir Tablo oluşturup, içerisine fotoğraf eklemek

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

    Word Sabit Bir Tablo oluşturup, içerisine fotoğraf eklemek

    ...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 =...
  3. halit3

    Word Sabit Bir Tablo oluşturup, içerisine fotoğraf eklemek

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

    Soru İsmi değişken excelden veri aktarma

    ...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 =...
  5. Y

    Çözüldü Makro ile başka sayfadaki Makroyu çalıştırmak

    ...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)...
  6. C

    Office 365 işlem çok uzun sürüyor

    ...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...
  7. işsiz123

    BİRDEN FAZLA EXCELL ÇALIŞMA KİTABINDAKİ BİR VERİYİ DEĞİŞTİR İLE BAŞKA VERİ İLE DEĞİŞME

    ...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!"...
  8. B

    Kapalı dosyada makro ile formül

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

    Kapalı dosyada makro ile formül

    ...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"...
  10. H

    Kod çalıştığında Excel, bulunduğu klasöre baksın

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

    Soru İsmi belli olmayan Excelden veri almak

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

    Soru İsmi belli olmayan excelden veri almak. Yardım

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

    Excel de Başka Bir Excel Sayfasından Veri Çekerken Sayfa isimlerini de içerdiği verilerle birlikte Çekme

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

    Soru İsmi belli olmayan excel dosyasından veri çekme

    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ş...
  15. veyselemre

    Soru İsmi belli olmayan excel dosyasından veri çekme

    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 =...
  16. Y

    Soru İsmi belli olmayan excel dosyasından veri çekme

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

    Soru İsmi belli olmayan excel dosyasından veri çekme

    Benden bu kadar... Dosyalar; Sub sayfaDuzenle() 'veyselEMRE 06042019 With Application.FileDialog(msoFileDialogOpen) .InitialFileName = "C:\BiletiniAl\Reports\*Büfe*Rapor*.xls" If .Show = -1 Then fileopen = .SelectedItems(1) End With If fileopen <> "" Then Set...
  18. B

    ~$ ile başlayan excel dosyaları

    ...Dim xFolder As Object 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 = "" Then Exit...
  19. S

    ~$ ile başlayan excel dosyaları

    ...Dim xFolder As Object 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 = "" Then Exit...
  20. Asri

    Klasör isim değiştirme,kopyalama,taşıma Makro Çalışması

    ...Tek safya kullanıldı. İsimler sayfası kod bölümü için Sub kaynaksec() Dim fldr As FileDialog Dim sItem As String Set fldr = Application.FileDialog(msoFileDialogFolderPicker) With fldr .Title = "Kaynak klasörü seçiniz." .AllowMultiSelect = False .InitialFileName =...
Üst