المساعده فى كود استخراج

[إبراهيم ابوليله]

الاخوه الاافاضل

السلام عليكم ورحمة الله وبركاته

ارجو المساعده فى كود استخراج البيانات

اريد عند

وجود وقوع حرف A الموجود فى العمود الاول لكبر من او يساوى التاريخ الموجود فى العمود الثانى

يتم ترحيل الرقم 10

فى الخليه المقابله

ارجو النظر الى المرفق

Book2.rar

[إبراهيم ابوليله]

الاخوه الافاضل

الحمد لله تم اكتشاف الخطأ

ويصبح الكود كالاتى

Sub HH()
Dim X As String
Dim D As Double
D = CDate(Range("D2"))
X = "A"
For H = 2 To 100
If Cells(H, 1) = X And Cells(H, 2) >= D Then
Cells(H, 3) = 10
'X = X + 1
End If
Next
End Sub