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

Merhaba, Deneyiniz. Private Sub CommandButton1_Click() Dim k As Range, ilk_adres As String, a As Long Dim i As Long, syf As String, myarr() ListBox1.Clear If TextBox1.Value = "" Then MsgBox "Lütfen Sicil Numarasını Giriniz !!!", 16, "Dikkat" End If If TextBox1.Value = "" Then Exit Sub...

https://www.excel.web.tr/threads/sayfalarda-muekerrer-kayit-kontrolue.192180/#post-1090298 Saygıdeğer hocalarım, Yukarıdaki Korhan Ayhan beyin eklediği örneğe göre Ben tüm sayfaların D sütunlarında yeni yazılacak kayıtları değil yazılı tüm kayıtların kontrolünü yapmak istiyorum. Bunun için...

Merhaba, Listbox özellikler de "columnHeads" özelliğini True yaptıktan sonra; başlıkları manuel olarak nasıl ekleyebiliriz? RowSource yöntemiyle otomatik geliyor, yalnız List yönteminde başlıklar boş geliyor. bunu manuel olarak nasıl yazabiliriz? Redim Dizi (1 to 10, 1 to 6) me.ListBox1.list...

Yusuf Bey, Çok teşekkürler, istediğim gibi olmuş görünüyor.

Listbox1'in kodlarını aşağıdakilerle değiştirip dener misiniz? Private Sub ComboBox1_change() 'On Error Resume Next ListBox1.ColumnCount = 98 ListBox1.ColumnWidths = "30;60;180;60;50;100;50;50;50" Dim k As Range, adrs As String, j As Byte, a As Long ReDim myarr(1 To 12, 1 To 1) With...

Değerli arkadaşlarım daha önce yine burada arkadaşların yazdığı alttaki kodla işlerimi hallediyordum. Şimdi sizlerden eğer mümkünse bir şey rica ediyorum. 1-Gitmek istediğim sayfayı TextBox a yazarken büyük küçük harf duyarlı olmasa(Küçük harfle yazınca tekrar silip yazmam gerekiyor) 2-Yanlış...

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