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

Çok kıymetli arkadaşlar aşağıdaki kodlarla iki tarih aralığında raporlama yapıyorum eğer o gün boşsa ve ben boş olmasına rağmen raporla tuşuna basarsam(yanlışlıkla) ekteki hatayı veriyor.Bu hatanın önüne nasıl geçebiliriz acaba HATA KODU EKTE Private Sub CommandButton1_Click() 'Sorgula Dim...

s.a. Textbox ta bilgi girişini aşağıdaki kodlarla yapıp, Private Sub TextBox33_Change() Dim myarr() As String, k As Range, adr As String, a As Long ListBox1.ColumnCount = 5 ReDim myarr(1 To 5, 1 To 1) ListBox1.RowSource = vbNullString Set k = Range("A:A").Find("*" & TextBox33.Text & "*", ...

Arkadaşlar herkese iyi çalışmalar. Kodlarının tam olarak ne işe yaradığını bilmediğim bir arama kodları kullanıyorum. Bu kodlar ile listbox üzerinde arama yapıyorum. Değerli üstadlarımdan 2 ricam var.. Birinci koyu olarak işaretlediğim kısımların ne işe yaradığını bana kısaca notlayabilecek...

Hocam değerli cevabın için çok teşekkür ederim. Kod'u denedim ve işe yaradı . Lakin pdf'den jpg'e geçişlerde debug hatası olarak bunu verdi.

4. Soru için aşağıdaki kodları deneyin. Private Sub CommandButton1_Click() ListBox1.Clear Call ListeAl(ListBox1, TextBox1.Text, "*.pdf", CheckBox1.Value) End Sub Sub ListeAl(Lst, Klasor$, DTipi$, Alt%) Dim klasorler(), i, dosya$, yol$, attr%, ks% Static r ' Kalıcı değişken tanımlandı. '...

Userform üzerinde bulunan ListBox nesnesindeki verilerin "RegEx" ile ayrıştırılarak metrajın yapılmasına ilişkin görsel, kodlar ve dosya aşağıdadır. Private Sub CommandButton1_Click() ' Haluk 23/02/2022 Dim objRegEx As Object, RS As Object, uniqueCaps As New Collection Dim i As...

Dim a As Long Dim i As Long ReDim dizial(1 To 12, 1 To 1) If ComboBox2.Text = "" Then Exit Sub ListBox1.Clear For i = 2 To [C65536].End(3).Row If ComboBox1.Text = Cells(i, "D") And ComboBox2.Text = Cells(i, "E") Then a = a + 1 ReDim Preserve...

Başlıktaki sorunuza cevap Arama butonu kodlarınızı aşağıdaki şekilde kullanabilirsiniz. Private Sub CommandButton1_Click() Dim Listem() For i = 1 To Worksheets.Count If InStr(1, Worksheets(i).Name, UCase(TextBox1.Value)) Then say = say + 1 ReDim Preserve Listem(1 To...

Hocam yukarıda bahsettiğiniz şekilde yaptım; Kodu çalıştırdığımda bu defa aşağıdaki koda gelip Call Me.TextboxDoldur satırını sarı olarak işaretledi hata verdi. Private Sub ListBox1_Click() Call Me.TextBoxDoldur End Sub

Listbox1_Click eski prosedürü silmemişsiniz. Şöyle yapın. GENEL userformunuz altındak tüm kodları silin. Aşağıdaki kodları komple seçip oraya yapıştırın. Ben gönderdiğiniz dosyada hata almadan sonuçları görüyorum. Private Sub CommandButton1_Click() Dim Veri, Listem() ListBox1.RowSource =...

Hocam Eline emeğine sağlık. Ancak kodu çalıştırdığımda hata veriyor.; call.metextboxdoldur kodunu sarı işaretli olarak gösteriyor SAYGILARIMLA

Aşağıdkai kodları kullanabilirsin. Private Sub CommandButton1_Click() Dim Veri, Listem() ListBox1.RowSource = Empty ListBox1.Clear If ComboBox1 = "" Then MsgBox ("Aramak İstediğiniz Ürünün ADINI yazmadınız"), vbCritical, ("DİKKAT!!!") GoTo Son End If...

Sub toplamAl() ver = ListBox1.List TextBox1.Text = WorksheetFunction.Sum(Application.Index(ver, , 6)) TextBox2.Text = WorksheetFunction.Sum(Application.Index(ver, , 7)) TextBox3.Text = WorksheetFunction.Sum(Application.Index(ver, , 12)) TextBox4.Text =...

Formda bulunan kodların hepsini silin. Private Sub CommandButton1_Click() Dim trh_1 As Date, trh_2 As Date, frm As String Dim veri(), alan() Dim sD As Worksheet Set sD = Sheets("DEPO_STOK") son = sD.Range("A" & Rows.Count).End(3).Row veri = sD.Range("A2:N" & son).Value If...

Bu şekilde kullanın. Private Sub UserForm_Initialize() Dim son, x, h As Long Dim hba As Worksheet Dim g() ListBox1.ColumnCount = 2 ListBox1.ColumnWidths = "30;80" Set hba = Sheets("hba") son = hba.Cells(Rows.Count, 1).End(xlUp).Row g = hba.Range("A2:H" &...

Merhabalar; Textbox23 e aranan veriyi girdiğimde buluna veri Listbox1 e geliyor. Listboxta seçili satırdayken kaydet butonuna basıp veri güncellediğimde seçili satır kayboluyor. Kayıt güncelledikten sonra Listbox1 de seçili satır kalabilir mi? https://dosyam.org/Zy7/Dosya_(2).xlsb Private Sub...

Başlıkları 1. satır olarak almışsınız. Useform2 initialize yordamındaki kod revize edildi. Private Sub UserForm_Initialize() With UserForm1 If .ComboBox1.ListIndex <> -1 Then Dim a() Set s1 = Sheets("Sayfa1") son = s1.Cells(Rows.Count, 1).End(3).Row...

Merhaba, Deneyiniz. Private Sub UserForm_Initialize() Dim a As Long, dosyayolu As String, sorgu As String, con As Object, rs ListBox1.ColumnCount = 4 ListBox1.ColumnWidths = "40;85;75;70" ReDim ls(1 To 4, 1 To 1) dosyayolu = "D:\Belgelerim\Personel\PERSONEL...

İyi akşamlar arkadaşlar: Aşağıdaki kodla kapalı dosyamın LİSTE sayfasından verileri alıyorum. Aynı dosyamın LİSTE ve TÜM sayfalarında verileri ise bu kodla; Benim isteğim CheckBox1 aktif edince her iki sayfada arama yapsın pasif edince sadece LİSTE sayfasını getirsin. Ben bu kodu denedim...

Comboboxlarınız 2 den 9 a kadarmış. 1 den 8 e kadar olacak şekilde yeniden isimlendirdim. Userform Inıtialize kodlarını aşağıdaki gibi değiştirdim. Private Sub UserForm_Initialize() Dim x As Long y = Range("A5").End(xlToRight).Column MyList = Range(Cells(5, 1), Cells(5, y)).Value...