ابو عبدالرحمن البغدادي قام بنشر سبتمبر 22, 2015 قام بنشر سبتمبر 22, 2015 السلام عليكم سؤالي : أن يكون الترحيل من شيت البحث كل شهر بشكل افقي لأن البيانات عددها كبير اكثر من 32000 صف حاليا وفي ازدياد ، فإذا وضعنا البيانات بشكل عمودي لكل الاشهر اعتقد الاكسل لا يستوعب العدد لأشهر السنة ، فمثلاً شهر ايلول تكون في خانات A B C D والشهر الذي بعده تشرين الاول في خانات F H I J والشهر الذي بعده تشرين الثاني يكون في الخانات K L M N وهكذا ، وفقكم الله وتقبل منكم السلام عليكم الترحيل بشكل افقي.rar
ابو عبدالرحمن البغدادي قام بنشر سبتمبر 22, 2015 الكاتب قام بنشر سبتمبر 22, 2015 (معدل) السلام عليكم المقصود عند الضغط على زر الترحيل الموجود في شيت البحث ترحل البيانات بشكل افقي حسب كل الشهر الى شيت داتا وتحديد الشهر حسب ما موجود في شيت البحث وكما مبين بالملف المرفق الترحيل الى شيت داتا حسب كل شهر.rar تم تعديل سبتمبر 22, 2015 بواسطه ابو عبدالرحمن البغدادي
طارق محمود قام بنشر سبتمبر 22, 2015 قام بنشر سبتمبر 22, 2015 السلام عليكم غير كود الترحيل للتالي Sub TARHEEL() Dim k As String, Mnth As String, nCL As Integer Mnth = [E2] nCL = Sheets(5).[BBB1].End(xlToLeft).Column + 2 If [B3] = "تم ترحيل البيانات" Then k = MsgBox("هل تريد ترحيل البيانات مرة أخرى", vbYesNo, "تنبيه") If k = vbYes Then 1: Sheets(5).Columns("A:E").Copy Sheets(5).Cells(1, nCL) Sheets(5).Cells(3, nCL).Resize(99, 5).ClearContents Sheets(5).Cells(3, nCL).Value = Mnth Union([A5:B9999], [F5:F9999]).Copy Sheets(5).Cells(3, nCL + 1).PasteSpecial [B3] = "تم ترحيل البيانات" Application.CutCopyMode = False End If Else GoTo 1 End If End Sub وهذا الملف وبه الكود الجديد الترحيل بشكل افقي.rar 1
ابو عبدالرحمن البغدادي قام بنشر سبتمبر 22, 2015 الكاتب قام بنشر سبتمبر 22, 2015 (معدل) صح - تمام - جزيت خيرا - 100 % اشكرك تعديل بسيط ان شاء الله على حضراتكم وهو أن يكون الترحيل كل شهر للأكواد والمداس المختلفة بشكل عمودي مثلاً : كود 100 لشهر ايلول ، وكود 101 لشهر ايضا ايلول وكود 108 ايضا لشهر ايلول هذا يكون بشكل عمودي ، في خانات A B C D كود 100 لشهر تشرين الاول ، وكود 101 لشهر وتشرين الاول ، وكود 108 لشهر تشرين الثاني يكون الترحيل عموديا في خانات F G H I كما مبين بالملف المرفق في شيت داتا ولكم الشكر والامتنان السلام عليكم الترحيل بشكل افقي.rar تم تعديل سبتمبر 22, 2015 بواسطه ابو عبدالرحمن البغدادي
طارق محمود قام بنشر سبتمبر 23, 2015 قام بنشر سبتمبر 23, 2015 (معدل) السلام عليكمتفضل المرفق بدون اللجوء لأكواد الأشهرفقط المعيار سيكون إسم الشهروعلي أساسه سيتم الترحيل أسفل نفس الشهر إن كان الإسم متطابق وإن لم يكن الشهر موجود في "شيت داتا" فسيتم عمل مجموعة أعمدة جديدة لتلقي الترحيل الترحيل بشكل افقي2.rar تم تعديل سبتمبر 23, 2015 بواسطه طارق محمود 1
ابو عبدالرحمن البغدادي قام بنشر سبتمبر 23, 2015 الكاتب قام بنشر سبتمبر 23, 2015 تمام - ممنون - اشكرك - 100 %
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.