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

Private Sub txtAranan_Change() Dim aranan as String, sonsatir as Integer ListBox1.Clear Aranan = txtAranan.Text sonsatir = Worksheets("Veri").Cells(Rows.Count, "A").End(xlUp).Row ReDim dizi(sonsatir) As Variant X = 0 For i = 1 To sonsatir - 1 If Worksheets("Veri").Cells(i, 1) Like "A*" Then...

İyi günler değerli arkadaşlar ben burdaki kodu başka bir çalışmada kullandım çalışırken burda çalışmadı problemi bir türlü bulamadım yardımcı olursanız sevinirim. Private Sub txtAranan_Change() On Error Resume Next ListBox1.Clear Aranan = txtAranan.Text sonsatir =...

Bir Module içine; Public arr() Sub AciklamalariListBoxaEkle() For Each hcr In Range("L15:L20").SpecialCells(xlCellTypeComments) k = k + 1 ReDim Preserve arr(0 To k) arr(k) = hcr.Comment.Text Next UserForm1.Show End Sub Bir UserForm içine; Private Sub...

Buyurun.:cool: Private Sub CommandButton1_Click() Dim i As Long, myarr(), s As Long, adrs As String, sut As String ReDim myarr(0 To ListBox1.ListCount - 1, 0 To 0) sut = Sheets("YEMEK_LİSTESİ").Range("B2").Value For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then...

Herkese merhaba Aşağıdaki kod ile seçilen sayfayı seçtiğim konuma kaydedebiliyorum ama 95 97 formatında kaydettiği için uyumluluk şeklinde kaydediyor ve ekteki mesajı veriyor sürekli . Acaba dosyayı ofis 2016 ve üstü formatta kaydetmesi için kodu revize edebilecek var mı acaba Private Sub...

Üstteki mesajımda ki kodda küçük düzeltmeler yaptım. (Boş satırlarla ilgili olarak) Ek olarak aşağıdaki kodlar hız olarak biraz daha iyi performans veriyor. Dilediğinizi kullanırsınız. Option Explicit Private Sub ListBox1_Click() Dim S1 As Worksheet, Veri As Variant Dim Son As Long...

Teşekkürler Hocam

Aşağıdaki gibi kullanırsanız ListBox nesnesinden boş satırlar görünmez. Private Sub CommandButton1_Click() Dim Liste As Variant, X As Long, Y As Byte, Aranan As String, Veri As Variant, Say As Long ListBox1.Clear Liste = Sheets("Sayfa1").Range("A1:E" &...

Çok teşekkür ederim Korhan Hocam

Deneyiniz. Private Sub CommandButton1_Click() Dim Liste As Variant, X As Long, Y As Byte, Aranan As String, Veri As Variant, Say As Long ListBox1.Clear Liste = Sheets("Sayfa1").Range("A1:E" & Sheets("Sayfa1").Cells(Rows.Count, "E").End(xlUp).Row).Value ReDim...

Korhan hocam günaydın, Benzersiz kayıtlara ilave olarak 2. bir koşul daha getirebilir miyiz? Örnek: A sütununda "a" ile başlayan yada A sütunda "Ali" olanları , özetle hem benzersiz olacak, hem de A sütununda "a" harfi ile başlayacak. şimdiden teşekkürler, iyi günler....

Çok teşekkürler Korhan Hocam tekrar iyi bayramlar.

@tamer42, Bilmukabele. Deneyiniz. Private Sub CommandButton1_Click() Dim Liste As Variant, X As Long, Y As Byte, Aranan As String, Veri As Variant, Say As Long ListBox1.Clear Liste = Sheets("Sayfa1").Range("A1:E" & Sheets("Sayfa1").Cells(Rows.Count...

Korhan hocam iyi bayramlar, Burada benzersiz kayıtları Listbox' a alırken, satır da anladığım kadarıyla 5 sütunu (A, B, C, D, E) kontrol ediyor. Aranan = Liste(X, 1) & "#" & Liste(X, 2) & "#" & Liste(X, 3) & "#" & Liste(X, 4) & "#" & Liste(X, 5) benim istediğim 3 sütunu kontrol etsin (A, B...

merhaba, Aşağıdaki kodda ; If Veri >= CDate(GIDERRAPOR.TextBox1.Value) And Veri <= CDate(GIDERRAPOR.TextBox2.Value) Then satırı ile sayfadan veri alabiliyorum. bu arama krıterine "BD" sutununda label5.caption a göre 3 nci bir kriter eklemeye çalıştım. yapamadım. yardımlarınız için teşekkür...

Bu durum forumda defalarca dile geldi. Çözümü de sunuldu. Bu sorunu aşmanın iki yolu var. 1- Yardımcı bir sayfa kullanılabilir. Arama sonuçları bu sayfaya yazdırılır ve RowSource metodu ile veriler Listbox nesnesine yüklenir. 2- Dizi yöntemi kullanılarak veriler ListBox nesnesine yüklenir. 2...

Deneyiniz. Kendinize uyarlayınız. Option Explicit Sub Listele() Dim X As Byte, Y As Byte, Say As Integer ReDim Dizi(1 To 2, 1 To 1) For X = 1 To 10 Step 2 For Y = 1 To 10 If Cells(Y, X) <> "" Then Say = Say + 1 ReDim Preserve...

Hayırlı sabahlar. Korhan hocam çok teşekkür ederim. Beni büyük bir stresten kurtardınız. Yaklaşık 10 gündür bu acemi halimle listboxu forumdaki konularda bulunan kodlarla çözmeye çalıştım. Ama bazen olmuyor işte. Hocam ALLAH razı olsun sizden. Hayırlı çalışmalar diliyorum. - Arkadaşlar User...

Her iki kodda mükemmel çalışmakta. Yine başka bir sorunum çıktı ortaya şu kodlardan sonra userform açıldıktan sonra webrowser üzerinden pdf önizlemesi yapabiliyorum. Me.WebBrowser1.Navigate ListBox1.Column(1) Application.Wait (Now + TimeValue("0:00:01")) Fakat arama yaptıktan sonra listboxtan...

Arama işlemi İÇERİR mantığı ile yapılmaktadır. Private Sub TextBox1_Change() Dim S1 As Worksheet, Veri As Variant, Son As Long Dim Ad As String, Aranan As String, X As Long, Say As Long Set S1 = Sheets("BİLGİ") Son = S1.Cells(S1.Rows.Count, 1).End(3).Row Veri =...