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

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

Private Sub UserForm_Initialize() Dim veri(), i&, ii%, sut% veri = Sheets("Sayfa1").Range("B10:J24").Value With ListBox1 .ColumnCount = 5 For i = 1 To UBound(veri) .AddItem veri(i, 1) sut = 1 For ii = 2 To UBound(veri, 2)...

Merhaba tekrardan, Yapılan uyarılardan sonra, açmış olduğum konu ile ilgili olarak ListView yerine Listbox kullanmaya çalışıyorum. Konu ile ilgili olarak aşağıda Cari adlı excel sayfası üzerinde yapabildiğim kodları Access deki Cari adlı tablo üzerinde yapmaya çalışıyorum. İlgili kodlar...

Merhaba, Excelde userform ve diğer nesneleri kullanarak yaptığım bazı uygulamaları Listview ve Access e yansıtmaya çalışıyorum. Şöyleki, Excelin sayfalarını veri tabanı gibi kullanmaktaydım ve süzme, listeleme işlemlerinde özellikle listbox kullanmaktaydım. Yapmaya çalıştığım şey; Excel...