moooss1

مافيش حد يقدر يساعد؟

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

بيانات الموظفين نو.rar

بسم الله الرحمن الرحيم 

السلام عليكم

اريد المساعدة فى ترحيل هذا الكود 

اريد ترحيل الموظفين الذين على الشركة وايضا على راس العمل فى صفحة الشركة

والموظفين الذين على المكتب وايضا على راس العمل فى صفحة المكتب

واريد الموظفن الذين تم انهاء خدماتهم فى صفهم 

والموظفين الذي استقالو فى صفحة 

والموظفين الذين فى اجازة فى صفحة

بيانات الموظفين نو.rar

بسم الله الرحمن الرحيم 

السلام عليكم

اريد المساعدة فى ترحيل هذا الكود 

اريد ترحيل الموظفين الذين على الشركة وايضا على راس العمل فى صفحة الشركة

والموظفين الذين على المكتب وايضا على راس العمل فى صفحة المكتب

واريد الموظفن الذين تم انهاء خدماتهم فى صفهم 

والموظفين الذي استقالو فى صفحة 

والموظفين الذين فى اجازة فى صفحة

بيانات الموظفين نو.rar

بسم الله الرحمن الرحيم 

السلام عليكم

اريد المساعدة فى ترحيل هذا الكود 

اريد ترحيل الموظفين الذين على الشركة وايضا على راس العمل فى صفحة الشركة

والموظفين الذين على المكتب وايضا على راس العمل فى صفحة المكتب

واريد الموظفن الذين تم انهاء خدماتهم فى صفهم 

والموظفين الذي استقالو فى صفحة 

والموظفين الذين فى اجازة فى صفحة

بيانات الموظفين نو.rar

اين الشباب؟؟؟ظ؟

بسم الله الرحمن الرحيم 

اريد التعديل فى كود الاستاذ محمدى

فى هذا الملف تم الترحيل فى الصفحة الاول والثانية ولم يتم الترحيل فى الثالثة لماذا 

واريد شرط اخر مع كل صفحة  

اريد الموظفين  الذين على الشركة وبشرط الذين على راس العمل فقط

وايضا الموظفين الذين على المكتب  وبشرط الذين على راس العمل فقط

والصفحة الاخيرة  اريد الذين تم انهاء خدماتهم فقط

بيانات الموظفين نو.rar

ممكن بعد اذنك تطبيق الطريقة على هذا الملف 

ترحيل بى جهة العمل 

وترجيل بى حالة الموظف

بيانات الموظفين010.rar

21 ساعات مضت, ياسر العربى said:

شرح مبسط للكود

Sub Test_Yasser()
'متغير  واي ونستخدمه في الحلقة التكرارية الاولى ليرمز لرقم الشيت
'متغير اكس وهو خاص بالحلقة التكرارية الثانية ويقوم بعد عدد الاسطر الموجود باه بيانات لمقارنة كل بيان بصفحته
'المتغير اس تي ار   متغير من نوع نصى ليشير الى اسم الشيت وهو يساوي  العمود الخاص بأسماء الصفحات
    Dim Y, X, str As String
    'هنا المتغير واي يبدأ من 2 الى 4 وهي عدد الصفحات من بعد الاولي حتى الاخيرة
    For Y = 2 To 4
        'هنا يتم المرور على كل الشيتات المحددة في الحلقة بخلاف الشيت الاول ومسح محتوياتهم تمهيدا لجلب المحتوى الجديد
        Sheets(Y).Range("C6:F" & Sheets(Y).Cells(Rows.Count, 3).End(xlUp).Row).ClearContents
    Next
    'هناحلقة تكرارية تبدأ بأول صف بيانات وهو 6 حتى نهاية البيانات بالصفحة الرئيسية
    For X = 6 To Cells(Rows.Count, 3).End(xlUp).Row
        'المتغيرالخاص بخليه اسم الشيت حتى يتم نسخ البيانات اليه
        str = Cells(X, 6)
        'هنا يتم نسخ كل صف داخل الحلقة التكرارية ووضعه في الشيت المذكور اسمه بجانب البيانات
        'بفرض في هذا المثال ان المتغير اكس بيساوي 6 في اول حلقة له يبقي السطر البرمجي يصبح هكذا
        ' Range("C6:F6").Copy Sheets("الشركة").Range("C" & Sheets("الشركة").Cells(Rows.Count, 3).End(xlUp).Row + 1)
        Range("C" & X & ":F" & X).Copy Sheets(str).Range("C" & Sheets(str).Cells(Rows.Count, 3).End(xlUp).Row + 1)
    Next
    MsgBox "Done........", 64
End Sub

 

 

الف شكر لك اخى شرح رائع 

ولكن عندما تم تطبيق الطريقة على ملف اخر كبير لم تتم العملية وظهر خطا  

فما هيا التغيرات الى اغيره فى هذا الكود فى حالة العمل على ملف اخر  يحتوى على اعمدة اكثر او صفحات زياردة 

7 ساعات مضت, ياسر العربى said:

 

تفضل لعله المطلوب

بيانات الموظفين - Copy.rar

الف مليون شكر اخى ولكن هناك مشكلة  عندما يتم الترحيل  يتم تكرار نفس الاسماء مرة اخرى 

فين الشباب ؟

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

اريد المساعدة فى امر  هام 

عندى ملف اكسيل لى  بيانات الموظفين 

لدى ثلات جهات  للعمل ( الشقق-الشركة-المكتب)

وتمت اظافة بينات الموظفين فى الصفحة الاولى وبها جهة العمل لدى كل موظف

وتم عمل ثلات صفحات اخرى كل صفحة باسم جهة عمل

ما اريدة هو ترحيل بينات الموظفين فى الصفحات ولكن حسب جهة العمل 

اى الموظفين الذين يعملون فى الشركة اريدهم فى صفحة الشركة فقط 

والوظفين الذين يعملون فى المكتب اريدهم فى صفحة الكتب فقط

والشى المهم جدا الذى اريدة  هو اظافة الاسماء اوتماتيكينا

يعنى عند اظافة اى من الموظفين فى الصفحة الاول يتم اظافة فى جهة العمل الخاصة بية اوتوماتيكينا

اى عند اطافة موظف فى قسم الشركة اجدة  فى صفحة الشركة اوتماتيكيا 

ملاحظة

اريد طريقة عير طريقة الفلاترة

بيانات الموظفين - Copy.rar