۩◊۩ أبو حنين ۩◊۩ قام بنشر أبريل 3, 2015 مشاركة قام بنشر أبريل 3, 2015 فى شيت TODAY يتم جلب البيانات فى العمود C من ملف اخر المطلوب عمل كود ترحيل يتم على اساسة ترحيل البيانات من شيت TODAY من الخلايا من C3 الى C 25 مع متغيرين الخليه B1 هو اسم الشيت المراد الترحيل اليه مثال اذا كان B1 ) = 2015 يتم الترحيل الى شيت 2015 ) الخليه C1 هو اليوم المراد الترحيل اليه فى شيت 2015 مع عدم تكرار الترحيل اذا تم النرحيل ارجو ان تكون الصوره واضحه Data.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة رجب جاويش قام بنشر أبريل 3, 2015 أفضل إجابة مشاركة قام بنشر أبريل 3, 2015 السلام عليكم أخى الفاضل جرب هذا الكود ولكن يجب تعديل تواريخ الأيام فى باقى الصفحات بحيث يكون مثل صفحة 2015 Sub ragab() Dim cl As Range Application.ScreenUpdating = False T = Range("B1").Text On Error Resume Next Set Rng = Sheets(T).Range("C2:ND2") For Each cl In Rng If Range("c2") = cl Then x = cl.Column Range("C3:C35").Copy Sheets(T).Cells(3, x).PasteSpecial xlPasteValues Application.CutCopyMode = False Exit For End If Next Application.ScreenUpdating = True End Sub حيث أن الكود يعمل تمام عند الترحيل الى صفحة 2015 Data.rar 2 رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر أبريل 3, 2015 الكاتب مشاركة قام بنشر أبريل 3, 2015 السلام عليكم اخى الحبيب والمعلم ... رجب جاويش سلمت يداك بكل خير جارى تجربه الملف رابط هذا التعليق شارك 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.