Sorgu için arama sonuçları: Listbox1+redim

Merhaba, Aşağıdaki kod ile veriler ComboBox1'de süzme sonucu, yani girilen ilk harfe göre Listbox'ta listleniyor, ancak büyük küçük harflerde sorun çıkarıyor. Yardımlarınızı bekliyorum. Private Sub ComboBox1_Change() Dim s As Long, k As Byte ListBox1.ColumnCount = 3 'ListBox3.Clear...

Arkadaşlar dosyam büyük olduğu için yükleyemedim. Aşağıdaki kodlarla verileri giriyorum son satırda toplamları gösteriyor. Satır veriyi silip veya verileri değiştirdiğim zaman alttaki toplamlar değişmiyor aynı kalıyor. Private Sub CommandButton1_Click() 'Application.ScreenUpdating = False...

Değerli hocalarım merhaba bir problemim var ve çözemedim Aşağıdaki kod ile Combobox içerisinden seçtiğim ürünü listbox tan filtreliyorum sorun şu filtrelemeden önce kolon başlıkları listboxta mevcuttu filtreledikten sonra yok oluyor şunu yapabilmem mümkün mü çıkan sonucun üstüne başlık satırı...

Merhaba, bir çok forumda dolaşarak ekteki excel çalışmasını oluşturdum. bir çok noktada takıldım belki sizler için çok kısa sürecek sorunları saatlerce uğraşarak bu hale getirdim. Öncelikle adım adım sıkıntılarımdan bahsedeyim. Combobox daki herhangi bir değere göre listbox'ı süzmek...

Arkadaşlar altaki kodlamada for next yerine ne kullanabilirim ? örnek dosya ektedir...

Private Sub arama_kriteri_Change() Dim S1 As Worksheet, S2 As Worksheet, Veri As Range, say As Long Set S2 = Sheets("MüşteriBilgileri") ReDim Dizi(1 To 8, 1 To 1) If arama_kriteri = "" Then UserForm_Initialize Else say = 0 Set Data = S2.Range("A1:P" &...

Forumda emeği geçen herkese merhaba. Arkadaşlar aşağıdaki kodlarda ne gibi bir hata var ki sonuç alamıyorum. Yapmaya çalıştığım şey kısaca şu. ListBox1 e tıkladığımda bazı işlemler yaparak Listbox2 ye listeliyor. Derdim listbox1 in satır sayısı kadar tıklayarak listbox2 nin 7. satırındaki...

Değerli arkadaşlar Private Sub CommandButton1_Click() Dim k As Range, ilk_adres As String, a As Long Dim i As Long, syf As String ListBox1.Clear If TextBox1.Value = "" Then Exit Sub ReDim myarr(1 To 12, 1 To 1) For i = 1 To ComboBox1.ListCount - 1 If ComboBox1.Value <> "HEPSİ" Then syf =...

sayın hocalarım merhaba bir userformum var bu formda bulunan listbox a 3 combobox ile filtreleme yapıyorum buraya kadar sorun yok ancak örneğin istanbulu filtreliyorum daha sonra muhasebe yi filtreliyince tüm illerde ki muhasebe geliyor kodum aşağıda ne yanlış var acaba burada 1 nci combobaxın...

Arkadaşlar aşağıdaki kod ile data sayfasındaki e sutununda bulunan değerleri userform listbox üzerinde combobox ile süzme işlemi yapıyorum e sutunundaki veriler A1,A2,A11,A12,D1,D2,D11 şeklinde şimdi ben comboboxta A1 i seçtiğimde A11 ve A12 lerde listboxta görünüyor yani A1 değerinde A'dan...

Forumda ve bende bu konuda sayısız örnek var. Ancak eminim benim gibi çok sayıda insan da hala bu kodların anlamını çözememiştir. Neyi istediğimi eklediğim örnek dosyada net bir şekilde açıkladım. Özetle istediğim: Özellikle redim myarray() ve redim preserve myarray() içine yazılan 1 to 5, 1 to...

merhabalar, Aşağıdaki kod bir alıntıdır.Değiştirmeye çalışıyorum. Sorunum şu; Listbox1 click olayında e ile f sutunu çarpma işlemi sonucunda h sutununda sonucu 0,0 olarak gösteriyor. Yardımlarınız için teşekkürler.. Private Sub listbox1_Click() ' Sheets("GELEN").Cells(Rows.Count...

Merhabalar. "Klasör ve dosya oluşturma seçenekleri" http://www.excel.web.tr/f133/klasor-ve-dosya-olu-turma-secenekleri-t68040.html Aşağıdaki kod değerli üstad Sayın Halit Hocamızın üstteki başlıkta işlediği envai çeşit kodlardan birtanesi. Kendisine bir kez daha teşekkür ediyorum. Kodun...

Değerli arkadaşlar cari hesaplar ile ilgili kullandığım bir programda bir UserForm mevcut ve liste sayfasındaki müşterileri bu User formu kullanarak buluyorum yanlız orda şöyle bir sıkıntı mevcut Userform uzerindeki textbox'sa birşeyler yazıp silmem gerekiyor yoksa alttaki listboxsa isimler...

Arkadaşlar listbox'da textbox ile süz yapmak istiyorum bir türlü yapamadım. Aşağıdaki şekilde yazıyorum, örneklerden alıntı yaparak hata veriyor. Lütfen yardım Private Sub TextBox17_Change() Dim k As Range, adrs As String, j As Byte, a As Long ReDim myarr(1 To 17, 1 To 1) With Worksheets("Ana")...

Merhaba, Aşağıdaki listbox kodunda bold olan yerin formatı 100,1223 şeklinde görünüyor Bunu 100,1 olarak görünmesine ihtiyacım var. Excel sahifemdeki hücre biçimi etkilemiyor. Forumdan sayı format örnekleri ile revize etmeye çalıştım hata veriyor. Teşekkür ederim. Private Sub TextBox2_Change()...

Merhabalar, Aşağıdaki kodu sitemizden alıp kendime uyarlamaya çalışıyorum.takıldığım nokta Dizi(2, Say) = Veri sutunundaki verileri "başlayan harf" özellikli olarak süzüp lıstboxa getiriyor. İsteğim ; Örnek olarak "hasan hüseyin güzel" adında bir isim olsun. Ben "güzel" yazdığımdada veriyi...

Merhabalar, Çalışmam ile ilgili 2 sorum var. 1 ncisi Aşağıdaki kod çalıştığında Çalışma sayfamda tarih :15/11/2012 Textbox a girdiğim dğer : 15/11/2012 Lıstbox da :11/15/2012 olarak gözüküyor. 2 ncisi Userfor açıldığında sayfadaki sutun verileri aynen olduğu gibi görülüyor...