- Katılım
- 11 Ağustos 2005
- Mesajlar
- 239
arkadaşlar aşağıdaki kodlar sayfadan bilgileri alıp textbox ta gösteriyor ama başka bir sayfaya geçersem oradaki bilgileri alıyor ben sadece sayfa1 den bilgi almasını istiyorum nasıl yaparım
Private Sub TextBox1_Change()
With ListBox1
.ColumnCount = 8
.ColumnWidths = "100;50;50;50;50;50;50;50;"
End With
ListBox1.Clear
For suz = 2 To WorksheetFunction.CountA([b1:b65536])
alan = UCase(Replace(Replace(Range("b" & suz), "ı", "I"), "i", "İ"))
veri = UCase(Replace(Replace(TextBox1, "ı", "I"), "i", "İ"))
If alan Like "*" & veri & "*" Then
ListBox1.AddItem
ListBox1.List(s, 0) = Range("B" & suz)
ListBox1.List(s, 1) = Range("C" & suz)
ListBox1.List(s, 2) = Range("D" & suz)
ListBox1.List(s, 3) = Range("E" & suz)
ListBox1.List(s, 4) = Range("F" & suz)
ListBox1.List(s, 5) = Range("G" & suz)
ListBox1.List(s, 6) = Range("H" & suz)
ListBox1.List(s, 7) = Range("I" & suz)
s = s + 1
End If
Next
End Sub
Private Sub UserForm_Initialize()
TextBox1 = "."
TextBox1 = ""
End Sub
Private Sub TextBox1_Change()
With ListBox1
.ColumnCount = 8
.ColumnWidths = "100;50;50;50;50;50;50;50;"
End With
ListBox1.Clear
For suz = 2 To WorksheetFunction.CountA([b1:b65536])
alan = UCase(Replace(Replace(Range("b" & suz), "ı", "I"), "i", "İ"))
veri = UCase(Replace(Replace(TextBox1, "ı", "I"), "i", "İ"))
If alan Like "*" & veri & "*" Then
ListBox1.AddItem
ListBox1.List(s, 0) = Range("B" & suz)
ListBox1.List(s, 1) = Range("C" & suz)
ListBox1.List(s, 2) = Range("D" & suz)
ListBox1.List(s, 3) = Range("E" & suz)
ListBox1.List(s, 4) = Range("F" & suz)
ListBox1.List(s, 5) = Range("G" & suz)
ListBox1.List(s, 6) = Range("H" & suz)
ListBox1.List(s, 7) = Range("I" & suz)
s = s + 1
End If
Next
End Sub
Private Sub UserForm_Initialize()
TextBox1 = "."
TextBox1 = ""
End Sub