اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

samycalls2020

03 عضو مميز
  • Content Count

    215
  • تاريخ الانضمام

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

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

11 Good

1 متابع

عن العضو samycalls2020

  • الإسم الفعلي
    الإســم

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    محاسب
  • البلد
    مصر
  • الإهتمامات
    رياضة

اخر الزوار

719 زياره للملف الشخصي
  1. السلام عليكم .. مرة أخرى وإن شاء الله أخيرة فى هذا الموضوع إن أذن لى استاذ / سليم.. Double_but2.xlsm
  2. طلب أخير استاذ / سليم .. أن سمحت لى أضفت زر أخر لنفس الماكرو والمراد .. هو أن يعمل الزران معاً بنفس الماكرو ويتغير نصهما ولونهما معاً بالضغط على أى منهما . زر مزدوج2.xlsm
  3. السلام عليكم .. هل يمكن اضافة للكود بحيث يتم تغير لون الشكل مع لون الكلمة زر مزدوج.xlsm
  4. الكود السابق .. أ / عبد الفتاح .. كما قلت لك عند استخدام هذا الكود على سبيل المثال وهو واحد من أكود كثيرة يأخد وقت طويل جداً حت يعطى النتيجة المطلوبه فقمت بحذف باقى الأكود وتشغيل الكود السابق ذكره أعطى نتيجه بسرعة كبيره .. ده معناه أن هنالك أكود أخرى تعمل وتسبب بطء وتعطيل لهذا الكود وهذا الكلام ينطبق على كل الأكواد .. فما أطلبه هو عند الضغط على زر أى ماكرو يعمل دون غيره .. عن طريق أن تضيف فية أو تعدلة أو أى شيء أخر المهم أن يعمل منفردا أى يعمل هو دون غيره .. أرجوا أن أكون وضحت ما أقصده
  5. أستاذى الفاضل .. أين جملة الأستدعاء فى ماذكر من أمثله مثال هذا كود يعمل بزر Sub للتصفية() ' لنسخ حساب القائمة المنسدلة من أرصدة الى الخزينة Sheets("الخزينة").Range("H9").Value = Range("D7").Value Application.ScreenUpdating = False Dim ws As Worksheet Dim sh As Worksheet Dim lr As Long Set ws = Sheets("الخزينة") Set sh = Sheets("تصفية") Application.ScreenUpdating = False ' إلغاء الفرز والتصفية إن وجد لجدول3 Sheets("الخزينة").Range("الجدول3").AutoFilter ' تصفية للعمود 13 P Sheets("الخزينة").Range("الجدول3").AutoFilter Field:=13, Criteria1:= _ "<>" Application.ScreenUpdating = False sh.Range("D12:N11011").ClearContents lr = sh.Cells(Rows.Count, 4).End(xlUp).Row + 1 Application.ScreenUpdating = False ws.Range("D12:K11011").SpecialCells(xlCellTypeVisible).Copy sh.Range("D" & lr).PasteSpecial xlPasteValues Application.CutCopyMode = False Application.ScreenUpdating = False ' إلغاء تصفية للعمود 13 P Sheets("الخزينة").Range("الجدول3").AutoFilter Field:=13 End Sub أين تكون الأضافة حتى لايعمل أى كود أخر فى الملف وليس فى الورقة نفسها فقط سواء كان تلقائى أو بزر
  6. الأستاذ عبد الفتاح / سلام الله عليكم مثلا لديك اكثر من ماكرو sub macro1() , sub macro2 تكتب call macro1 , call macro 2 السؤال .. أين نكتب هذا ؟ فى نفس الماكرو المطلوب استدعائه .. أم فى ماكرو منفصل وماذا إن كان هناك عدد من الماكرو تلقائى (يعمل بدون زر) وغيرهم يعمل بزر لأن المشكلة عمل عدد كبير من الماكرو فى نفس الوقت يسبب بطئ شديد
  7. السلام عليكم .. الأخوة الكرام .. هل يوجد كود لتشغيل ماكرو محدد أو أكثر فى ملف به الكثير من الماكرو
  8. النطاقات هى C7 :C96 , 97:C186 , C187:C306 , C307:C396 , C397:C486 , C487:C576 , C577:C666 , C667:C756 , C757:C846 , C847:936 , C937:C1026 وهى نطاقات ثابته
  9. استاذ / سليم .. الملف الأصلى بدون ألوان .. ووضعت أنا الألوان لتسهيل عملية شرح المطلوب تطبيقه فكيف الاستغناء عنها فى الكود ..
  10. أحمد الله أن حبانا المولى عز وجل بهذه القامات الكبيرة كل الشكر للأساتذة العظام .. سأقوم بتطبيق الأكوداد على الملف الأصلى للوصول الى الكود الأنسب حفظكم الله ..
  11. السلام عليكم الرجاء المساعده فى كود لنسخ أخر قيم فى نطاقات متعدده الى خلايا معينة كما فى المرفق .. نسخ أخر قيم فى نطاقات متعدده.xlsm
  12. جزء أخر أرجو المساعده فيه الترتيب يتم عن طريق sh.Range("B3:U" & LRR).Sort Key1:=sh.Range("E3"), Order1:=xlAscending E3 أى عمود E ويمكن تغيره فى الكود الى G3 أو غير ذلك .. فهل من الممكن عمل عمل قائمة منسدلة فى A1 مثلاُ ويتم اختيار عمود الفرز منها
×
×
  • اضف...