الطريقة الصحيحة لتحديد آخر صف / آخر عمود في البيانات باستخدام Excel VBA

Поділитися
Вставка
  • Опубліковано 15 гру 2024

КОМЕНТАРІ • 40

  • @ansslman9330
    @ansslman9330 Рік тому +2

    بارك الله فيك افضل مهندس بيشرح بطريقة متقدمة واضحة بكل اخلاص

    • @alhassanabuelkhair
      @alhassanabuelkhair  Рік тому

      بارك الله فيكم
      الله يعطيك العافيه 🌹🙏🙏

  • @النجيبللإلكترونيك

    شكرا يا بش مهندس بجد انت نمبر وان بلا مبالغة مفيش حد بيشرح الاكواد ويعلم في نفس الوقت ومش المهارة في قدر ما تعرف لكن المهارة انك تعرف كيف تعلم غيرك وهي صفة لا ينتلكها الا القليل

    • @alhassanabuelkhair
      @alhassanabuelkhair  Рік тому

      شكراً جزيلاً لحضرتك على هذا الكلام الطيب
      الله يعطيك العافية
      انا ممتن جداً لك

  • @nabilmezher7358
    @nabilmezher7358 Рік тому

    مشكور استاذي الغالي كل دروسك وشروحاتك رائعه وفقك الله استفدت منك الكثير جزاك الله عني خيراً إلى يوم الحساب

    • @alhassanabuelkhair
      @alhassanabuelkhair  Рік тому

      شكرا جزيلا لك استاذ نبيل 🌹🙏🙏
      انا سعيد بوجودك معنا

  • @حميدالمعموري-ظ8خ

    راقي جدا ❤❤❤❤

  • @thelion121
    @thelion121 Рік тому +1

    شكرا جزيلا على هيك معلومات ربي يحفظك

  • @والاخرةخيراٌوابقى-ل9ش

    الف شكر بارك الله فيك ممتاز الله يعطيك العافية

    • @alhassanabuelkhair
      @alhassanabuelkhair  Рік тому

      شكراُ جزيلاً لك الله يعطيك ألف عافية

  • @Amellal_
    @Amellal_ Рік тому +1

    الله يبارك فيك

  • @ashrafalgawad6603
    @ashrafalgawad6603 Рік тому +1

    شكرا جزيلا لحضرتك ❤ انت دائما متميز ربنا يجزيك خيرا ❤❤

  • @AhmedMahlwi
    @AhmedMahlwi Рік тому +1

    ممتاز جداً
    كل المواضيع التي نحتاجها نحن كمستخدمين الاكسل نجد الحل عندك
    شكراً جزيلاً لك❤.

    • @alhassanabuelkhair
      @alhassanabuelkhair  Рік тому +1

      الحمد لله رب العالمين
      و شكراً جزيلاً لك

    • @emysamir7535
      @emysamir7535 Рік тому

      لو في جروب محتاج كورس كامل لو متاح ممكن رقم للتواصل

    • @alhassanabuelkhair
      @alhassanabuelkhair  Рік тому

      تواصل معنا عبر الواتساب التالى
      201145453230

  • @kadhemal_amery650
    @kadhemal_amery650 Рік тому +1

    ❤❤❤ متميز دائما❤❤❤

  • @osamamorgan8572
    @osamamorgan8572 Рік тому +1

    جزاك الله عنا كل خير بفضل الله وفضلك قمت وبمتابعة دروسك بعمل برنامج مبيعات واعمل عليه منذ ٩ اشهر وقمت بتنظيم حوالي ١٥٠٠ فاتورة مبيعات وارسال فاتورة للعميل عن طريق الواتس بعد حفظ الفاتورة بصيغة pdf وانشاء نسخة احتياطية للبرنامج وادارة حسابات العملاء بكل سلاسة
    لك مني كل الاحترام والتقدير وجزاك الله عنا كل خير

    • @alhassanabuelkhair
      @alhassanabuelkhair  Рік тому

      و جزاكم الله خيرا استاذ أسامة
      هذا شرف كبير لي ♥️🙏🙏
      و اتمنى ان اكون عند حسن ظنكم

  • @محمدعوادعبدالستارجبريل

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

    • @alhassanabuelkhair
      @alhassanabuelkhair  Рік тому +1

      و عليكم السلام ورحمه الله
      الافضل استخدام اليوزرفورم

  • @tarekmando-r9m
    @tarekmando-r9m Рік тому

    لو سمحت يا بشمهندس ممكن اعرف اتواصل مع خضرتم

  • @Capabilitymechanicstechniques
    @Capabilitymechanicstechniques 5 місяців тому

    اخي العزيز .
    هل هذه الدوال تعمل في نسخة ٢٠١٠
    فعند تطبيقها يظهر لي خطأ دائما

    • @alhassanabuelkhair
      @alhassanabuelkhair  5 місяців тому

      نعم و انا استخدام اوفيس 2010 فى بعض الاحيان

  • @williamah9896
    @williamah9896 Рік тому

    سؤال أستاذي الكريم
    لو كان الشيت عندي مؤلف من 100 عمود مثلا
    وأريد أرحل القيم على آخر خلية مكتوب فيها بيانات ضمن مجال محدد من الأعمدة مثلا من العمود 25 حتى 30
    كيف ؟؟؟

  • @khaledosama5711
    @khaledosama5711 Рік тому

    شكرا جزيلا لمجهود حضرتك معانا ولكن عندي سؤال بسيط ،
    فيديو كود تعديل بيانات فاتورة المبيعات كان في أخره كود لاعادة ترتيب ارقام الفواتير مرة أخري بعد التعديل عندما كتبت هذا الكود لا يعمل معي ارجو من حضرتك فضلا وليس أمرا إعادة شرح هذا الكود الخاص بالترتيب أو طريقة أخري تؤدي هذا العرض واسف علي الإطالة

  • @Lind31beauty
    @Lind31beauty Рік тому

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

  • @abdulrahman66666
    @abdulrahman66666 Рік тому

    موفق دائما استاذي ومعلمي
    كان لي اسئلة واتمني من الله ان تنظر اليهم .
    السؤال الاول : افدنا في تحويل الxlsm الي ملف تشغيلي exe بشكل مجاني لزيادة الشكل الجمالي والاحترافي؟
    السؤال الثاني : افدنا كيف نؤمن مجهودنا بمعني كيف ان نجعل البرنامج demo او يتوقف بعد فترة وطلب سيريال مثلا لحفظ حق ومجهود مبرمج البرنامج فيه؟
    السؤال الثالث : كيف لنا ان نصنع نسخه احتياطية اوتوماتيكية من الداتا حتي نؤمن مايتم عمله علي البرنامج؟
    وبارك الله فيك وجازاك الله كل خير علي مجهودك الذي لايقدر بثمن...وشكرااا

    • @alhassanabuelkhair
      @alhassanabuelkhair  Рік тому

      شكراً لك لطرح هذه الاسئلة ..
      اولاً لا افضل تحويل xlsm الى exe لعدم حفظ البيانات فى هذه الحالة بشكل صحيح لكن يمكن الاحتفاظ بنفس الامتداد مع إجراءات الحماية الفائقة
      ثانياً يمكنك ربط تشغيل البرنامج بعدد مرات محددة او بتاريخ محدد
      ثالثاً يمكنك عمل نسخ احتياطى من البيانات الى قاعدة بيانات اكسس او ملف اكسل يتم إنشاؤه تلقائياً بعد غلق البرنامج مباشرة

    • @abdulrahman66666
      @abdulrahman66666 Рік тому

      @@alhassanabuelkhair
      هل لنا ان توضح لنا كيفية عمل هذه الاشياء اذا سمحت؟
      وجازاك الله كل خير وجعل نشرك للعلم صدقة جارية لك باذن الله

    • @alhassanabuelkhair
      @alhassanabuelkhair  Рік тому

      حاضر إن شاء الله تعالى سوف نعمل فيديو عن ذلك

    • @abdulrahman66666
      @abdulrahman66666 Рік тому

      @@alhassanabuelkhair
      باذن الله تعالي

  • @محمدالبشيري-س8خ

    لو سمحت احتاج كود استدعاء للفاتورة من خلال هذاالكود
    Dim lastRow As Integer
    lastRow = Sheets(5).Cells(Sheets(5).Rows.Count, "h").End(xlUp).Offset(1, 0).Row
    For i = 10 To 29
    If (Sheets(4).Cells(i, "C") = "") Then
    Exit Sub
    End If
    Sheets(5).Cells(lastRow, "A") = Sheets(4).Cells(8, "C")
    Sheets(5).Cells(lastRow, "B") = Sheets(4).Cells(7, "i")
    Sheets(5).Cells(lastRow, "C") = Sheets(4).Cells(7, "c")
    Sheets(5).Cells(lastRow, "D") = Sheets(4).Cells(7, "b")
    Sheets(5).Cells(lastRow, "G") = Sheets(4).Cells(i, "k")
    Sheets(5).Cells(lastRow, "H") = Sheets(4).Cells(i, "b")
    Sheets(5).Cells(lastRow, "i") = Sheets(4).Cells(i, "c")
    Sheets(5).Cells(lastRow, "J") = Sheets(4).Cells(i, "d")
    Sheets(5).Cells(lastRow, "k") = Sheets(4).Cells(i, "e")
    Sheets(5).Cells(lastRow, "l") = Sheets(4).Cells(i, "f")
    Sheets(5).Cells(lastRow, "m") = Sheets(4).Cells(i, "g")
    Sheets(5).Cells(lastRow, "n") = Sheets(4).Cells(i, "h")
    Sheets(5).Cells(lastRow, "o") = Sheets(4).Cells(i, "i")
    Sheets(5).Cells(lastRow, "p") = Sheets(4).Cells(i, "j")
    lastRow = lastRow + 1
    Next i
    End Sub
    احتاج كود استدعاء للفاتورة برقم الفاتورة في الخليةi7في الشيت4 من الشيت 5 العمود b و استدعاء بيانات هذه الفاتورةمن الشيت5الى الشيت 4

  • @sajad-ali-231
    @sajad-ali-231 Рік тому +1

    الاكسل يا اصدار اهذ