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

Private Sub ComboBox1_change() On Error Resume Next ListBox1.ColumnCount = 8 ListBox1.ColumnWidths = "30;60;180;60;50;100;50;50" Dim k As Range, adrs As String, j As Byte, a As Long ReDim myarr(1 To 8, 1 To 1) With Worksheets("Alış") Me.ListBox1.Clear If .FilterMode Then .ShowAllData...

Merhaba, Aşağıdaki kod ile yapmaya çalıştığım şey listbox1 üzerine excel sayfasından 8 sütunün verilerini almak ve "C" sütunu kriterine göre bunları süzmek. Süzme yaptıktan sonra listbox üzerinde 4. kolonda yeralan tarih formatına göre nasıl sıralatabilirim. [KOD] Dim k As Range, adrs As...

Ek dosyada "K" sutununda tarih boş olan "b" sutunundaki isimleri getiriyor. K sutununda tarih bilgisi boş olan "B" sutunundak Private Sub TextBox1_Change() Set s1 = Sheets("PERSONEL") Dim a As Long, i As Long ReDim dizial(1 To 2, 1 To 1) If TextBox1.Text = "" Then Exit Sub...

Herkese merhaba aşağıdaki çalışan kod ile seçilen sayfayı xlsm yapıyorum ve çalışıyor. Ben aynı kodlarla seçilen sayfayı PDF yapmak istiyorum ama kod hep hata veriyor. Microsoft Dosya Uzantıları ve Kodları Sayfası nda da PDF şeklini bulamadım Userformu konunun ekine yerleştirdim. Yardım...

Textbox aramalarını change olayına bağlarsanız daha iyi olur. Private Sub TextBox4_Change() Set S1 = Sheets("İZİN") Dim a As Long, i As Long ReDim dizial(1 To 7, 1 To 1) If TextBox4.Text = "" Then Exit Sub ListBox1.RowSource = Empty UserForm1.ListBox1.Clear For i = 2 To...

merhaba Öncelikle hoca olduğumu düşünmüyorum. Sizlerle beraber öğrenmeye öğrendiklerimi paylaşmaya çalışıyorum. ListBox1.RowSource = Empty ekleyiniz. Private Sub ComboBox2_Change() On Error Resume Next Set S1 = Sheets("İZİN") Dim a As Long, i As Long ListBox1.RowSource = Empty ListBox1.Clear...

Çok sağol 😊

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim Trh1 As Date, Trh2 As Date If ListBox1.ListIndex <> -1 And ListBox1.ListCount <> 0 Then aranan = ListBox1.Value With UserForm2.ListBox2 .Clear If OptionButton8.Value = True Then If Not...

Bu şekilde yazma anında arama yapan kodlarda ile başlar yöntemini kullanırsanız daha sağlıklı sonuç alabilirsiniz. Dilerseniz arama işlemini içerir yöntemi olarak değiştirebilirsiniz. Private Sub TextBox4_Change() Dim a As Long, i As Long ReDim dizial(1 To 9, 1 To 1) If...

Merhaba, Soruyu sorduktan sonra araştırmaya devam ettim. daha önce sorulan bir sorudaki kodu aşağıdaki şekilde uyarlamaya çalıştım. Msgbox satırı devreye giriyor. Örnek dosyayı revize ederek tekrar yükledim. Teşekkür ederim. MsgBox ComboBox3.Text & " Veri Tablosunda Yok! ", vbCritical Private...

Korhan bey elinize saglık ama arama yapınca column adları kayboluyor ColumHeads true yaptım bu kezde yerleri çıkıyor ama yine adları cıkmıyor bunun bi yolu varmı acaba ?

Deneyiniz. Private Sub TextBox1_Change() Dim S1 As Worksheet, Veri As Variant, Son As Long Dim Aranan As String, X As Long, Y As Byte, Say As Long Set S1 = Sheets("Personeller") Son = S1.Cells(S1.Rows.Count, "B").End(3).Row If Son <= 2 Then Son = 3 Veri =...

Tetxbox2 büyük küçük harf için, Private Sub TextBox2_Change() Dim SK As Worksheet, Tbl() Set SK = Sheets("KAYITLAR") son = SK.Cells(Rows.Count, 3).End(3).Row If son > 3 Then Tbl = SK.Range("B3:P" & son).Value If ComboBox1.ListCount > 0 And ComboBox1.ListIndex <> -1 Then aranan...

Kodu "Veri girişi" sayfası kod alanına yapıştırın. Private Sub ListBox1_Click() If ListBox1.ListCount > 0 And ListBox1.ListIndex <> -1 Then sat = ListBox1.ListIndex For i = 0 To 14 Cells(i + 4, 4) = ListBox1.List(sat, i) Next i Cells(14, 4) =...

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