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

İşyerinde ListView1 hata verdiği için bende formunuza bir adet ListBox ekleyerek aşağıdaki kodu uyguladım. Sanırım doğru sonuçları elde ettim. Siz biraz kurcalayarak ListView1 nesnesine uyarlarsınız. Private Sub CommandButton3_Click() Dim WF As WorksheetFunction, No As Long Dim...

Merhaba Arkadaşlar , yine çözemediğim bir soruyla karşınızdayım. Sorum başlıktan da anlayacağınız üzere redim preserve ile ilgili Ekte verdiğim dosyada 3 sayfa mevcut benim yapmak istediğim sehirici ve sehiric2 sayfalarından ,sehiri,ci2 sayfasındaki Form butonuna tıklayınca gelen listbox1 deki...

Sorun çözülmüştür.Çözüm kodu; Private Sub CommandButton7_Click() Dim selectedRows() As Integer Dim selectedCount As Integer Dim i As Integer Dim ws As Worksheet Dim selectedOption As String 'ÖDEV_VERİTABANI adlı çalışma sayfasını tanımla Set ws =...

Private Sub CommandButton7_Click() Dim selectedRows() As Integer Dim selectedCount As Integer Dim i As Integer On Error Resume Next ' Seçili satırları selectedRows dizisine ekleyin For i = 0 To UserForm17.ListBox1.ListCount - 1 If UserForm17.ListBox1.Selected(i)...

Arkadaşlar merhabalar. Kodum aşağıdaki gibidir. Kodlarla listboxtaki verileri filtreliyorum yani arama yapıyorum. Ancak şöyle bir sorun yaşıyorum. Arama yapmak istediğim sütunu belirlemeye çalışıyorum bir türlü bulduramadım. Daha önce aynı yöntemi farklı bir projede kullanmıştım ama üzerinden...

Deneyin. Private Sub UserForm_Initialize() Dim sh2 As Worksheet Dim dict As Object Dim sonOF2 As Integer, x As Integer, k As Integer, sirasi As Integer, i As Integer Dim a, enbuyuk Dim say As Integer Set sh2 = Sheets("sehirici2") Set dict =...

Sayın hocam dediğiniz gibi düzelttim bu sefer hata verdi. Demek ki başka yerde de bir hata yaptım. Private Sub TextBox1_Change() Dim X As Long, Say As Long Dim Aranan_LİSTE As String Dim Sorgulanan_LİSTE As String If TextBox1 <> "" Then Aranan_LİSTE =...

Hocam uyarlama yaptım çok teşekkür ederim. Sadece açıklama kısmı yani B sütunu arama yaptığımda gözükmüyor. Bunu çözemedim, bir yer de bir hata yaptım ama nerede Private Sub TextBox1_Change() Dim X As Long, Say As Long Dim Aranan_LİSTE As String Dim Sorgulanan_LİSTE As String...

Merhaba, Aşağıdaki kod ile excel kitabı üzerindeki ilgili sayfadan listboxa veri yükleyebiliyorum. Aşağıdaki kodun yaptığı işlevin aynısını kapalı bir dosya üzerinde nasıl yapabilirim. Yani veriler farklı bir excel kitabında olacak. Ayrıca şunu da belirteyim. Veri tabanı gibi kullandığım...

Merhaba, CommandButton2_Click kodunuzu aşağıdaki ile değiştirip, deneyiniz Private Sub CommandButton2_Click() Dim Sh As Worksheet, My_Month As Object Dim My_Data As Variant, X As Long, Y As Long Dim ii As Integer Dim topla As Variant Set Sh = Sheets("Anasayfa") Set...

Merhaba, Sorunuzla biraz uğraştım. aşağıdaki kod ile toplama yapıyor. Fakat temmuz ve ağustos değerlerini eksik topluyor. onu biraz daha bakacağım. Olmaz ise Ustalarımızda yardımcı olabilir. Private Sub CommandButton2_Click() Dim Sh As Worksheet, My_Month As Object Dim My_Data As...

Aşağıdaki kodu çalştırdığımda listbox 2.sutununa kayıt yapmada sorun yaşıyorum daha doğrusu listboxı başka kodlarlada kullanıyorum ama bu kodu çalıştırdığımda diğer 2.sutunda listeleme yapan kodlar hata vermeye başlıyor.listboxı silip yeniden eklediğimde çalışıyor ama sonra yeniden hata...

Hocam merhaba bu kodunuzu gördüm çok güzel çalışıyor fakat bunu Veri sayfası icerisinde g sütununda bulunan tarihlere gore filtrelemek istersem nasil yapacagim? Tarihleri textbox1 ve textbox2 ile gireceğim hocam. Teşekkür ederim

kod Private Sub CommandButton3_Click() Application.ScreenUpdating = False Application.DisplayAlerts = False yer = ActiveSheet.Name Dim myArray() As Variant Dim i As Integer son = 0 For i = 1 To ListBox1.ListCount If ListBox1.Selected(i - 1) = True Then son = 1 Exit For End If Next If son = 0...

Office 365 de Dtpicker i çalıştıramıyorum. UserForm üzerindeki takvim eklentisini başka nasıl çalıştırabilirim bütün kodlarda Dtpicker'e göre yazılmıştı (tabi yine formdaki arkadaşlar tarafından) Konu hakkında yardımcı olama imkanınız var mı acaba? Private Sub CommandButton1_Click() 'Sorgula...

Yardımınız için teşekkür ederim hocam ama olmadı hata verdi.

Merhaba, Aşağıdaki kodu deneyiniz. Koddaki kırmızı renkli sayıyı veri başlangıç satırınızla değiştiriniz. Private Sub UserForm_Initialize() sutun = Array("A", "B", "C", "F", "G", "H", "I", "J", "K", "L", "M", "N") ListBox1.ColumnCount = UBound(sutun) + 1 With Sayfa1 s = .Cells(.Rows.Count...

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