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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

...musunuz?", vbCritical + vbYesNo + vbDefaultButton2) If Onay = vbNo Then Exit Sub Say = 0 With Application.FileDialog(msoFileDialogFolderPicker) If .Show = -1 Then Call Dosyalari_Sil(.SelectedItems(1), True) End If End With Zaman...

Üstad slm, senide yorduk hakkını helal et. Şimdi kod dosyayı acarken çalışıyor. Ama tek sıkıntı rapor indiğinde dosyayı aç dediğimde Enable Editing uyarısı aldıgımdan kod burayı gecemedıgı ıcın hata verıyor. Bunu edit yaptıktan sonra tekrar open yaparam calısıyor. Bu Enable Editing'i otamatik...

...End Sub Sub Insert_Picture() Dim My_File_Browser As FileDialog, My_File As String Set My_File_Browser = Application.FileDialog(msoFileDialogFilePicker) With My_File_Browser .Title = "Lütfen Eklemek İstediğiniz Resim Dosyasını Seçiniz..." .Filters.Clear...

üstad ekte ikinci resmi eklemek icin sordugu kısım secimsiz olarak eklenmeli Set My_File_Browser = Application.FileDialog(msoFileDialogFilePicker) With My_File_Browser .Title = "Lütfen Eklemek İstediğiniz Resim Dosyasını Seçiniz..."...