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

...As Range Dim myArgs() As Variant, argXL4 As String Range("A2:AH" & Rows.Count) = Empty Set fDialog = Application.FileDialog(msoFileDialogFolderPicker) With fDialog .Title = "Klasör seçin..." .AllowMultiSelect = False .InitialFileName =...

Teşekkür ederim. İstediğim gibi oldu ancak hafta tarihlerini girdikten sonra devam etmesi için "Devir" sayfasına geri dönmeden nasıl devam ettirebilirim. Hafta tarihleri sayfasında bir butonla da olabilir.

...'Sub Düğme11_Tıklat() output = MsgBox("KAYIT YERİNİ SEÇİN", vbInformation) Dim fd As Office.FileDialog Set fd = Application.FileDialog(msoFileDialogFolderPicker) With fd .AllowMultiSelect = False If .Show = True Then pathSelected = .SelectedItems(1)...

...'............ KODLARIM output = MsgBox("KAYIT YERİNİ SEÇİN", vbInformation) Dim fd As Office.FileDialog Set fd = Application.FileDialog(msoFileDialogFolderPicker) With fd .AllowMultiSelect = False If .Show = True Then pathSelected = .SelectedItems(1) End...

Bu kodu bir dene Sub dozimetri_al() Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogOpen) fd.InitialFileName = ThisWorkbook.Path Dim FileChosen As Integer FileChosen = fd.Show fd.Title = "Dosya Penceresi" fd.Filters.Clear fd.Filters.Add "Excel Files", "*.xls" fd.FilterIndex...

...Sub Düğme11_Tıklat() output = MsgBox("KAYIT YERİNİ SEÇİN", vbInformation) Dim fd As Office.FileDialog Set fd = Application.FileDialog(msoFileDialogFolderPicker) With fd .AllowMultiSelect = False If .Show = True Then pathSelected = .SelectedItems(1) End If...

...Range("A2:b500").ClearContents Cells(2, 1).Select Application.ScreenUpdating = False Cells(2, 1).Select With Application.FileDialog(msoFileDialogFolderPicker) On Error GoTo Bitir .Show MyFolder = .SelectedItems(1) Bitir: If MyFolder = "" Then Exit Sub End With MyFile =...

...Range("A2:b500").ClearContents Cells(2, 1).Select Application.ScreenUpdating = False Cells(2, 1).Select With Application.FileDialog(msoFileDialogFolderPicker) On Error GoTo Bitir .Show MyFolder = .SelectedItems(1) Bitir: If MyFolder = "" Then Exit Sub End With MyFile =...

...Range("A2:b500").ClearContents Cells(2, 1).Select Application.ScreenUpdating = False Cells(2, 1).Select With Application.FileDialog(msoFileDialogFolderPicker) On Error GoTo Bitir .Show MyFolder = .SelectedItems(1) Bitir: If MyFolder = "" Then Exit Sub End With MyFile =...

...Dosya yolunu sabit hale nasıl getirebilirim. Teşekkürler. Application.ScreenUpdating = False Cells(2, 1).Select With Application.FileDialog(msoFileDialogFolderPicker) On Error GoTo Bitir .Show MyFolder = .SelectedItems(1) Bitir: If MyFolder = "" Then Exit Sub End With...

....Name = "Arial" .FontStyle = "Bold" .Size = 10 End With xRg.EntireColumn.AutoFit Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker) I = 1 If xFileDlg.Show = -1 Then xFileDlgItem = xFileDlg.SelectedItems.Item(1) xFileName =...

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

Teşekkürler Haluk Bey. Mantığını anladım. Önce biçim seçip sonra metin eklemek gerekiyor demek ki. Ancak paragraf hizalamayı yapmadı nedense. Bu kodlara oluşturulan dosyayı açmak ya da bulunduğu klasörü açmak için kod eklenebilir mi?

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

Haluk Bey, bu kodları dosyada yaptığım bazı değişikliklere göre değiştirdim ve kendime uygun hale getirdim. Çok teşekkür ederim, çok güzel çalışıyor. Yapamadığım 2 şey kaldı, görevleri sıralarken madde imlerini koyulaştıramadım ve metni iki yana yasla özelliğini yapamadım. Kendim excel...

Şimdi word dosyasını farklı kaydedip o dosya üzerinde denedim, oldu. Teşekkürler. İlk denemede yanlış bir şeyler yaptım demek ki.:oops:

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