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

  1. N

    Bütün excel dosyalarını alt alta ekleme

    ...Aktarıldı....", vbInformation End Sub Function DizinYoluBul(ByRef DizinYolu As Variant) Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFolderPicker) fd.Show If fd.SelectedItems.Count > 0 Then DizinYolu = fd.SelectedItems(1) End Function Sub TumDosyalariListele(Yol As...
  2. M

    Ayrı ayrı dosyaları makro ile düzeltme

    Hocam hem desteğiniz hem de hoşgörünüz için teşekkür ederim. Göremediğim içinse üzgünüm, özür dilerim. Yazmış olduğunuz kod gayet güzel çalışıyor. Çok teşekkür ederim. Tıkır tıkır maşallah :) Tekrar teşekkür ederim.
  3. N

    Ayrı ayrı dosyaları makro ile düzeltme

    ...Dim fd As FileDialog Dim dsy As Variant Dim adt As Long Application.ScreenUpdating = False Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .Filters.Clear .InitialFileName = "C:\" .AllowMultiSelect = True...
  4. N

    Satır ve sutunun genişliğine göre foto ekle

    ....Left = resimSol End With End Sub Function ResimDosyasiSec() As String Dim lngCount As Long With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = False 'True .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 2 .Show For lngCount =...
  5. emrebengul

    Çalışma sayfasında excel dosyası açma

    ...Dim Baslik As String Dim Hucre1, Hucre2 As Range Set ilk = Application.ActiveWorkbook Baslik = "https://emrebengul.com" With Application.FileDialog(msoFileDialogOpen) .Filters.Clear .Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa" .AllowMultiSelect = False .Show If...
  6. emrebengul

    excel'e başka bir excel'den veri çekmek

    ...Dim Baslik As String Dim Hucre1, Hucre2 As Range Set ilk = Application.ActiveWorkbook Baslik = "https://dilaverajder.com" With Application.FileDialog(msoFileDialogOpen) .Filters.Clear .Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa" .AllowMultiSelect = False .Show If...
  7. O

    dosya açma ve dosya yolu

    ...istiyorum. Private Sub CommandButton5_Click() Sheets("BİRİM").Select Sheets("BİRİM").Range("a1:Ah2500").ClearContents With Application.FileDialog(msoFileDialogOpen) .Filters.Clear .Filters.Add "excel 2007-13", "*.xlsx;*.xlsm;*.xls" AllowMultiSelect = False .Show If .SelectedItems.Count = 0...
  8. F

    Başka excel dosyasından belli sütunlardaki hücreleri boşluk yaratarak çekmek

    ...yoktur) Mevcut makrom şuanda bu şekildedir bu makrom üzerinden düzenleme yapmanızı rica ederim. Sub veriCekmek() With Application.FileDialog(msoFileDialogOpen) .Filters.Clear .Filters.Add "Excel 2007-13", "*.xlsx;*.xlsm;*.xlsa;*.csv" .AllowMultiSelect = False .Show If...
  9. H

    Xml Dosyasından veri Çekme

    ...Set xDoc = CreateObject("MSXML2.DOMDocument") xDoc.async = False xDoc.validateOnParse = False Set MyFolder = Application.FileDialog(msoFileDialogFolderPicker) If MyFolder.Show <> 0 Then Set SourceFolder = FSO.GetFolder(MyFolder.SelectedItems(1)) Else...
  10. H

    Xml Dosyasından veri Çekme

    ...xDoc = CreateObject("MSXML2.DOMDocument") xDoc.async = False xDoc.validateOnParse = False Set MyFolder = Application.FileDialog(msoFileDialogFolderPicker) If MyFolder.Show <> 0 Then Set SourceFolder = FSO.GetFolder(MyFolder.SelectedItems(1)) Else...
  11. tukayf

    Soru Gözat ile kapalı dosyadan veri alma

    ...Dim Baslik As String Dim Hucre1, Hucre2 As Range Set ilk = Application.ActiveWorkbook Baslik = "https://dilaverajder.com" With Application.FileDialog(msoFileDialogOpen) .Filters.Clear .Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xls" .AllowMultiSelect = False .Show If...
  12. M

    Soru Adresini Gösterdiğim Excelden belirli sütunlarındaki verileri Makrodaki sayfaya çektirme

    ...hedefsayfa As Worksheet Dim kolon As Variant Dim s As Variant dim i as long Dim fileDialog As fileDialog Set fileDialog = Application.fileDialog(msoFileDialogFilePicker) With fileDialog .AllowMultiSelect = False .Title = "Kaynak Dosya Seç" .Filters.Clear...
  13. işsiz123

    Çözüldü sayfa adı bulma

    ...DosyaOku() FSO'yu = CreateObject("Scripting.FileSystemObject") olarak ayarlar Office.FileDialog Olarak fd'yi Dim fd = Application.FileDialog(msoFileDialogFilePicker) olarak ayarlar fd sonucu .AllowMultiSelect = Yanlış .Filtreler.Temizle .Title = "Bir Excel...
  14. işsiz123

    Soru Kapalı dosyadan veri alma hatası

    ...Teşekkürler Sub DosyaOku() Set FSO = CreateObject("Scripting.FileSystemObject") Dim fd As Office.FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .AllowMultiSelect = False .Filters.Clear .Title = "Select a Excel File"...
  15. M

    Çözüldü Makro ile Sectigimiz Raporlari PDF olarak print almak

    ...Dim RaparNo2 As Long Dim i As Long ' Klasör seçme iletisim kutusu göstererek FilePath'i ayarlayin With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Klasör Seçin" If .Show <> -1 Then MsgBox "Klasör seçilmedi. Makro sonlandiriliyor."...
  16. skaan

    Çözüldü Excel Çalışma Kitabındaki Sayfanın xlsx Uzantılı Olarak Microsoft Outlook Programına Giden Maile Ek Olarak Eklenmesi Hk.

    ...' Kaydedilecek dosyanın tam yolunu belirle If KlasorYolu = "" Then With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Kaydedilecek klasörü seçin" .Show If .SelectedItems.Count > 0 Then...
  17. tamer42

    ADO UPDATE SQL Table/Record

    ...desteğiniz için teşekkürler, iyi Çalışmalar. Sub UseFileDialogOpen() Dim fd As Office.FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .Filters.Clear .Title = "Select an Excel File" .Filters.Add "Excel Files", "*.xlsx?"...
  18. uzmanamele

    Resim Yükleme Kodunda Hata

    Aynı şey değil mi? Neyi değiştirdiniz?
  19. airborne

    Resim Yükleme Kodunda Hata

    s.a. Set File = Application.FileDialog(msoFileDialogFolderPicker) yerine Set File = Application.FileDialog(msoFileDialogFolderPicker) yaptım düzeldi.
  20. airborne

    Resim Yükleme Kodunda Hata

    ...buton ile resim eklemek istiyorum, Private Sub CommandButton1_Click() Dim File As FileDialog Dim DosyaY As String Set File = Application.FileDialog(msoFileDialogFolderPicker) File.AllowMultiSelect = False File.Filters.Clear File.Filters.Add "Resim Dosyası", "*.jpg?", 1 File.Show If...
Üst