ترحيل البيانات

[الجواد الأبيض]

السادة الأعضاء الأفاضل السلام عليكم ورحمة الله وبركاتة

برجاء مساعدتي في ترحيل البيانات الخاصة باملف المرفق حيث اني اعمل في شركة تسويق عقاري واريد ان اقوم بعمل ملف  يستطيع ترحيل العملاء

1- الذين تعاقدوا خلال الشهر الي ورقة عمل منفصلة ولتكن ( مغلق )

2- الذين قاموا بسداد دفعات حجز فقط ولم ينهوا اجراءات التعاقد يتم ترحيلهم الي ( مفتوح )

3- العملاء الذين لم يتخذوا قرارهم بعد ومازال المندوبين يقوموا بمتابعتهم يتم ترحيلهم الي ( متابعة )

 

حيث اني مازلت غير متمكن في عملية الترحيل وقمت بالمحاولة عديد من المرات بناء علي بعض الموضوعات المشابهه ولكنها بائت جميعها بالفشل

واشكر لكم مساعدتكم وشكرا

مرفق ملف نموذج للمطلوب

[محمد ابو البـراء]

السلام عليكم ورحمة الله وبركاته

ارفق ملف أخي الحبيب

ليسهل فهم و تنفيذ المطلوب

[الجواد الأبيض]

السادة الأعضاء الأفاضل السلام عليكم ورحمة الله وبركاتة

برجاء مساعدتي في ترحيل البيانات الخاصة باملف المرفق حيث اني اعمل في شركة تسويق عقاري واريد ان اقوم بعمل ملف  يستطيع ترحيل العملاء

1- الذين تعاقدوا خلال الشهر الي ورقة عمل منفصلة ولتكن ( مغلق )

2- الذين قاموا بسداد دفعات حجز فقط ولم ينهوا اجراءات التعاقد يتم ترحيلهم الي ( مفتوح )

3- العملاء الذين لم يتخذوا قرارهم بعد ومازال المندوبين يقوموا بمتابعتهم يتم ترحيلهم الي ( متابعة )

 

حيث اني مازلت غير متمكن في عملية الترحيل وقمت بالمحاولة عديد من المرات بناء علي بعض الموضوعات المشابهه ولكنها بائت جميعها بالفشل

واشكر لكم مساعدتكم وشكرا

مرفق ملف نموذج للمطلوب

 

السادة الأعضاء الأفاضل السلام عليكم ورحمة الله وبركاتة

برجاء مساعدتي في ترحيل البيانات الخاصة باملف المرفق حيث اني اعمل في شركة تسويق عقاري واريد ان اقوم بعمل ملف  يستطيع ترحيل العملاء

1- الذين تعاقدوا خلال الشهر الي ورقة عمل منفصلة ولتكن ( مغلق )

2- الذين قاموا بسداد دفعات حجز فقط ولم ينهوا اجراءات التعاقد يتم ترحيلهم الي ( مفتوح )

3- العملاء الذين لم يتخذوا قرارهم بعد ومازال المندوبين يقوموا بمتابعتهم يتم ترحيلهم الي ( متابعة )

 

حيث اني مازلت غير متمكن في عملية الترحيل وقمت بالمحاولة عديد من المرات بناء علي بعض الموضوعات المشابهه ولكنها بائت جميعها بالفشل

واشكر لكم مساعدتكم وشكرا

مرفق ملف نموذج للمطلوب

المبيعات الشهرية.rar

هذا هو الملف المطلوب وجزاكم الله الف خير

[رجب جاويش]

السلام عليكم

تفضل أخى

Sub Ragab()
Dim cl As Range, sh As Worksheet
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Worksheets
    If Not sh.Name = "الشيت الاساسي " Then
        sh.Range("A1:F1000").ClearContents
    End If
