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

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

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

Private Sub CommandButton1_Click() With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False .Title = "Select an image file" .Filters.Clear .Filters.Add "JPG", "*.JPG" .Filters.Add "JPEG File Interchange Format", "*.JPEG"...

Haluk bey, Harika, çok teşekkür ederim. Keşke bir sürü bişey yerine direkt olarak bu kodlamayı yazsaydınız, tanışmamız daha keyifli olacaktı. Madem cevap yazdınız, o halde ekstra bir isteğim olacak, lütfederseniz. "Klasör seçin..." kodlaması yerine, otomatik olarak İCMAL dosyasının da içinde...

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