Hassan Hammoud قام بنشر فبراير 18, 2017 مشاركة قام بنشر فبراير 18, 2017 مساعده من الاخوه وأساتذة VBA تعديل كود المطلوب موضح في " شيت 1 " ونحن لاهل الخير نكون من الشاكرين .... والسلام عليكم terhil55.rar رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر فبراير 18, 2017 مشاركة قام بنشر فبراير 18, 2017 السلام عليكم ورحمة الله استخدم هذا الكود Sub TTarhil() Dim ws As Worksheet, sh As Worksheet Dim LR As Long, LQ As Long Set ws = Sheets("TD") Set sh = Sheets("DB1") LR = ws.Range("H" & Rows.Count).End(xlUp).Row Application.ScreenUpdating = False ws.Range("C11:H" & LR).Copy With sh LQ = .Range("I" & Rows.Count).End(xlUp).Row + 1 .Range("D" & LQ).PasteSpecial xlPasteValues .Range("B" & LQ) = ws.Range("G3") .Range("A" & LQ) = ws.Range("E3") .Range("C" & LQ) = ws.Range("E25") End With Application.CutCopyMode = False Application.ScreenUpdating = True End Sub رابط هذا التعليق شارك More sharing options...
Hassan Hammoud قام بنشر فبراير 19, 2017 الكاتب مشاركة قام بنشر فبراير 19, 2017 الأخ الغالي زيزو، انزلت الكود وجربته وعمل %/ 100 سلمت يداك وزادك الله علماً وجزاك كل خير. اشكرك من كل قلبي انت وكل الأخوه اللذين يساهمون في اثراء هذا المنتدى القيم والسلام عليكم ورحمة الله وبركاته !!! رابط هذا التعليق شارك 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.