Next
LR = Cells(Rows.Count, 2).End(xlUp).Row
For Each cl In Range("C2:C" & LR)
    x = Trim(cl.Value)
    On Error Resume Next
    If Worksheets(x) Is Nothing Then
    Sheets.Add.Name = x
    
    With Sheets(x)
        .Move After:=Sheets(Sheets.Count)
        .DisplayRightToLeft = True
    End With
    End If
    Sheets("الشيت الاساسي ").Range("A1:F1").Copy
    
    With Sheets(x)
        .Range("A1").PasteSpecial xlPasteValues
        .Range("A1").PasteSpecial xlPasteFormats
    End With
    cl.Offset(0, -2).Resize(1, 6).Copy
    With Sheets(x)
        .Cells(Sheets(x).Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).PasteSpecial xlPasteValues
        .Cells(Sheets(x).Cells(Rows.Count, 1).End(xlUp).Row, 1).PasteSpecial xlPasteFormats
        .Cells(Sheets(x).Cells(Rows.Count, 1).End(xlUp).Row, 1).PasteSpecial xlPasteColumnWidths
        .Cells(Sheets(x).Cells(Rows.Count, 2).End(xlUp).Row, 1) = Sheets(x).Cells(Sheets(x).Cells(Rows.Count, 2).End(xlUp).Row, 1).Row - 1
    End With
    Application.CutCopyMode = False
Next
MsgBox "تم الترحيل بنجاح الى صفحات منفصلة"
Sheets("الشيت الاساسي ").Select
Application.ScreenUpdating = False
End Sub

المبيعات الشهرية1.rar

[أبو حنــــين]

بعد اذن اخي الحبيب رجب

و اثراءا للموضوع و بنفس الفكرة تقريبا

 

المبيعات الشهرية2.rar

[محمد ابو البـراء]

وبعد اذن اساتذتي ومعلميَّ الافاضل

حبيبي واستاذي ومن كان سببا في وجودي هنا استاذي الغالي /رجب جاويش

استاذي الفاضل / ابو حنين

ولاثراء الموضوع هذه طريقة بالمعادلات

 

 

المبيعات الشهرية بالمعادلات.rar

[احمد الحاوي]

_{الاستاذان الكبيران : رجب جاويش وابو حنين}

_{جزاكما الله خيرا}

_{اخواني : مرفق ملف شيت كنترول لعمل كود ترحيل الى اعمدة غير مرتبة كما في المرفق}

_{ترحيل الناجحين الى ورقة (ناجحون اخر العام) بتنسيقها المطلوب للادارة}

_{ترحيل الراسبين الى ورقة (راسبون اخر العام)}

_{اخيرا هل من كود يطبع الورقتين الى نهاية الصفحة التي بها بيانات فقط} 

_{مثال : اذا كانت الورقة تحتوي على 10 صفحات ( الصفوف من 1 الى 300 ) مثلا حتى يسع اكبر عدد من الطلاب}

_{ولكن عدد طلاب الصف الخامس مثلا 153 وعدد الناجحين منهم 100 مثلا موزعين على 5 صفحات}

_{فهل يمكن عمل كود يطبع الصفحات التي بها بيانات فقط علما بان ناحية الطباعة تحوي 10 صفحات}

_{عذرا للاطالة وبارك الله فيكم}

 

 

_{ترحيل الى اعمدة غير مرتبة.rar}

[محمد ابو البـراء]

السلام عليكم ورحمة الله وبركاته

وبعد اذن الاساتذة الكرام

تفضل أخي الحبيب استاذ أحمد الحاوي الجزء الخاص بالترحيل

واخبرني بالنتيجة

هذا المرفق بالمعادلات

ترحيل الى اعمدة غير مرتبة بالمعادلات.rar

[الجواد الأبيض]

اخواني الاعزاء القائمين علي المنتدي جميعا واخص الأخوة الاساتذة / رجب جاويش ومحمد أبوا البراء وأبو حنين وذلك لسرعة الرد وتنفيذ المطلوب أفضل مما هو مطلوب جزاكم الله كل الخير جميعا

[احمد الحاوي]

الاستاذ الحبيب جدا الى قلبي : ابو البراء

جزيت الخير كله 

بارك الله فيك

[رجب جاويش]

أخى الحبيب / محمد أبو البراء

جزاك الله كل خير على كلماتك الطيبة

وشرفت جدا أخى الحبيب بمعرفتك الطيبة

 

وتسلم ايديك على عملك الرائع وسرعتك فى اجابة طلبات اخوتك فى المنتدى

[رجب جاويش]

أخى الحبيب / أبو حنين 

تسلم ايديك

دائما ابداعاتك لا تنتهى

[رجب جاويش]

أخى الفاضل / الجواد الأبيض

جزاك الله كل خير أخى الفاضل على كلماتك الطيبة

[محمدعوض]

الرجاء شرح كود  Sub Ragab()

[احمد الحاوي]

جزاكم الله كل خير