ياسر العربى

أوفيسنا
  • Content count

    1,478
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    34

ياسر العربى last won the day on December 5 2016

ياسر العربى had the most liked content!

السمعه بالموقع

1,657 Excellent

عن العضو ياسر العربى

  • الرتبه
    الحمد لله
  • تاريخ الميلاد

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    Nothing
  • Location
    مصر
  • Interests
    الحمد لله

اخر الزوار

2,061 زياره للملف الشخصي
  1. تفضل اخي ناصر لعله المطلوب بطريقة بسيطة إضافة شرط على كود جلب بيانات.rar
  2. مشكور اخي الكريم ناصر على موضوعك هذا والفضل لك ايضا في تعديلك وتشكيلك للكود ليناسب احتياجاتك زادكم الله علما وجزيت خيرا تقبل تحياتي
  3. احتساب الثمن

    الله ينور حبيبي ابو يوسف مبتدئ ايه بقى دا ا نت دخلت عالم الدوال المعرفة اهو جزيت خيرا اخي الكريم تقبل تحياتي
  4. Sub Yasser() Range("B3:G3").Copy ورقة2.Range("B" & [A3].Value + 2) End Sub الكود بسيط في حالة نفس ترتيب الحاويات الموجود بالملف اما لو اختلف نعمل كود تاني دا حل الاخ Samo52 وياريت نغير الاسم للغة العربية تحياتي اما اخي medooo1 هشوف حل باذن الله لك حركة حاويات.rar
  5. تفضل اخي الكريم شرح مبسط Sub Test_Yasser_elaraby() 'بداية اول خلية في الخلايا المدمجة Range("C4").Select 'ايقاف تحديث الشاشة حتى لا ترى معالجة الكود وبطئ التنفيذ Application.ScreenUpdating = False 'حلقة تكرارية لحين تحقق شرط وهو ان يكون اخر خلية عند النزول اسفل بزر End 'وتكون الخلية فارغة يخرج الى الرقم 88 خارج الحلقة التكرارية Do 'الغاء دمج اول خلية تم الوقوف عليها Selection.UnMerge 'ومع نفس التحديد يتم عمل ملئ البيانات لنفس البيان بعد الغاء الدمج Selection.FillDown 'ننتقل الى الخلية المدمجة الاخرى Selection.End(xlDown).Select 'اذا كانت الخلية فارغة ينتقل الى 88 If ActiveCell.Value = "" Then GoTo 88 'يتم اعادة الحلقة التكرارية باستمرار طالما ان الخلية ليست فارغة ويظل ينتقل الى اسفل ويكررالكود Loop 'بعد الانتهاء يتم تحديد الخلية A1 88 Range("A1").Select 'اعادة تحديث الشاشة الى الوضع True Application.ScreenUpdating = True MsgBox "تم الغاء الدمج" End Sub
  6. شرح مبسط للكود 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. مشكورين اخواني الكرام فعلا انا تعمدت ان اجعله يستقبل البيانات تلو الاخرى ويحتفظ بالقديمة دا في حالة الترحيل المتراكم اما في الحالة التى طلبتوها دا مثال لعدم تكرار البيانات لعله المطلوب تحياتي لكم بيانات الموظفين - Copy.rar
  8. طيب ممكن كل الاحتمالات يعني كام جروب والاحتمالات اللي ممكن تحصل معاهم عشان الصورة توضح اكتر
  9. السلام عليكم اخي الكريم ناصر سعيد الحمد الله نحن في تمام الصحة لكم كل الشكر والتقدير على اهتمامكم انت والاخ الكريم طائع وفقنا الله واياكم ونتمنى عودة جميع الاحبة الى التفاعل داخل هذا المنتدى العظيم مرة اخرى تقبلوا فائق احترامي وتقديري
  10. تفضل لعله المطلوب اكسل - تقسيم الخلايا.rar
  11. دا برنامج مخازن بسيط وفيه الصلاحيات تقدر تطبق مثله كلمة المرور 123 الصلاحيات 123 تحياتي برنامج مخازن بسيط.rar
  12. الشكر لكم استاذنا الكريم دغيدي لمروركم الجميل وتفضل هذا الموضوع لفك حماية محرر الاكواد للامتدادات Xlsm AND Xlsb بدون تحويل الملف الى Xls https://www.officena.net/ib/topic/66951-فك-حماية-محرر-الاكواد-xlsm-xlsb-بدون-تحويل-الملفات-ل-xls/ تحياتي
  13. اختى الكريمة هذا الملف لفك حماية محرر الاكواد وحماية الشيتات من داخل المصنف وليس للحماية من الخارج طلبك موجود بعض البرامج بالمنتدى لفك مثل هذه الحماية اذا كانت كلمة المرور قصيره اما لو كانت كبيرة اما ان تاخذ وقت او هتجدي صعوبة في فكها تحياتي