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

Deneyiniz. Option Explicit Sub Kapali_Dosyayi_Acarak_Veri_Aktar() Dim XL_App As Object, K1 As Object, S1 As Object Dim K2 As Object, S2 As Object, Zaman As Double Dim Yol As String, Kaynak_Dosya As Variant, X As Byte Dim Hedef_Dosya As Variant, Son As Long, Sutun As Byte...

Korhan bey çok güzel olmuş gerçekten ilgi, alakanız ve yardımlarınız için gerçekten çok teşekkür ederim :).

...= Application.GetOpenFilename(FileFilter:="Excel Çalışma Kitapları (*.xl*),*.xl*", _ Title:="Lütfen Dosya Seçiniz...", MultiSelect:=True) If IsArray(Excel_Dosyalari) = False Then MsgBox "Dosya seçimi yapmadığınız için işlemini iptal edilmiştir.", vbCritical...

Önce çalıştı S1.Cells(Satir, Sutun) = Kayit_Seti(12) kodunda hata verdi neden olmuş olabilir

...= Application.GetOpenFilename(FileFilter:="Excel Çalışma Kitapları (*.xl*),*.xl*", _ Title:="Lütfen Dosya Seçiniz...", MultiSelect:=True) If IsArray(Excel_Dosyalari) = False Then MsgBox "Dosya seçimi yapmadığınız için işlemini iptal edilmiştir.", vbCritical...

Korhan bey çok teşekkür ederim çalışıyor sadece 1 şey kalmış seçtiğim dosyların sayfalarını toplamın bulunduğu excelin içine aktarmıyor sadece. haricinde çok güzel çalışmış elinize emeğinize sağlık

...= Application.GetOpenFilename(FileFilter:="Excel Çalışma Kitapları (*.xl*),*.xl*", _ Title:="Lütfen Dosya Seçiniz...", MultiSelect:=True) If IsArray(Excel_Dosyalari) = False Then MsgBox "Dosya seçimi yapmadığınız için işlemini iptal edilmiştir.", vbCritical...

Selamunaleyküm Arkadaşlar multiselect özelliği aktif olan bir listboxım var. Bu listboxın bulunduğu userform instalize olurken listboxın ilk 2 satır seçili olarak gelmesini istiyorum ama beceremedim. Multi select özelliğini listbox1.Selected(x) =true olarak kullanmayı oradaki seçili değerleri...

Korhan bey çok teşekkür ederim. Kod tam istediğim şekilde çalışıyor. Hızlı ve kullanışlı olabilirse son bir ekleme yapabilir misiniz ? Birleştirilen dosya adı her dosyadan alınan "A" sutununda ki istif numarası ile şu şekilde yeni dosya adı verebilir mi? BİRLEŞTİRİLEN EBAT...

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

Yardımlarınız için teşekkür ederim. Gerekli kodları aldım.

...Range("A1").Select Dosya = Application.GetOpenFilename(FileFilter:="Excel Dosyasi,*.xls; *.xlsb; *.xlsx; *.xlsm", MultiSelect:=True) If Dosya(1) = Empty Then MsgBox "Lütfen önce Dosya seçiniz.", vbExclamation Exit Sub End If Set xAlan =...

Üstatlarım Merhaba, Günlerdir uğraştığım listbox sıkıntımı sonunda çözdüm :D Tam anlamıyla bititince forumda paylaşacağım. 3 adet multiselect listbox'ım var. Aşağıdaki örnekte göreceğiniz gibi seçimler yapıyorum sonrasında Command buttona basarak kaydediyorum. Butona bastığımda listboxların...

Merhaba Üstatlarım, Aynı isteğimi listbox ile yapmak istiyorum. Listbox2 den multi select ayarladım seçimlerimi yapıyorum ama OK sheet'ine kaydetmek istediğimde checkbox daki gibi olmuyor. TEk satır olarak yada 30 satır olarak kaydediyor. Yani Listbox2 de 1 seçim yaptığım da 1 satır, 5 seçim...

...dsy = Application.GetOpenFilename(FileFilter:="Excel Dosyaları,*.xls;*.xlsx;*.xlsb;*.xlsm;*.csv", Title:="Dosya Seç", MultiSelect:=True) If Not IsArray(dsy) Then MsgBox "!...Dosya seçmediniz...!", vbCritical + vbMsgBoxRtlReading, "***************": Exit Sub For a = LBound(dsy) To...

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

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

Kodunuza yaptığım ilaveleri kırmızı ile gösteriyorum. kod aktif sayfanın D1 hücresine sayı vermekte Private Sub Frame2_Click() End Sub Private Sub kapat_Click() Unload Me End Sub Private Sub kapat2_Click() Unload Me End Sub Private Sub nsyrara_Change() Dim Sayfa As Worksheet...

üstad teşekkür ediyorum. A1:A20 aralığını nasıl tanımlayabileceğim konusunda destek olmanız mümkün mü !

Bir userform listbox hazırlayıp .çoklu seçim oluştura bilirsiniz. Private Sub UserForm_Initialize() ListBox1.ListStyle = fmListStyleOption ListBox1.MultiSelect = fmMultiSelectMulti ListBox1.ColumnHeads = True end sub