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