121403 قام بنشر يناير 30, 2013 مشاركة قام بنشر يناير 30, 2013 السلام عليكم في المرفق 3 مصنفات لاكسيل في المصنفين بطاطس ، بيبسي أريد ترحيل أعمدة معينة من عدة ورقات في المصصنف إلى ورقة جديدة باسم total وفي المصنف sheets أريد نقل بيانات الورقتين التين باسم total في المصنفين السابقين إلى المصنف sheets بيانات الحساب.rar والمطلوب موضح بالمرفق 1 رابط هذا التعليق شارك More sharing options...
121403 قام بنشر يناير 31, 2013 الكاتب مشاركة قام بنشر يناير 31, 2013 أرجو من خبراء الاكسيل الرد ومساعدتي إن أمكن رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 31, 2013 مشاركة قام بنشر يناير 31, 2013 السلام عليكم جرب استخدم الكود التالي للملفين بطاطس وببسي واما الترحيل للملف Sheets لم يتوفر لدي الوقت غدا إن شاء الله Public Sub Ta() Dim S As Worksheet Dim Rn As Range Set T = Sheets("total") T.Range(T.Cells(2, 1), T.Cells(T.Rows.Count, 16)).ClearContents Application.ScreenUpdating = 0 For Each S In ThisWorkbook.Worksheets If S.Name Like "شهر" & "*" Then For Each Rn In S.Range("A10:A" & S.Cells(Rows.Count, 1).End(xlUp).Row) If Not IsEmpty(Rn) Then With S Lr = T.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Row Union(.Cells(Rn.Row, "H"), .Cells(Rn.Row, "I"), .Cells(Rn.Row, "O"), _ .Cells(Rn.Row, "P"), .Cells(Rn.Row, "V"), .Cells(Rn.Row, "W")).Copy T.Range("C" & Lr).PasteSpecial xlPasteValues End With End If Next End If Next End Sub رابط هذا التعليق شارك More sharing options...
121403 قام بنشر فبراير 4, 2013 الكاتب مشاركة قام بنشر فبراير 4, 2013 السلام عليكم الأستاذ عباد جزاك الله خيراً جربت الكود والأمور تمام وأنا بانتظار الترحيل إلى الملف sheets رابط هذا التعليق شارك More sharing options...
121403 قام بنشر فبراير 5, 2013 الكاتب مشاركة قام بنشر فبراير 5, 2013 أرجو من الأخوة أعضاء المنتدى مساعدتي في أقرب فرصة ما أمكن رابط هذا التعليق شارك More sharing options...
121403 قام بنشر فبراير 6, 2013 الكاتب مشاركة قام بنشر فبراير 6, 2013 الأستاذ عباد الملف بطاطس وبيبسي لا ينسخ أكثر من 30 عمود هل من حل لهذا الموضوع رابط هذا التعليق شارك More sharing options...
121403 قام بنشر فبراير 11, 2013 الكاتب مشاركة قام بنشر فبراير 11, 2013 ألا يوجد حل يااخوان الله يجزاكم خير رابط هذا التعليق شارك More sharing options...
samiaa711 قام بنشر فبراير 22, 2013 مشاركة قام بنشر فبراير 22, 2013 السلام عليكم شكرا جزيلا على هذه الصفحات وجعلها اااه في ميزان حسناتكم رابط هذا التعليق شارك More sharing options...
121403 قام بنشر يوليو 18, 2013 الكاتب مشاركة قام بنشر يوليو 18, 2013 السلام عليكم أريد كود الترحيل للملف sheet الله يجزاكم الجنة رابط هذا التعليق شارك 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.