- Katılım
- 11 Ağustos 2005
- Mesajlar
- 239
arkadaşlar aşağıdaki kodlara sahip bir userform var her halükarda sayfa1 de çalışmasını istiyorum
Private Sub ListBox1_Click()
End Sub
Private Sub TextBox1_Change()
With ListBox1
.ColumnCount = 10
.ColumnWidths = "65;50;40;40;40;40;40;40;40;40;"
End With
ListBox1.Clear
For suz = 2 To WorksheetFunction.CountA([b1:b65536])
alan = UCase(Replace(Replace(Range("b" & suz), "j", "J"), "k", "K"))
veri = UCase(Replace(Replace(TextBox1, "j", "J"), "k", "K"))
If alan Like "*" & veri & "*" Then
ListBox1.AddItem
ListBox1.List(s, 0) = Sayfa1.Range("B" & suz)
ListBox1.List(s, 1) = Sayfa1.Range("C" & suz)
ListBox1.List(s, 2) = Sayfa1.Range("D" & suz)
ListBox1.List(s, 3) = Sayfa1.Range("E" & suz)
ListBox1.List(s, 4) = Sayfa1.Range("F" & suz)
ListBox1.List(s, 5) = Sayfa1.Range("G" & suz)
ListBox1.List(s, 6) = Sayfa1.Range("H" & suz)
ListBox1.List(s, 7) = Sayfa1.Range("I" & suz)
ListBox1.List(s, 8) = Sayfa1.Range("J" & suz)
ListBox1.List(s, 9) = Sayfa1.Range("K" & suz)
s = s + 1
End If
Next
End Sub
Private Sub UserForm_Initialize()
TextBox1 = "."
TextBox1 = ""
End Sub
Private Sub ListBox1_Click()
End Sub
Private Sub TextBox1_Change()
With ListBox1
.ColumnCount = 10
.ColumnWidths = "65;50;40;40;40;40;40;40;40;40;"
End With
ListBox1.Clear
For suz = 2 To WorksheetFunction.CountA([b1:b65536])
alan = UCase(Replace(Replace(Range("b" & suz), "j", "J"), "k", "K"))
veri = UCase(Replace(Replace(TextBox1, "j", "J"), "k", "K"))
If alan Like "*" & veri & "*" Then
ListBox1.AddItem
ListBox1.List(s, 0) = Sayfa1.Range("B" & suz)
ListBox1.List(s, 1) = Sayfa1.Range("C" & suz)
ListBox1.List(s, 2) = Sayfa1.Range("D" & suz)
ListBox1.List(s, 3) = Sayfa1.Range("E" & suz)
ListBox1.List(s, 4) = Sayfa1.Range("F" & suz)
ListBox1.List(s, 5) = Sayfa1.Range("G" & suz)
ListBox1.List(s, 6) = Sayfa1.Range("H" & suz)
ListBox1.List(s, 7) = Sayfa1.Range("I" & suz)
ListBox1.List(s, 8) = Sayfa1.Range("J" & suz)
ListBox1.List(s, 9) = Sayfa1.Range("K" & suz)
s = s + 1
End If
Next
End Sub
Private Sub UserForm_Initialize()
TextBox1 = "."
TextBox1 = ""
End Sub