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

Merhaba. TextBox ile kişi arama yapıyorum. Lakin dosyamda 10.000 veri olunca arama işlemi biraz yavaş oluyor. Aşağıdaki kodlar ile yapılan arama için bir öneriniz olabilir mi? Ayrıca aynı hücrede bulunan ad ve soyad için soyadı araması da eklemek istiyorum. Şayet olabilirse, aynı...

Merhaba arkadaşlar. Mause exit olayında eklediğim kodlar ListBoxımda hataya neden oluyor. Maus ile arama için, TextBoxlarıma tıklıyorum, ListBox'ıma tıklama yaparken tüm veriler kayboluyor. Acaba sorun nedir çözemedim? Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) On...

Merhaba. Aşağıdaki kod dizimi ile textboxımın içerisinde (label) görünen bir yazı sağlıyorum. Fare ile tıklayınca kayboluyor ve buradan ListBoxımın içerisinde arama yapıyorum. Buraya kadar her şey normal ve hiç sorunum yok. Sorun ettiğim nokta ise, tıklama sonucu kaybolan "KİŞİ ARA" yazısı...

Merhaba arkadaşlar. Formmum daha sade olması açısından TextBox'ın üzerine (Label) yazdığım yazıyı kaldırarak içine koymak istiyorum. Yani "Kişi ara" yazısı TextBox'ın içinde dursun tıklanınca da kaybolsun. Mümkün mü? TextBox'ımın kodları aşağıdaki gibidir.

Merhaba arkadaşlar. Derlediğim bazı kodlarla TextBox'tan veri filitrelemesi yapıyorum. Buraya kadar bir sorun yok. Lakin filtre ettiğim verinin üzerine çift tıkladığımda (çift tıklayınca TextBoxlara verler geliyor) hata alıyorum. Acaba sorun nedir? Birde bu aranan veriler alfabetik olarak...

Selamlar userformda listboxta arama yaptırmak için aşağıdaki kodu yazıyorum Bir harfe basınca Listboxtaki veriler kayboluyor ama sonuç bulmuyor Sorunun 2 sütunlu bir listboxta arama yapılmasında kaynaklandığını düşünüyorum çünkü listbox ımı 2 sütün gösterir biçime getirdiğimde kod çalışıyor ama...

Selam arkadaşlar, Dim a, i, satir, k, b(), z Set s1 = Sheets("veri") Set s2 = Sheets("SONUC") '******************************************* a = s1.Range("a2:v" & s1.[a65536].End(3).Row).Value 'veri sayfasındaki veriler a değişkenine tanımlanıyor. ReDim b(1 To UBound(a, 1), 1 To 70) '...

Selamlar arkadaşlar aşağıda resimlerle açıklamaya çalıştığım konuyu kısaca özetleyecek olursam. 1- Verileri kaydettiğim sayfamda aşağıdaki gibi Resim1 (Veri sayfasının görünümü) buradan 1 kriterim tarih sutunu olan b ikinci kiriterimde tür olan de sutunu buna göre veriyi bulup redimle...

Aşağıdaki Kod ile Şahıs sayfasındaki verilerden TextBox1'e girdiğim kritere uyan verileri görüyorum, ancak örneğin TextBox'a 2011/5 yazdığımda hem 2011/5 hemde 2011/50 görünüyor, yani 2011/5 verisini içeren tüm veriler görüntüleniyor. Sadece 2011/5'i görüntülemek için ne gibi bir düzenleme...

ekteki dosya muhasebe programı olmaya aday Private Sub filtre_Change() Dim k As Range, adrs As String, j As Byte, a As Long ReDim myarr(2 To 7, 1 To 1) With Worksheets("Sayfa1") Me.ListBox1.Clear Set k = .Range("A2:A65536").Find(filtre.Text & "*", , xlValues, xlWhole) If Not k Is Nothing Then...

Aşağıdaki kodlarla listboxta verileri süzüyorum. Ancak Optionbutton3 ile seçtiğim "S" sütununda tarihe göre süzmek istediğim zaman tarihe göre süzme yapmıyor. Daha önce "S" sütununa tarihi metin olarak giriyordum. O zaman süzme işleminde sıkıntı yoktu. Ancak "S" sütununa Tarihleri sayısal...

Aşağıdaki kod ile listboxta arama yaptırıyorum. Ancak Textbox'a arama için veri girdiğimde listboxtaki tarihler hücre de 12.01.2010 iken listboxta 1/12/2010 olarak görünüyor. Tarihin hücrede yazılı şekilde görünmesi için yardımlarınızı bekliyorum. Tarihlerin olduğu sütun "S" sütunu yani 19...

Aşağıdaki kodlarla textbox'a girilen veriye göre arama yapılıyor. Bu arama metodunda optionbutton ile seçeceğimiz sütunlarda arama yaptırılacak şekilde düzenleyebilir mi?. optionbutton1 "B" sütunu, optbt2 "C" sütunu, optbut3 "D" sütununda arama yaptırmak istiyorum. Private Sub...

Merhabalar; Ekteki dosyada textboxa girilen veriye göre sheet2 A sütunundan arama yapılmakta ve sheet1 içindeki listbox1 e iki sütun halinde listelenmekte. Fakat arama sadece ilk harf üzerinden yapılıyor. Yani textbox içine yazdığım veriye bakıp hangi hücrenin içinde o veri geçiyorsa listboxa...

Arkadaşlar merhabalar. İyi haftasonları. DENEME4 isimli sayfamda listeleme işlemini yapabiliyoruz. Ancak aşağıdaki kodu bu işleme nasıl uygularım fikri olan varmıdır? Sub bıcım() Dim sat As Long, myarr() UserForm1.ListBox1.ColumnCount = 29 UserForm1.ListBox1.ColumnWidths = 0 & ";" & 90...

Syn hocalarım; kullanmış olduğum süz listbox' ında saat format bölümünde "Run-time error 381 Could not get the list property invalid property array index " hatası vermektedir listbox 11 sütundan oluşmaktadır satır sayısı 65536 dır. bu hatanın sebebi nedir acaba yardımcı olusanız sevinirim...

Herkese Merhaba, Arkadaşlar inanılmaz derece de yardımınıza ihtiyacım var. Ben excel'de userform oluşturarak bir veri giriş programı hazırladım. Program çok güzel çalışıyor. Fakat aynı programı başka bir bilgisayarda açmak istediğimde Can't find project or library hatası veriyor ve Inıtialize...

günaydınarkadaşlar herkese iyi çalışmalr. benim şöyle bir sorum olacka. userfor açıldığında listox1 deki 1. sütündaki tarihler 01.01.2009 şeklinde geliyor. Private Sub UserForm_Initialize() ' başlangıç tarigine min değeri getirecek TextBox2.Text = Format(Application.Min(Range("a2:a" &...

iyi akşamlar.. kendi oluşturduğum userform'a başka bi yerden bulduğum bu komut kullandım güzel ama sadece 3 tane hane gösteriyor.. a-b-c-d-e-f bilgilerim var bunları görmem için ne yapmam lazım ?? Private Sub TextBox1_Change() Dim myarr() As String, k As Range, adr As String, a As Long ReDim...

Arkadaşlar ekdeki dosyada daha önce forumdan bir arkadaşımızın aşağıdaki kodları ile textbox 20 ve textbox 21 ile süzme yapmaya çalışıyorum fakat hata veriyor. yardımlarınızı rica ediyorum Private Sub TextBox20_Change() 'On Error Resume Next Dim k As Range, a As Long, j As Byte, ilk_adres As...