Soru arabulbutonu makro kodları

[enboy81]

verilerin bulunduğu data dan sadece tc den tek sütun sorgu yaparak bulunan verileri listbox ta gösterebilirmiyiz? (data 10 sütunlu olduğu için sorgu sonucu seçilen satırların hepsi gözükecek.)
elimde çalışma var ancak yükleyemiyorum.

 

[Korhan Ayhan]

Merhaba,

Dosyanızı paylaşım sitelerine yükleyip linkini forumda paylaşabilirsiniz.

 

[enboy81]

Hata indir

Hata

www.dosyaupload.com

 

[enboy81]

dosyayı yükledim.açılıyor mu acaba? https://www.dosyaupload.com/fhLb

 

[Korhan Ayhan]

Aşağıdaki kodları deneyiniz.

Private Sub CommandButton1_Click()
    Dim S1 As Worksheet, Say As Long, Son As Long, X As Long, Y As Byte
    
    If Len(TextBox1) <> 11 Then
        MsgBox "Lütfen girdiğiniz TC numarasını kontrol ediniz!", vbCritical
        TextBox1.SetFocus
        Exit Sub
    End If
    
    Set S1 = Sheets("data")
    
    If Len(TextBox1) = 11 Then
        On Error Resume Next
        ListBox1.Clear
        ListBox1.RowSource = Empty
        On Error GoTo 0
        Son = S1.Cells(S1.Rows.Count, 1).End(3).Row
        Liste = S1.Range("A2:N" & Son).Value
        
        ReDim Veri(1 To 14, 1 To 1)
        
        For X = 1 To UBound(Liste)
            If Liste(X, 3) = Val(TextBox1) Then
                Say = Say + 1
                ReDim Preserve Veri(1 To 14, 1 To Say)
                For Y = 1 To 14
                    Veri(Y, Say) = Liste(X, Y)
                Next
            End If
        Next
        If Say >= 1 Then
            ListBox1.ColumnCount = 14
            ListBox1.Column = Veri
        Else
            TextBox1.SetFocus
            MsgBox "Aradığınız TC numarası bulunamadı!", vbCritical
        End If
    End If
End Sub

Private Sub CommandButton2_Click()
    On Error Resume Next
    ListBox1.Clear
    ListBox1.RowSource = Empty
    On Error GoTo 0
End Sub

 

[enboy81]

makro harika çalışıyor. teşekkürler. ellerinize sağlık...
eğer başlıklarıda litbox ta görebilseydik çok güzel olurdu.
Ayrıca data dan gelen verilerde sutun araları çok geniş gözüküyor nasıl düzeltebiliriz acaba?

 

[Korhan Ayhan]

Forumda arama yaparsanız sütun genişlikleri ile çözümleri bulabilirsiniz.

Sütun başlıkları içinse LABEL kullanabilirsiniz.

 

[enboy81]

Sütun genişliğini makro arasına kod ekleyip hallettim.......
......................
If Say >= 1 Then
ListBox1.ColumnCount = 14
ListBox1.ColumnWidths = "30;30;60;60;60;60;80;50;60;50;30;30;40;40"
ListBox1.Column = Veri
Else
TextBox1.SetFocus
MsgBox "Aradığınız TC numarası bulunamadı!", vbCritical
End If
......................................
Sütün başlığını aynen dediğiniz gibi yapacağım.
çok teşekkürler.