عبد الفتاح كيرة

شكرا على الاستفادة القيمة

فرصة طيبة أعرفكم على موقع لرفع العروض التقديمية تماما مثل موقع الفديو يوتيوب وقد رفعت العرض الخاص بالأخ AHMADHAMOOR يمكنكم مشاهدة العرض على الشبكة و تحميله شاهد عرضك هنا

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

الله الله الله صفحة مليئة بالإثراءات لما أدرسها بعد لكن أساهم بطريقة أخرى أخى السائل أنشئ زر أمر فى الصفحة واربطه بالكود التالى Sub ÒÑ1_ÇäÞÑ() On Error Resume Next Dim mycol As Collection Dim myrng As Range Set mycol = New Collection For Each myrng In Range("a1:a300") mycol.Add myrng.Value, myrng.Value Next myrng For i = 1 To mycol.Count Range("b" & i) = mycol(i) Next i End Sub مع الشكر المرفق حذف السطور المكررة باستخدام collection.zip

مع الشكر الجزيل للأخ بن علية فى الملف الأول قبل التعديل يمكن معرفة نهاية القائمة وطباعة مدير المؤسسة بالكود التالى Cells(Application.WorksheetFunction.CountA(Range("a7:a" & Rows.Count)) + 8, 6) = "مدير المؤسسة" و الفكرة هى عد العناصر فى العمود الأول بعد انتهاء الترحيل ونزيد عليه 8 صفوف مع الشكر لك و إن كنت أفضل أن يضع السائل عبارة مدير المؤسسة بتذييل الصفحة

جزاك الله خيرا و نفع بعلمك

جزاك الله خيرا و نفع بعلمك

أخى الغ دمج كل الخلايا و إذا أردت تكبير مساحة خلية كبر خطها ووسع حدودها بسيط جدا

أخ cat101 دمج الخلايا هو العدو الأول للأكواد احفظ هذا عنى ولا أرى لدمج الخلايا هنا فائدة يمكنك توسيع الخلية كما تريد بدلا من الدمج والكود يلصقها بنفس عرضها والله أعلم

مرحبا أخ ياسر هذا الملف فأين الشرح أفهم الكود إلى حد ما لكن من علمك نستزيد

أو هذا =IF(ISNA(VLOOKUP($B13;$J:$Q;5;0));"";VLOOKUP($B13;$J:$Q;5;0))

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

كود لإغلاق ورقة الاكسل بمجرد فتح الفورم أعتقد كود لإخفاء ورقة الاكسل بمجرد فتح الفورم

ضع المعادلة التالية فى c10 =VLOOKUP(C8;G1:H100;2;0) بدون ترتيب

الزر ِA به لون الخط حدد النص اضغط الزر A ستفتح نافذة الخط نوعه حجمه لونه هذا فى 2007 كما هو الحال معك شاهد الصورة مع الشكر

جزاك الله خيرا على الكود ماذا لو كانت الخلية A1 فارغة؟ أضفت السطر التالى للكود Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("a1")) Is Nothing Then '------------------------------- On Error GoTo 1 ActiveSheet.Name = Target 1 End If End Sub و من علمكم نستزيد بارك الله فيك

الأخ abo_alaa الأخ الحسامى شكرا لكما

أوافقك أخى الكريم هذا الكود البسيط يحتاج لتوضيح نرجو من أستاذنا الفاضل خبور تولى شرحه مشكورا

مرحبا إخواننا بارك الله فيكم الأستاذ خبور هذا من فضل الله ثم فضلكم علينا و بضاعتكم ردت إليكم ننتظر تعليقكم على الأكواد الأستاذ نادر شكرا لردك الجميل و أسعدنى مرورك الكريم الأستاذ أحمد شكرا لك و مبارك ترقيتك الأستاذ khhanna أشكرك و ليس هناك ملفات مضغوطة ربما المشكلة أن الملف ممكن فيه الماكرو فلا يصلح معه برنامج التحويل شكرا للجميع

السلام عليكم الملف 2007 مفتوح الأكواد الملف 2003 مفتوح الأكواد لكن سيكون هناك فقد لدالة أو أكثر

السلام عليكم أقدم لكم هذا البرنامج الشامل لإدارة شئون الطلاب يقوم بما يلى إدخال بيانات الطلاب عن طريق نموذج تعديل البيانات توزيع الفصول أوتوماتيكيا حسب العدد المطلوب و حسب المجموع استخراج كشوف : المحولين من و إلى المدرسة المرضى المصروفات الأيتام كشوف 41 مستجدين كشوف 12 د امتحانات عمل قوائم الفصول أصحاب الإنذارات التحميل و البرنامج نستخدمه الآن فى مدارسنا و يعمل بكفاءة ويقدم لنا خدمات جليلة أشكر كل عضو هنا استفدت منه و خاصة الأستاذ خبور حفظه الله

و عليكم السلام ورحمة الله و بركاته بارك الله فيك أخى الكريم شكرا لثنائك لطيب

حدد الكود المراد نسخه انسخ الكود ( مع التحديد copy أو مفتاح كنترول + c ) افتح اكسل اضغط Alt + f11 من قائمة insert اختر module الصق ما نسخت مفتاح كنترول + v لتخصيص زر ارجع لشيت اكسل ( Alt + f11 ) أدرج الزر ( حسب نسخة أوفيس ) كليك يمين تعيين ماكرو ثم حدد اسم الماكرو الذى لصقته سلفا انتهى

قصى أنا شايف ملفك تمام أين الرقم الخطأ

نوووووور لعلك تقصد عدد الأعمدة وليس الصفوف الأعمدة تمثل عناوين الصفوف تمثل البيانات أقصى عدد للأعمدة فى إكسل 2010 = 16384 فلو عملت قاعدة بيانات من 500 عمود فستظهر فى الفورم و مع ذلك جرب