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

...String, myFile As String Dosya = Application.GetOpenFilename(FileFilter:="Excel Dosyası,*.xls; *.xlsb; *.xlsx; *.xlsm", MultiSelect:=True) If Dosya(1) = Empty Then Time1 = Now MsgBox "Lütfen önce Dosya seçiniz.", vbExclamation Exit Sub End If...

...String, myFile As String Dosya = Application.GetOpenFilename(FileFilter:="Excel Dosyası,*.xls; *.xlsb; *.xlsx; *.xlsm", MultiSelect:=True) If Dosya(1) = Empty Then Time1 = Now MsgBox "Lütfen önce Dosya seçiniz.", vbExclamation Exit Sub End If...

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

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

...xSayfa As Worksheet Dim Bak As Long Dosya = Application.GetOpenFilename(FileFilter:="Excel Dosyası, *.xls; *.xlsx; *.xlsm", MultiSelect:=True) For Bak = 1 To UBound(Dosya) Set xDosya = Workbooks.Open(Dosya(Bak)) Set xSayfa = xDosya.Worksheets("TADİLAT İŞLERİ")...

Merhaba. Sayfaya; -- bir adet dikdörtgen (belgedeki resimde üzerinde "Seç" veya "Yaz" yazan) -- bir adet GELİŞTİRİCİ => EKLE => ActiveX Denetimleri bölümünden ListBox ekleyin (adının ListBox1 olduğunda emin olun) Alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin ve açılan VBA...

Userform içerisinde açılır bir combobox var. Görevi başka bir sayfadaki bölümleri listelemek. Dim i, j As Integer Private Sub ComboBox1_Change() ListBox1.Clear Application.ScreenUpdating = True For i = 2 To 5735 If ThisWorkbook.Sheets("Geçişler").Cells(i, 2) = ComboBox1.Text Then...

http://dosya.co/ze46o726bpzf/kalıp_işlem_takip_-_Kopya.xlsm.html TAMEKRAN userformunda bulunan listbox 1 kutusun altında çoklu sseçim butonuna tıklayınca listboxtan her tıkladığımı seçmesini ve tekrar tıklarsam silmesini istiyorum. söz konusu butonda yazdıpım kod daha önce çalışıyordu ancak...

Private Sub CommandButton1_Click() Sheets("GEZİ_LİSTESİ").Select With ListBox1 For a = 0 To .ListCount - 1 If .Selected(a) = True Then Range("B65536").End(3)(2, 1) = .List(a, 0) Range("C65536").End(3)(2, 1) = .List(a, 1)...

...select all files in folder. SelectedFiles = Application.GetOpenFilename( _ filefilter:="Excel Files (*.xls*), *.xls*", MultiSelect:=True) 'Create a new workbook Set WorkbookDestination = Workbooks.Add(xlWBATWorksheet) strFilename = Dir(FolderLocation & "\*.xls"...

Merhabalar. Arkadaşlar Halit Bey'in çalışmasından alıntılarla Listbox multiselect ile sadece seçilen sayfaları aktarmaya çalışıyorum. Ancak n = 0 For i = ListBox1.ListCount - 1 To 1 Step -1 If ListBox1.Selected(i - 1) = True Then ReDim Preserve myArray(n) myArray(n) = i n = n + 1 End If Next...

Merhabalar. Listbox'ta multiselect ile seçilen sayfaları aşağıdaki kod ile silmeye çalışıyorum lakin "If ListBox1.Selected(a) = True Then" satırında hata veriyor. Sebebini bir türlü bulamadım. Private Sub CommandButton5_Click() For a = Sheets.Count To 1 Step -1 If ListBox1.Selected(a) = True...

Merhaba bu kodun çalışıyor fakat bir kere düzgün çalışması için sonuna nasıl bir kod gerekiyor Next denedim bir kere çalıştı end if hiç çalışmadı. ListBox1.MultiSelect = fmMultiSelectMulti ListBox3.MultiSelect = fmMultiSelectMulti For a = 0 To ListBox4.ListCount - 1 aa = ListBox4.List(a, 0)...

Merhaba, Aşağıdaki kodda revizyona ihtiyacım var, SEBEP: normalde çalışması gereken şartlarda aksaklık meydana geliyor. Hata kodu şu: run-time error '-2147024773 (8007007b) Bunu internetten araştırdım ancak bendeki sorunu anlatan birisine denk gelemedim, Olay kısaca şöyle; 1. Bu kod ile...

Merhaba, Derdimi şöyle anlatayım, Yaklaşık 320 çalışma sayfasından oluşan bir dosyam var. Bunlardan yaklaşık 120 tanesini PDF uzantılı olarak kaydetmem gerekiyor. Dosyamda bir tane user form var. bunun içindeki listeden seçtiğim çalışma sayfalarını ters sırayla yazdırıyorum. Buna benzer...

Merhaba, Şu an aktif olarak kullandığım bir form ile; bir çok çalışma sayfası içerisinden istediklerimi, sayfa numaraları birbirine karışmadan ayrı ayrı yazdırabiliyorum. Sorumdan önce yukarıda yazdığım konuda yardımını esirgemeyen, Kodu baştan aşağı yazan sayın Halit3'e ve düzenleme...

Forumda emeği geçen herkese merhaba. Aşağıdaki kodlarla multiselect özelliği açık olan ListBox2 den seçtiğim satırları diziye alarak sayfa 2 ye yazdırmak istiyorum. Fakat bir türlü başaramadım. Farklı yöntemlerle bunu başarabiliyorum. Fakat dizi yöntemi ile başaramadım. İlgilenen arkadaşlara...

S.A. ; Kullanmış olduğum User formda ekte gözüktüğü gibi ComboBox2 mevcut. ComboBox2 de açılan listede çoklu seçim yapamıyorum. Makaleler ve örneklere istinaden Listbox ekleyip özellik olarak Multiselect yerine true olmasını sağlamaya çalıştım sonuç alamadım çalışma formumu ilk haline...

Forumda emeği geçen herkese merhaba. Arkadaşlar aşağıdaki kodlarla multiselect özelliği açık olan ListBox2 deki seçimleri kaldırayım dedim ama olmadı. Kodlar hiçbir işe yaramıyor. Seçimler olduğu gibi kalıyor.Butona tıkladığımda çoklu seçimleri nasıl kaldırabilirim ? İlgilenen arkadaşlara...

...sat1 = 0 Dosya_Yolu = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*), *.xls*") ', Title:="Choose Files", MultiSelect:=True) 'Dosya_Yolu = Application.GetOpenFilename(fileFilter:="Excel Dosyaları (*.xls;*.xlsx;*.xlsm;*.xlsb),*.xls;*.xlsx;*.xlsm;*.xlsb") 'Dosya_Yolu =...