okan32
Altın Üye
- Katılım
- 12 Mayıs 2016
- Mesajlar
- 386
- Excel Vers. ve Dili
- Ofis 2019- 32 Bit - Türkçe
- Altın Üyelik Bitiş Tarihi
- 16-04-2026
AŞAĞIDAKİ KOD İLE TEXBOXTA ARAMA YAPARAK LİSTBOXA VERİ GETİREBİLİYORUM. LİSTBOX ÜZERİNDE SAĞ TIK İLE VERİYİ KOPYALAMA GİBİ BİR İŞLEM MÜMKÜNMÜDÜR ACABA
Kod:
Private Sub UserForm_Initialize()
Me.TextBox1.SetFocus
Dim i%, sut$
For i = 1 To 10
sut = sut & ";" & Replace(Columns(i).Width, ",", ".")
Next i
With ListBox1
.ColumnCount = 10
.ColumnWidths = Right(sut, Len(sut) - 1)
End With
End Sub
Private Sub TextBox1_Change()
On Error Resume Next
Me.TextBox1.Text = StrConv(Me.TextBox1.Text, vbProperCase) 'Texbox yazı sitilini baş harfi büyük diğer harfleri küçük yapmak için
Me.ListBox1.Clear
Dim i As Long
For i = 5 To Application.WorksheetFunction.CountA(Sayfa2.Range("A:B"))
For X = 1 To 4
a = Len(Me.TextBox1.Text)
If Left(Sayfa2.Cells(i, X).Value, a) = Me.TextBox1.Text And Me.TextBox1.Text <> "" Then
Me.ListBox1.AddItem Sayfa2.Cells(i, 1).Value
For C = 1 To 10
Me.ListBox1.List(ListBox1.ListCount - 1, C) = Sayfa2.Cells(i, C + 1).Value
Next C
End If
Next X
Next i
End Sub
Private Sub UserForm_Activate()
Application.Visible = False
Dim X As Integer
Dim current As Variant
Dim Y As String
Me.Caption = ""
Y = araform.Caption
araform.Caption = ""
For X = 0 To Len(Y)
If X = 0 Then
araform.Caption = ""
current = Timer
Do While Timer - current < 0.1
DoEvents
Loop
GoTo bitti
Else: End If
araform.Caption = Left(Y, X)
current = Timer
Do While Timer - current < 0.01
DoEvents
Loop
bitti:
Next X
Do
DoEvents
Label10.Caption = Format(Now)
Loop
End Sub
Private Sub UserForm_Terminate()
Application.Visible = True
End Sub
Son düzenleme:
