السادة الافاضل ارجوا مساعدتى فى هذا الكود

[كريم 201190]

Private Sub ComboBox1_Change()
Set sh2 = Sheets("Sheet1")
LR = sh2.[c65536].End(xlUp).Row
For Each cl In sh2.Range("b2:Q" & LR)
If Me.ComboBox1.Text = cl Then
(Me.TextBox1 = cl.Offset(0, 0
(Me.TextBox2 = cl.Offset(0, -1
(Me.TextBox3 = cl.Offset(0, 1
(Me.TextBox21 = cl.Offset(0, 2
(Me.TextBox4 = cl.Offset(0, 3
(Me.TextBox5 = cl.Offset(0, 4
(Me.TextBox6 = cl.Offset(0, 6
(Me.TextBox8 = cl.Offset(0, 8
(Me.TextBox9 = cl.Offset(0, 9
(Me.TextBox12 = cl.Offset(0, 13
(Me.TextBox13 = cl.Offset(0, 14
(Me.TextBox7 = cl.Offset(0, 7
(Me.TextBox22 = cl.Offset(0, 12
End If
Next

End Sub

فى السطر رقم 10 اللى هو تكست بوكس 4 يظهر التاريخ فى التكست بوكس 4 بالعكس ارجو من حضراتكم تعديل الكود او السطر بحيث يظهر التاريخ فى التكست بوكس بصورة صحيحةويظهر بصيغة "yyyy/mm/dd"

تم تعديل أكتوبر 24, 2016 بواسطه كريم 201190
خطأاملائى

[أبو حنــــين]

السلام عليكم

ضع هذا السطر مكان السطر الذي يحتوي على الخطأ

Me.TextBox1 = Format(cl.Offset(0, 3), "yyyy/mm/dd")

 

[كريم 201190]

متشكر جدا لحضرتك استاذ/ ابو حنين