gamalin قام بنشر يناير 10, 2015 مشاركة قام بنشر يناير 10, 2015 الاخوة الافاضل ارجو التكرم بافادتي حول كود يعمل مع كل الصفحات الشرح لدي ملف به عده صفحات بها حسابات موردين ومشتريات واخر عملاء ومبيعات واريد تجميع هذه الصفحات تحت بعضها في صفحة واحدة واريد عمل كود كلما انفذه في صفحة ينقل بياناتها الى صفحة التجميع هذه محاولتي ولكنها لم تنجح ولا يرحل الا بيانات صفحة واحدة ولا ادري لماذا all.rar رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر يناير 10, 2015 مشاركة قام بنشر يناير 10, 2015 اخى الفاضل ارفق الملف، فما ارفقته ما هو الا موديول وفقط تحياتى رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 10, 2015 مشاركة قام بنشر يناير 10, 2015 أخي الفاضل أرسل الملف نفسه وليس الكود فقط رابط هذا التعليق شارك More sharing options...
gamalin قام بنشر يناير 10, 2015 الكاتب مشاركة قام بنشر يناير 10, 2015 ارفقت الملف اريد ترحيل البيانات في كل الصفحات الى صفحة شيت 1 تجميع.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 10, 2015 مشاركة قام بنشر يناير 10, 2015 دايما سابقني يا ابن مصر ..مقطع عليا كدا دايما.. فين كود النهاردة (هصدعك!!) رابط هذا التعليق شارك More sharing options...
gamalin قام بنشر يناير 10, 2015 الكاتب مشاركة قام بنشر يناير 10, 2015 هل من مجيب عطلان على الكود ده يا شباب اكرمكم الله رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 10, 2015 مشاركة قام بنشر يناير 10, 2015 أخي الفاضل جرب الملف التالي Post All Sheets.rar رابط هذا التعليق شارك More sharing options...
gamalin قام بنشر يناير 11, 2015 الكاتب مشاركة قام بنشر يناير 11, 2015 اكرمك الله وزادك علما ممكن لو تفضلت علي تشرح لي اليه عمل الكود لو امكن رابط هذا التعليق شارك More sharing options...
gamalin قام بنشر يناير 11, 2015 الكاتب مشاركة قام بنشر يناير 11, 2015 كود اكثر من رائع وبسيط اشكرك ممكن لو تفضلت تقول لي كان ايه الخطأ في كود الهواة اللي كنت كاتبه رابط هذا التعليق شارك More sharing options...
gamalin قام بنشر يناير 11, 2015 الكاتب مشاركة قام بنشر يناير 11, 2015 اخي الكريم في الخلية b2 من كل شيت اسم المورد هي يمكن تكراره بجوار الاسطر الخاصة به لمعرفة كل بيان يخص اي مورد جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 11, 2015 مشاركة قام بنشر يناير 11, 2015 أخي الفاضل أعتذر إليك الوقت تأخر ولابد أن أنام الآن لأني عندي امتحانات بدري وشغل طول النهار إن شاء الله تجد من يساعدك في إتمام المطلوب أستودعك الله رابط هذا التعليق شارك More sharing options...
gamalin قام بنشر يناير 11, 2015 الكاتب مشاركة قام بنشر يناير 11, 2015 اشكرك على كل حال جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 11, 2015 مشاركة قام بنشر يناير 11, 2015 جرب التعديل Sub Post() Dim LRMain As Long Dim LRWS As Long Dim WS As Worksheet Set WS = ActiveSheet Application.ScreenUpdating = False Range("B3:P10000").ClearContents For Each WS In ThisWorkbook.Worksheets If WS.Name <> Sheets("Sheet1").Name Then WS.Activate LRWS = WS.Range("B" & Rows.Count).End(xlUp).Row If IsEmpty(WS.Range("B5")) Then GoTo 1 Range("B5:P" & LRWS).Copy Sheets("Sheet1").Activate LRMain = Sheets("Sheet1").Range("B" & Rows.Count).End(xlUp).Row + 1 Sheets("Sheet1").Range("B" & LRMain).PasteSpecial xlPasteValues Application.CutCopyMode = False End If Selection.Offset(0, 15).Resize(1, 1).Value = WS.Range("B2").Value 1 Next WS Call AutoNumberEvaluate Sheets("Sheet1").Range("A1").Select Application.ScreenUpdating = True End Sub Sub AutoNumberEvaluate() Application.ScreenUpdating = False Dim LRC As Long LRC = Sheets("Sheet1").Range("B" & Rows.Count).End(xlUp).Row With Range("A3:A" & LRC) .ClearContents .Value = Evaluate("ROW(A1:A" & .Rows.Count & ")") End With Application.ScreenUpdating = True End Sub رابط هذا التعليق شارك 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.