استاذ ضاحى
عند اختيار اى من الشيكات 1- 2- 3
يعطى مشكلة فى هذ الماكرو فى Format
Private Sub Cmb_No_Change()
Dim LastRow As Long
Dim i As Integer, T As Integer
Dim MYSH As Worksheet
Set MYSH = Sheet1
With MYSH
LastRow = .Cells(Rows.Count, "A").End(xlUp).Row + 1
For i = 1 To 10
For T = 2 To LastRow
If Cmb_No.Text = .Cells(T, 1).Text Then
Me.Controls("Txt" & i).Value = .Cells(T, i).Value
End If
Next
Next
End With
Txt3.Value = Format(Txt3.Value, "yyyy/mm/dd")
Txt_Day = Format(Txt3.Value, "DDDD")
End Sub
ولكم جزيل الشكر