yaptığımız dosyada veri 1 adlı sheet teki dataları sorguladık. peki veri 2 diye bir sheetimizde olduğunu varsayarsak sorgulama user form ekranında ... ile başlayanları sorgulamak istediğimizde veri 1 ve veri 2 sheetini sogulayıp ... ile başlayanları ekrana getiren bir user form yapabilir miyiz.. teşekkürler....
Private Sub CommandButton1_Click()
Set s1 = Sheets("veri 1")
[a2:d65536].ClearContents
For a = 3 To s1.[b65536].End(4).Row
If Left(s1.Cells(a, "b"), Len(TextBox1)) = TextBox1 Then
d = d + 1
Cells(d + 1, "a") = s1.Cells(a, "b")
Cells(d + 1, "b") = s1.Cells(a, "c")
Cells(d + 1, "c") = s1.Cells(a, "d")
Cells(d + 1, "d") = s1.Cells(a, "e")
End If
Next
If [a2] <> "" Then ListBox1.RowSource = "a2:d" & [a65536].End(4).Row
End Sub
Private Sub Label1_Click()
End Sub
Private Sub ListBox1_Click()
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub CommandButton1_Click()
Set s1 = Sheets("veri 1")
[a2:d65536].ClearContents
For a = 3 To s1.[b65536].End(4).Row
If Left(s1.Cells(a, "b"), Len(TextBox1)) = TextBox1 Then
d = d + 1
Cells(d + 1, "a") = s1.Cells(a, "b")
Cells(d + 1, "b") = s1.Cells(a, "c")
Cells(d + 1, "c") = s1.Cells(a, "d")
Cells(d + 1, "d") = s1.Cells(a, "e")
End If
Next
If [a2] <> "" Then ListBox1.RowSource = "a2:d" & [a65536].End(4).Row
End Sub
Private Sub Label1_Click()
End Sub
Private Sub ListBox1_Click()
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub UserForm_Click()
End Sub