vba userform

[TİKOS]

Arkadaşlar,
ekteki dosyada ricamı belirttim.
yardımlarınızı belirtiyorum.

teşekkürler,

 

[TİKOS]

vba

yardım lütfen

 

[Orion1]

Dosyanız ektedir.

Private Sub Label16_Click()
Dim k As Range, sh As Worksheet, i As Integer, x As Long
If Not IsDate(TextBox10.Text) Then
    MsgBox "Yanlış tarih girişi." & vbLf & _
    "Lütfen doğru tarih giriniz." & vbLf & "Örnek : " & Format(Date, "dd.mm.yyyy")
    TextBox10.SetFocus
    TextBox10.SelStart = 0
    TextBox10.SelLength = Len(TextBox10.Text)
    Exit Sub
End If
ListBox2.Clear
Set sh = Sheets("barajalti")
Set k = sh.Range("A2:A" & sh.Cells(65536, "A").End(xlUp).Row). _
Find(CDate(TextBox10.Text), , xlValues, xlWhole)
    If Not k Is Nothing Then
        For i = 2 To sh.Cells(1, 256).End(xlToLeft).Column
            If sh.Cells(k.Row, i).Value <> "" Then
                ListBox2.AddItem
                ListBox2.List(x, 0) = sh.Cells(1, i).Value
                ListBox2.List(x, 1) = sh.Cells(2, i).Value
                ListBox2.List(x, 2) = Format(sh.Cells(k.Row, i).Value, "#,##0.00")
                x = x + 1
            End If
        Next
    End If
End Sub