الترحيل بشكل افقي

[ابو عبدالرحمن البغدادي]

السلام عليكم 

سؤالي :

أن يكون الترحيل من شيت البحث كل شهر بشكل افقي لأن البيانات عددها كبير اكثر من 32000 صف حاليا وفي ازدياد ، فإذا وضعنا البيانات بشكل عمودي لكل الاشهر اعتقد الاكسل لا يستوعب العدد لأشهر السنة  ، فمثلاً شهر ايلول تكون في خانات A B C D والشهر الذي بعده تشرين الاول في خانات  F H I J  والشهر الذي بعده تشرين الثاني يكون في الخانات K L M N وهكذا ، وفقكم الله وتقبل منكم 
السلام عليكم

الترحيل بشكل افقي.rar

[ابو عبدالرحمن البغدادي]

السلام عليكم

المقصود عند الضغط على زر الترحيل الموجود في شيت البحث ترحل البيانات بشكل افقي حسب كل الشهر  الى شيت داتا وتحديد الشهر حسب ما موجود في شيت البحث وكما مبين بالملف المرفق

 

الترحيل الى شيت داتا حسب كل شهر.rar

تم تعديل سبتمبر 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

[ابو عبدالرحمن البغدادي]

صح - تمام - جزيت خيرا - 100 %

اشكرك

تعديل بسيط ان شاء الله على حضراتكم وهو أن يكون الترحيل كل شهر للأكواد والمداس المختلفة بشكل عمودي مثلاً :

كود 100 لشهر ايلول ، وكود 101 لشهر ايضا ايلول وكود 108 ايضا لشهر ايلول هذا يكون بشكل عمودي ، في خانات  A B C D

كود 100 لشهر تشرين الاول ، وكود 101 لشهر وتشرين الاول ، وكود 108 لشهر تشرين الثاني يكون الترحيل عموديا في خانات F G H I

كما مبين بالملف المرفق في شيت داتا

ولكم الشكر والامتنان

السلام عليكم

 

الترحيل بشكل افقي.rar

تم تعديل سبتمبر 22, 2015 بواسطه ابو عبدالرحمن البغدادي

[طارق محمود]

السلام عليكم
تفضل المرفق بدون اللجوء لأكواد  الأشهر
فقط المعيار سيكون إسم الشهر
وعلي أساسه سيتم الترحيل أسفل نفس الشهر إن كان الإسم متطابق 
وإن لم يكن الشهر موجود في "شيت داتا" فسيتم عمل مجموعة أعمدة جديدة لتلقي الترحيل

الترحيل بشكل افقي2.rar

تم تعديل سبتمبر 23, 2015 بواسطه طارق محمود

[ابو عبدالرحمن البغدادي]

تمام - ممنون - اشكرك  - 100 %