manola_mr

أ / محمد صالح

ممكن حضرتك تعرفها ازاي نعمل طريقة الحماية دي

ليها برامج معينه ولا إزاي

ولك جزيل الشكر مقدما

جزاك الله كل خير استاذ ابراهيم

ممكن شرح طريقة تصميم البرنامج

وشكرا

الاسم المدير

الرقم السري 123

في ٣٠‏/٨‏/٢٠٢٠ at 13:12, manola_mr said:

السلام عليكم استاذ عمرو

ممكن بعد اذنك شرح للكود ده وهوموجود بالنسخة لعمل نسخة احتياطي علي جوجل دريف

وازاي اعدل علي الكود بحيث يعملي نسخة احتياطي علي جوجل درايف الخاص بي

وشكرا لك مقدما

Sub go_d()
Dim Extension$
Dim savePathName As String
Extension = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5) & "Backup" & (Format(Now, " dd-mm-yyyy,hh.mm.ss AMPM")) & ".xlsb"
savePathName = Environ$("UserProfile") & "\Google Drive\000 SIS 2016 Net Backup\"
On Error Resume Next
Application.DisplayAlerts = False
GetAttr (savePathName)
Select Case Err.Number
Case Is = 0
Application.DisplayAlerts = False
ThisWorkbook.SaveCopyAs savePathName & Extension
Application.DisplayAlerts = True
Case Else
MkDir savePathName
ThisWorkbook.SaveCopyAs savePathName & Extension
End Select
On Error GoTo 0
End Sub

 

عليكم السلام ورحمة الله وبركاته

ماشاء الله برنامج رائع كما عودتنا استاذ عمرو
ربنا يبارك فيك وفي علمك
بس بالنسبة لمفتاح ( اكواد البيانات والجرد ) ليه مش فعال
وبالنسبة لفورم  ( نموذج استلام سيارة ) ( مرفق صورته )

الموجود داخل ملف الاكواد هل ليه استخدام بالبرنامج أم لا

ولك جزيل الشكر

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

في انتظار رد حضرتك استاذ شوقي

السلام عليكم ورحمة الله وبركاته
شكل العمل اكثر من رائع
ولكن عند تشغيله علي الجهاز لدي ظهرت هذه الرساله
ولم تظهر معي عند تشغيل اي ملف اخر بالاكسيل
فقد قمت بتشغيل ملفات كثرة جدا واشتغلت تمام ما عدا هذا البرنامج
ممكن اعرف فين المشكلة
علما بأن نسخة الويندوز7__ 64bit 
ونسخة الاوفس 2010 _ 32bit
والرامات 8 جيجا
ولك جزيل الشكر

السلام عليكم

جرب الملف المرفق وان شاء الله يشتغل مع حضرتك

الجدول المدرسى الخطيب سامى فؤاد.xlsb

ارجو الرد ضروري بعد اذنكم

up

up

السلام عليكم ورحمة الله وبركاته

الملف المرفق يوجد فيه المطلوب

وهو الملف يحتوي علي عملاء ولكن العميل الواحد ممكن يتكرر اسمه اكتر من مرة

مع ملاحظة اختلاف باقي البيانات

والمطلوب تعديل علي فورم البحث لنسخ رقم العقد للعميل المحدد والمظلل داخل فورم البحث ونسخه بالخليه رقم ( B1 )

عملاء.xlsm

19 دقائق مضت, عبدالسلام ابوالعوافي said:

ActiveCell = ActiveCell.Offset(0, -1).Value

 

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

السلام عليكم ورحمة الله وبركاته

ما هو الكود لكيفية نسخ الخلية التي قبل الخلية النشطة من الجهة اليمني

يعني لو الخلية B2 هي النشطة عاوزة كود لنسخ البيانات الموجودة بالخلية A2

او الخلية C13 هي النشطة عاوزة كود لسخ البيانات الموجودة بالخلية B13

ماشاء الله

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

شوف الملف المرفق لعله طلبك

كود تحويل الارقام إلى لغة عربية.rar

عليكم السلام

اتفضل لعل هذا ما طلبت

اضافة دوائر وحذفها معدل.rar

اقتباس

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

ولك جزيل الشكر مقدما

اين البرنامج استاذ ابراهيم

جزاك الله كل خير استاذ ابراهيم

وفي انتظار البرنامج

حضرتك لم تفهم وجهة نظري

وعموما شكرا لحضرتك

الاستاذ الفاضل حسام عيسي

ليه حضرتك عامل البرنامج ملف تنفيذي مع العلم ان الموقع كما تعلم تعليمي

ليه ماتحطش البرنامج ملف اكسيل وبدون حماية كما تعودنا من اساتذة المنتدي وأنت منهم

فلا تبخل علينا بعلمك ولا تبخل علينا أن نتعلم من خبراتكم

ولك جزيل الشكر مقدما

اسفة استاذ ياسر لم اري مشاركتك الا بعد الرد

أتفضلي اختي الفاضلة لعل هذا ما تحتاجينه

dalal_m.rar