Mostafa Mohy

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

ربنا يبارك لنا في حضرتك يافندم

بسم الله الرحمن الرحيم برنامج ارسال الاف الرسائل بسهولة مطلقة علي الواتساب معتمد يصفة اساسية علي الVBA وترجمة الخطوات الروتينية لارسال رسالة واحدة علي الواتس اب وتنفيذها داخل حلقة تكرارية لارسال اي عدد ممكن بشرط الارقام تكون متسجلة علي سجل الهاتف الملف موجود للتحميل ولو اي حاجه وقفت قدامك وان شاء الله ده مش هيحصل فده فيديو شرح للبرنامج https://cutt.us/6PG4l وبالمناسبة علشان مطولش علي حضرتكم علشان ليا سؤال عند خبراء المنتدي لو حد الموضوع هيفرق معاه وهيحتاج انه يجيب ارقام عليها واتساب او ينزل ارقام علي الاكسيل لسجل الهاتف الخاص بي ممكن يكتبلي في التعليقات والله العظيم هستغل البرنامج في الخير بس انت حلفت وانت حر بقي ربنا يستر علي الجميع ان شاء الله !! _____________________________________________ اتمني اكون قدمت قبل ما اطلب الخدمة انا في شغلي متبني جدا فكرة العمل الالي للكمبيوتر بتاعي وربنا بيوفقني وبعمل حاجات زمايلي في الادارات التانية مش بيصدقوا ان الكمبيوتر شغال لوحده وبينزل داتا او بيطبع ورق البيانات الي فيه مختلفة بس انا عايز انمي نفسي اوي في الحته دي كل اعتمتادي علي SENDKEYS مثلا او تحريك الماوس في ابعاد معينة والنقر وهكذا وباخد العمل الروتيني ده واحطه في بنية تكرارية من 1 ل 100 علي سبيل المثال وكل عده بيجلب بيانات معينة وينفذها اتمني حد يساعدني بمصدر ادرس منه لكي يكون الموضوع اكثر مهنيه مش مجرد اجتهادات مني بتنجح بامتياز الف حمد والف شكر ليك يارب بس عايز اكون اكثر اطلاع يارب يكون حد فهمني من اساتذتنا الكبار في المنتدي وبااااااااااارك الله فيكم whatsapp.xlsm

لا يوجد اي شغل في الاكسيل سوي كتابة من 1 الي 10 علي سبيل المثال تحت بعض وتحديدهم والذهاب الي الفيجول بيزك من خلال الضغط علي alt +f11 ومن ثم طباعة الكود والضغط علي المثلث الاخضر (run)

ارجوا ان تقبلوا تحياتي في اول مشاركة لي علي المنتدي العظيم ده فيه حاجات كتير جدا جدا عايز انزلها بس مش عارف ازاي اقدر انزل فيديو شرح لو حد يقدر يحط لي لينكات شرح هكون شاكر لان فيه طريقة انا بشتغل بيها وحابب اشاركها معاكم بس النهاردة حابب اشارك معاكم الكود بتاعي الي من خلاله بقدر انشئ اي عدد من الفولدرات وده بينفعني جدا في شغلي هتاخد الكود تحطه في ميديول جديد و في الشييت تحت العمود A من رقم 1 الي اي رقم انت عايزة يعني 1 ,2 ,3 ........10 وتعمل عليهم سليكت وبعد كدة ctrl+f11 وتدوس رن للكود هتلاقي الفولدرات كلها جاهزة للاستخدام شكرا جدا علي وقتكم وانتظروني في دورة بأسم "التحكم الكامل بالكمبيوتر من خلال الاكسيل "انا مجهزها يوتيوب بس هحاول اصيغها شرح علشان اقدر انزلها هنا بدون مشاكل ربنا يوفقكم جميعا Sub MakeFolders() Dim Rng As Range Dim maxRows, maxCols, r, c As Integer Set Rng = Selection maxRows = Rng.Rows.Count maxCols = Rng.Columns.Count For c = 1 To maxCols r = 1 Do While r <= maxRows If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then MkDir (ActiveWorkbook.Path & "\" & Rng(r, c)) On Error Resume Next End If r = r + 1 Loop Next c End Sub