كود VLOOKUP

[الذيب 2015]

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

 

عندما تصعب علي أي مسألة في الاكسل 

فعندي الثقة بالله ثم بهذا المنتدى الرهيب الصديق 

 

فأنا من أشد المتابعيييييييين

 

اساتذتي المحترمين وفقكم الله لما به كل خير ........

 

المطلوب :

 

في الملف المرفق 

وأرجو من الله أن وفقت في الشرح

DATA.rar

[الذيب 2015]

السلام عليكم

[عبدالله المجرب]

السلام عليكم 

اليك المرفق بعد التعديل

DATA.rar

[أم عبد الله]

أستاذنا الكبير / عبد الله المجرب

 

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

 

كود رائع جداً كعادتك دائماً . زادك الله من فضله وعلمه وأنعم الله عليك بالصحة والعافيةوجزاك الله خيراً على جميع أعمالك وجعلها الله في ميزان حسانتك. لك كل التحية والتقدير

 

وأسمح ليّ حضرتك في محاولة مني بالمعادلات لعلها تكون صحيحة.

 

 

DATA 2.rar

[عبدالله المجرب]

شكراً اختي أم عبدالله 

وان شاء الله نراك خبيرة " أد الدنيا "

[الذيب 2015]

ماشاء الله تبارك الله

 

 

الصراحة .... 

ابداع بكل ما تحمله الكلمة من معنى 

 

شكرا أخوي عبدالله المجرب

شكرا أختي أم عبدالله

[الذيب 2015]

شكرا أخوي واستاذي عبدالله المجرب 

 

اذا في إمكان تعديل الكود

 

ليتناسب مع المطلوب في المرفق ....

 

وبارك الله فيك

DATA2.rar

 

 

[عبدالله باقشير]

السلام عليكم

 

شاهد المرفق 2010

DATA++.rar

[عبدالله المجرب]

سلمت يمينك استاذ عبدالله 

كنت قد عدلت على الكود السابق ولكن شتان

Sub Abu_Ahmed()
Dim cl As Range, cel As Range
For Each cel In [C9:AG17]
If IsNumeric(cel) Then cel = ""
Next
For i = 4 To [AK1000].End(xlUp).Row
For Each cl In [A9:A17]
If cl = Cells(i, 37) Then
T = Cells(i, 38): K = Cells(i, 39)
For ii = 3 To 33
If Cells(7, ii) = "s" Then
If Not IsNumeric(Cells(cl.Row, ii)) Then GoTo 1
If T = 1 Then Cells(cl.Row, ii) = 1: T = 0: GoTo 1
If T >= 2 Then Cells(cl.Row, ii) = 2: T = T - 2
End If
If Cells(7, ii) = "H" Then
If K < 8 Then Cells(cl.Row, ii) = K: K = 0: GoTo 1
If K >= 8 Then Cells(cl.Row, ii) = 8: K = K - 8
End If
1 Next
End If
 Next
 Next
End Sub

[الذيب 2015]

الاستاذ عبدالله باقشير 

الاستاذ عبدالله المجرب

 

جزاكم الله خيرا 

 

حلول كلها أكثر من رائعة وجمييييييييييييييييييلة