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

Herkese iyi günler dilerim.Bu Userformda süzmeyi B1 hücresine göre yapıyor. B1 hücresinde BUGÜN() formulü var ve [xlFilterToday ] bu yüzden rapor aldığım günü süzüyor. Ben 1 haftalık rapor almak istesem ( bugün+6 gün) olarak alabilmek için kod nasıl revize edilebilir ? Private Sub...

Aşağıdaki şekilde deneyin. Private Sub TextBox7_Change() On Error Resume Next ListBox1.Clear aranan = TextBox7.Text 'burada ucase yaparsanız sutundaki ifadelerin tümü büyük olmalı. sonsatir = Sheets(1).Cells(Rows.Count, "C").End(xlUp).Row ReDim dizi(sonsatir) As Variant If OptionButton2 =...

Aşağıdaki kodları kendinize uyarlayabilir iseniz işinizi görür Private Sub UserForm_Initialize() Dim S1 As Worksheet, son As Long, Veri As Variant, x As Long, Genislik As String, say As Long OptionButton2.Value = True Set S1 = Sheets("ŞLEMLER") son =...

Private Sub CommandButton1_Click() Set sh = Sheets("Malzeme Giriş") son = [a:d].Find("*", , , , xlByRows, xlPrevious).Row If son < 2 Then Exit Sub sut = Array(1, 2, 3, 4) a = Range("A2:D" & son).Value ReDim b(1 To UBound(a), 1 To 4) For i = 1 To UBound(a) For j = 0 To...

Private Sub txtAranan_Change() Dim Aranan as String, sonsatir as Integer, i as Integer, X As Variant, dizi As Variant 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...

x=0 satırında veriable not defined hatası alıyorum sürekli ar araştırıyorum ama hala çözemedim

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...