- Katılım
- 19 Haziran 2007
- Mesajlar
- 418
- Excel Vers. ve Dili
- excel 2007
Merhaba arkadaşlar.
Formmum daha sade olması açısından TextBox'ın üzerine (Label) yazdığım yazıyı kaldırarak içine koymak istiyorum. Yani "Kişi ara" yazısı TextBox'ın içinde dursun tıklanınca da kaybolsun. Mümkün mü?
TextBox'ımın kodları aşağıdaki gibidir.
Formmum daha sade olması açısından TextBox'ın üzerine (Label) yazdığım yazıyı kaldırarak içine koymak istiyorum. Yani "Kişi ara" yazısı TextBox'ın içinde dursun tıklanınca da kaybolsun. Mümkün mü?
TextBox'ımın kodları aşağıdaki gibidir.
Private Sub TextBox13_Change() 'KİŞİ ARA
Dim k As Range, adrs As String, j As Byte, a As Long
ReDim myarr(1 To 50, 1 To 65536)
If TextBox13.Text = "" Then
ListBox1.RowSource = "satış!A2:H" & Sheets("satış").[A65536].End(xlUp).Row
Exit Sub
End If
With Worksheets("satış")
ListBox1.RowSource = ""
If .FilterMode Then .ShowAllData
Set k = .Range("C2:C65536").Find(TextBox13.Text & "*", , xlValues, xlWhole)
If Not k Is Nothing Then
adrs = k.Address
Do
a = a + 1
For j = 1 To 50
myarr(j, a) = .Cells(k.Row, j).Value
Next j
Set k = Range("C2:C65536").FindNext(k)
Loop While Not k Is Nothing And k.Address <> adrs
ReDim Preserve myarr(1 To 50, 1 To a)
ListBox1.Column = myarr
End If
End With
End Sub