- Katılım
- 19 Haziran 2007
- Mesajlar
- 418
- Excel Vers. ve Dili
- excel 2007
Merhaba arkadaşlar.
Derlediğim bazı kodlarla TextBox'tan veri filitrelemesi yapıyorum.
Buraya kadar bir sorun yok. Lakin filtre ettiğim verinin üzerine çift tıkladığımda
(çift tıklayınca TextBoxlara verler geliyor) hata alıyorum. Acaba sorun nedir?
Birde bu aranan veriler alfabetik olarak gelmiyor...
DOSYA EKTEDİR...
KODLARIM:
Derlediğim bazı kodlarla TextBox'tan veri filitrelemesi yapıyorum.
Buraya kadar bir sorun yok. Lakin filtre ettiğim verinin üzerine çift tıkladığımda
(çift tıklayınca TextBoxlara verler geliyor) hata alıyorum. Acaba sorun nedir?
Birde bu aranan veriler alfabetik olarak gelmiyor...
DOSYA EKTEDİR...
KODLARIM:
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If ListBox1.ListIndex < 0 Then Exit Sub
TextBox2.Text = ListBox1.Column(2)
TextBox3.Text = ListBox1.Column(3)
TextBox4.Text = ListBox1.Column(4)
TextBox5.Text = ListBox1.Column(5)
TextBox6.Text = ListBox1.Column(6)
TextBox7.Text = ListBox1.Column(7)
TextBox8.Text = ListBox1.Column(12)
TextBox9.Text = ListBox1.Column(17)
TextBox10.Text = ListBox1.Column(31)
TextBox11.Text = ListBox1.Column(32)
TextBox12.Text = ListBox1.Column(33)
CommandButton1.Enabled = True 'False yaparsanız kaydet butonu pasif olur
CommandButton2.Enabled = True
CommandButton3.Enabled = True
End Sub
Private Sub TextBox13_Change()
Dim k As Range, adrs As String, j As Byte, a As Long
ReDim myarr(1 To 8, 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 8
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 8, 1 To a)
ListBox1.Column = myarr
End If
End With
End Sub
Ekli dosyalar
-
44.5 KB Görüntüleme: 13
Son düzenleme: