Astalavista58
Altın Üye
- Katılım
- 20 Ocak 2020
- Mesajlar
- 242
- Excel Vers. ve Dili
- Office 2016 TR 64 Bit
- Altın Üyelik Bitiş Tarihi
- 20-02-2025
Merhabalar, herkese hayırlı günler dilerim.
Aşağıdaki kod ile TextBox'ta yazdığım değeri, listboxta listeliyorum.
Uygulama ilk açıldığında ListBox'taki tarih 31.01.2022 şeklinde geliyor,
Ancak TextBox'a bir şey yazdığımda bu tarih 01.31.2022 oluyor. Bu sorunu nasıl çözerim. ListBox'taki tarih 7 sütuna denk geliyor
Aşağıdaki kod ile TextBox'ta yazdığım değeri, listboxta listeliyorum.
Uygulama ilk açıldığında ListBox'taki tarih 31.01.2022 şeklinde geliyor,
Ancak TextBox'a bir şey yazdığımda bu tarih 01.31.2022 oluyor. Bu sorunu nasıl çözerim. ListBox'taki tarih 7 sütuna denk geliyor
Kod:
Private Sub tbSicil_Change()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim S1 As Worksheet, son As Long, Veri As Variant, X As Long
If Not IsNumeric(tbSicil) And tbSicil <> "" Then
tbSicil = ""
MsgBox "SADECE SAYISAL İFADE GİR ! ! ! ", vbExclamation + vbOKOnly, "SAYIN " & Environ("Username")
Exit Sub
End If
Set S1 = Sheets("BALYA")
son = WorksheetFunction.Max(3, S1.Cells(S1.Rows.Count, 2).End(3).Row)
Veri = S1.Range("B2:I" & son).Value
listBalya.RowSource = ""
listBalya.Clear
ReDim Liste(2 To 9, 1 To 1)
For X = LBound(Veri, 1) To UBound(Veri, 1)
If Veri(X, 3) Like "*" & tbSicil & "*" Then
Say = Say + 1
ReDim Preserve Liste(2 To 9, 1 To Say)
Liste(2, Say) = Veri(X, 1)
Liste(3, Say) = Veri(X, 2)
Liste(4, Say) = Veri(X, 3)
Liste(5, Say) = Veri(X, 4)
Liste(6, Say) = Veri(X, 5)
Liste(7, Say) = Veri(X, 6)
Liste(8, Say) = Veri(X, 7)
Liste(9, Say) = Veri(X, 8)
End If
Next
If Say > 0 Then
listBalya.Column = Liste
tbSicil.BackColor = &H80000005
tbSicil.ForeColor = &H80000008
Else
tbSicil.BackColor = vbRed
tbSicil.ForeColor = vbWhite
End If
Set S1 = Nothing
Label33.Caption = "BULUNAN PERSONEL SAYISI : " & listBalya.ListCount
captionsil
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub