الأخ الفاضل والأستاذ الكبير / عبد الله باقشير
بعد أجمل وأرق تحياتى
وعذرا لأنى أثقل عليك
ولكن هى رغبتى فى أن أنهل من بحر معرفتك
أرجو شرح هذا الجزء من الكود
With Range("A1")
For R = 2 To LastRow
Select Case .Cells(R, 3).Value2: Case dt1 To dt2
If Len(Trim(Me.TextFind)) Then ib = CStr(.Cells(R, 1)) = CStr(Me.TextFind) Else ib = True
If ib Then
Me.ListFind.AddItem
For i = 1 To ContColmn
If IsDate(.Cells(R, i)) Then MyValue = Format(.Cells(R, i).Value2, DateFormt) Else _
MyValue = .Cells(R, i).Value2
Me.ListFind.List(Me.ListFind.ListCount - 1, i - 1) = MyValue
Next
Me.ListFind1.AddItem .Cells(R, 11).Value
End If
End Select
Next
End With
وعذرا مرة أخرى ان كنت أثقل عليك