- Katılım
- 19 Haziran 2007
- Mesajlar
- 418
- Excel Vers. ve Dili
- excel 2007
Merhaba.
Aşağıdaki kod dizimi ile textboxımın içerisinde (label) görünen bir yazı sağlıyorum.
Fare ile tıklayınca kayboluyor ve buradan ListBoxımın içerisinde arama yapıyorum.
Buraya kadar her şey normal ve hiç sorunum yok. Sorun ettiğim nokta ise, tıklama sonucu kaybolan "KİŞİ ARA" yazısı çıktıktan sonra geri gelmiyor. Fare ile tıklayınca kaybolan yazımı textboxtan çıktıktan sonra da görünür yapmak istiyorum. Tabi buaradan initialize olayında da
eklidir.
Saygılarımla...
Aşağıdaki kod dizimi ile textboxımın içerisinde (label) görünen bir yazı sağlıyorum.
Fare ile tıklayınca kayboluyor ve buradan ListBoxımın içerisinde arama yapıyorum.
Buraya kadar her şey normal ve hiç sorunum yok. Sorun ettiğim nokta ise, tıklama sonucu kaybolan "KİŞİ ARA" yazısı çıktıktan sonra geri gelmiyor. Fare ile tıklayınca kaybolan yazımı textboxtan çıktıktan sonra da görünür yapmak istiyorum. Tabi buaradan initialize olayında da
Kod:
TextBox13 = "KİŞİ ARA"
Saygılarımla...
Kod:
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ış!A1:U" & 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
Private Sub TextBox13_Enter()
TextBox13 = ""
End Sub
Private Sub TextBox13_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox13 = ""
End Sub