الذيب 2015 قام بنشر أبريل 3, 2013 مشاركة قام بنشر أبريل 3, 2013 السلام عليكم ورحمة الله وبركاته تحياتي لهذا المنتدى العملاق أساتذة مشاركين ومشاهدين ارجو من الله أن وفقت بالشرح بالملف المرفق code.zip رابط هذا التعليق شارك More sharing options...
أفضل إجابة احمد عبد الناصر قام بنشر أبريل 3, 2013 أفضل إجابة مشاركة قام بنشر أبريل 3, 2013 السلام عليكم جرب هذا Sub dahmour() l = Range("b" & Rows.Count).End(xlUp).Row For x = 3 To l t = 0 col = 34 For Each c In Range("c" & x & ":ag" & x) If t = 0 Then If c = "A" Then Cells(x, col) = DateSerial(Year([a2]), Month([a2]), Cells(2, c.Column).Value) t = t + 1 col = col + 1 End If Else If c = "A" Then t = t + 1 Else Cells(x, col) = DateSerial(Year([a2]), Month([a2]), Cells(2, c.Column - 1).Value) t = 0 col = col + 1 End If End If Next Next End Sub تحياتي CODE+.rar رابط هذا التعليق شارك More sharing options...
الذيب 2015 قام بنشر أبريل 4, 2013 الكاتب مشاركة قام بنشر أبريل 4, 2013 ياسلاااااااااااااااااااااااااام سلمت يمناك وجزاك الله كل الخير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.