Sorgu için arama sonuçları: MultiSelect:=true

...Exit Sub End If Kaynak_Dosya = Application.GetOpenFilename(FileFilter:="Excel Dosyası, *.xls; *.xlsx; *.xlsm", MultiSelect:=True) If IsArray(Kaynak_Dosya) = False Then MsgBox "İşleme devam edebilmeniz için aktarılacak verileri içeren dosyaları seçmelisiniz!", vbCritical...

Arkadaşlar kolay gelsin, Sn. Korhan ayhanın yazdığı bu kod ile birden fazla kapalı dosyadan alınan 4 sütundaki verileri hedef dosyaya farklı sütunlara yazıyordu. aynı yöntemle birden fazla kapalı dosyadan ilk 9 sütundan alınan verileri hedef dosyadaki yine ilk 9 sütuna son satırdan itibaren...

...Excel Workbooks(*.xls;*.xlsx;*.xlsb;*.xlsm),*.xls;*.xls;*.xlsx;*.xlsb;*.xlsm", _ Title:="Select Files to Proceed", MultiSelect:=True) With Application .DisplayAlerts = False .ScreenUpdating = False End With If IsArray(vaFiles) Then For i =...

Merhaba, UserForm'da iki listbox var, ListBox1 için "s5.Range("L2:N" & Cells(Rows.Count, "L").End(3).Row).Value" hücre aralığında bulunan "L"sütünundaki benzersiz değerleri getirdim. ListBox2 için ise listbox1'e gelen verilere tıkladığımda "K" sütununda karşılık gelen verileri benzersiz olarak...

...ChDir Yol Secilen_Dosyalar = Application.GetOpenFilename(Title:="Lütfen mail olarak göndermek istediğiniz dosyaları seçiniz...", MultiSelect:=True) If IsArray(Secilen_Dosyalar) = False Then MsgBox "Dosya seçimi yapmadığınız için işlem iptal edilmiştir.", vbExclamation Exit Sub End If On...

...Yol Secilen_Dosyalar = Application.GetOpenFilename(Title:="Lütfen mail olarak göndermek istediğiniz dosyaları seçiniz...", MultiSelect:=True) If IsArray(Secilen_Dosyalar) = False Then MsgBox "Dosya seçimi yapmadığınız için işlem iptal edilmiştir.", vbExclamation Exit...

...Excel Workbooks(*.xls;*.xlsx;*.xlsb;*.xlsm),*.xls;*.xls;*.xlsx;*.xlsb;*.xlsm", _ Title:="Select Files to Proceed", MultiSelect:=True) With Application .DisplayAlerts = False .ScreenUpdating = False End With If IsArray(vaFiles) Then For i =...

...Yol Secilen_Dosyalar = Application.GetOpenFilename(Title:="Lütfen mail olarak göndermek istediğiniz dosyaları seçiniz...", MultiSelect:=True) If IsArray(Secilen_Dosyalar) = False Then MsgBox "Dosya seçimi yapmadığınız için işlem iptal edilmiştir.", vbExclamation Exit...

...Yol Secilen_Dosyalar = Application.GetOpenFilename(Title:="Lütfen mail olarak göndermek istediğiniz dosyaları seçiniz...", MultiSelect:=True) If IsArray(Secilen_Dosyalar) = False Then MsgBox "Dosya seçimi yapmadığınız için işlem iptal edilmiştir.", vbExclamation Exit...

...Yol Secilen_Dosyalar = Application.GetOpenFilename(Title:="Lütfen mail olarak göndermek istediğiniz dosyaları seçiniz...", MultiSelect:=True) If IsArray(Secilen_Dosyalar) = False Then MsgBox "Dosya seçimi yapmadığınız için işlem iptal edilmiştir.", vbExclamation Exit...

Userformu açmak için sayfaya bir buton ekleyin ve kodları module yazarak butona bağlayın. Sub formac() UserForm1.Show 0 End Sub VBA ekranına geçin bir tane userform oluşturun, forma bir listbox ve CommandButton ilave ederek aşağıdaki kodları forma ilave edin. İşleyişi: Sayfadan...

Yardımınız için çok teşekkür ederim. İyi günler

...Exit Sub End If Hedef_Dosya = Application.GetOpenFilename(FileFilter:="Excel Dosyası, *.xls; *.xlsb; *.xlsx; *.xlsm", MultiSelect:=True) If IsArray(Hedef_Dosya) = False Then MsgBox "İşleme devam edebilmeniz için makronun çalıştırılacağı dosyaları seçmelisiniz!"...

Deneyiniz. Option Explicit Sub Filtrele_Farkli_Kaydet() Dim Zaman As Double, Dosya As Variant, Dizi As Object, XL_App As Object Dim K1 As Workbook, S1 As Worksheet, K2 As Workbook, S2 As Worksheet, Say As Long Dim Son As Long, X As Long, Veri As Variant, Kriter As Variant...

Sayın mancubus, tekrar döndüğünüz için teşekkür ederim.Sizin kodlarınızda farklı açıdan tam sonuç veriyor, ellerinize sağlık fakat benim ihtiyacım olan sonuç ,sayın Korhanın kodlarıyla oynayarak elde ettiğim aşağıdaki kodlar oldu...

Alternatif; Deneyiniz. Option Explicit Sub Filtrele_Farkli_Kaydet() Dim Zaman As Double, Dosya As Variant, Dizi As Object, XL_App As Object Dim K1 As Workbook, S1 As Worksheet, K2 As Workbook, S2 As Worksheet Dim Son As Long, X As Long, Veri As Variant, Kriter As Variant, Say As...

...Bos_Alan As Range, Zaman As Double Dosya = Application.GetOpenFilename(FileFilter:="Excel Dosyası, *.xls; *.xlsx; *.xlsm", MultiSelect:=True) If IsArray(Dosya) = False Then MsgBox "İşleme devam edebilmeniz için düzenleme yapmak istediğiniz dosyaları seçmelisiniz!"...

...= Application.GetOpenFilename(FileFilter:="Excel Çalışma Kitapları (*.xl*),*.xl*", _ Title:="Lütfen Dosya Seçiniz...", MultiSelect:=True) Zaman = Timer If IsArray(Dosya) <> False Then Set Baglanti = CreateObject("AdoDb.Connection") Set S1 =...

...= Application.GetOpenFilename(FileFilter:="Excel Çalışma Kitapları (*.xl*),*.xl*", _ Title:="Lütfen Dosya Seçiniz...", MultiSelect:=True) Zaman = Timer If IsArray(Dosya) <> False Then Set Baglanti = CreateObject("AdoDb.Connection") Set S1 =...

...Exit Sub End If Kaynak_Dosya = Application.GetOpenFilename(FileFilter:="Excel Dosyası, *.xls; *.xlsx; *.xlsm", MultiSelect:=True) If IsArray(Kaynak_Dosya) = False Then MsgBox "İşleme devam edebilmeniz için aktarılacak verileri içeren dosyaları seçmelisiniz!"...