Jump to content
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

أبو العاصم

03 Special Member
  • Content Count

    474
  • Joined

  • Last visited

Community Reputation

7 Neutral

About أبو العاصم

  • Rank
    Name

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    محاسب

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. السلام عليكم ورحمة الله قام الاخ المبدع دائما ياسر خليل بعمل موضوع بعنوان حماية كافة أوراق العمل وإلغاء الحماية & الحماية بمجرد تنشيط ورقة العمل على الرابط http://www.officena.net/ib/index.php?showtopic=61654&page=1 المطلوب له علاقه بموضوع الاخ ياسر خليل وهو عمل كود فى حدث صفحة معينة لعمل حماية لخلايا الصفحة فقط وليس كل المجلد مع تمكين ( خاصية الفلترة وخاصية الجروب والانجروب ) من داخل الكود المرفق ملف الزعيم ياسر خليل الرجاء تعديله للوصول للمطلوب Protect & Unprotect All Sheets YasserKhalil V3.rar
  2. السلام عليكم ورحمة الله رمضان كريم :( عندى عمود عملت له تنسيق بحيث أنه بمجرد ادخال الرقم xx يكتب مباشرة ملف رقم xx المطلوب كيف أقوم بنقله إلى خلية أخرى بالبحث بدالة VLOOKUP وبارك الله فيكم
  3. والله أخ هانى بدر أنا تعبت جدا من بعض الاكواد وبعض الحلول ومحتاج خبير برمجة وخبير محاسبة لمساعدتى واعطائى المقترحات فهل وقتك مناسب
  4. شكرا جزيلا أخى المفضال باسر خليل بارك الله فيك
  5. السلام عليكم ورحمة الله ظهرت لى هذه الرسالة كلما قمت بحفظ الملف مع التنبيه على ان الملف قد قمت بنسخه من ملف أخر أرجو منكم المساعدة فى إيجاد سبب هذه الرسالة والتخلص منها
  6. الحمد لله وصلت للكود هل من تعديل ليقوم بطباعة الظاهر فقط فى الصفحة الأولى من الفلترة
  7. Sub MAN() Dim I As Integer For I = Range("V7") To Range("V8") Range("T7") = I If I <= Range("V8") Then ActiveWorkbook.Save ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next I End Sub
  8. السلام عليكم ورحمة الله نظرا لحاجتى الشديدة قمت بطرح التالى الكود المطلوب تعديله Sub Printing()] Dim I As Integer For I = 1158 To 1160 المطلوب تعديل الكود ليكون معيار البداية هو الخلية V7 ومعيار النهايه هو الخلية V8 Range("T7") = I If I <= 1160 Then هنا معيار النهايه سيحدد فى الكود V8 ActiveWorkbook.Save ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next I [End Sub فهل المطلوب قد وصل لكم
  9. السلام عليكم ورحمة الله هل أوصلتكم المطلوب أم ما زال اللبس موجود الرجاء المساعدة لقد قمت بإنهاء ملف الخزينة وتبقى فيه هذه الجزئية
  10. السيد ياسر خليل المهندس ياسر فتحى البنا هل معادلات الملف الخاص بالفاتورة تعمل أمامكم لان كل ملفات الاكسيل عندى تتلف ولا أعرف السبب فأكواد كثيرة تتلف من عندى
  11. السلام عليكم ورحمة الله هل أوصلتكم المطلوب أم ما زال اللبس موجود الرجاء المساعدة لقد قمت بإنهاء ملف الخزينة وتبقى فيه هذه الجزئية
×
×
  • Create New...