محمد يوسف ابو يوسف

وعليكم السلام ورحمة الله وبركاتة
اخي احمد الطرفاوي
تفضل
Sub tast() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("Sheet1") ss = ws.Cells(Rows.Count, 1).End(xlUp).Row k = 0 For Each C In ws.Range("A2:A" & ss) If C > 1 Then ws.Cells(C.Row, 2).Value = "ضع المعادلة هنا" k = k + 1 End If Next C End Sub  

اخي  الفارس محمد رجب
تفضلنسخة من البحث بالليست بوكس (1).xlsm
 

السلام عليكم ورحمة الله وبركاتة
بالفعل ماتقوله صحيح
تفضل المحترف - 2023-9-م.xlsm

السلام عليكم ورحمة الله وبركاتة 
بعد اذن اساتذتي واحبابي في الله
اخي عماني عماني
تفضل ما طلبت بالكود 
طلبك الاولاني
تجديد حركة السير.xlsm
تفضل طلبك الاخير بلاكود ايصاُ
تفضل
تجديد 2024.xlsm

السلام عليكم ورحمة الله وبركاتة
كل عام وانتم بخير ... رمضان كريم
 
تفضل حافز المنظومة 2023.xls

تفضل نسخة من قائمة مندلة لعرض على الجدول1.xlsm

اخي  علي بن علي
كما ذكر..... اخي حسونة  ...
الكود الاول والثاني يعملان بكفائة
ومع ذالك تفضل نسخة من طباعة اعمده محدده (1).xlsm
تم شرح الكود لتسهيل فهمه لك ...... وتم تغير بسيط بالكود ليتناسب معك...ولم يترك اي عمود مخفي بعد المعاينة و الطباعة
اتمني ان يكون المطلوب

وعليكم السلام ورحمة الله وبركاتة
ضع الفولدر المسمي تخزين علي برتيش D ....وان ارت تغير الموقع يكن من هنا ...  FName = "d:\تخزين\"
 
واستخدم الملف المسمي Main من اي مكان
 
تفضل  تخزين.rar

وعليكم السلام ورحمة الله
 
تفضلtest.xlsm

وعليكم السلام ورحمة الله
تفضل 
Sub taxt() Range("a1:H20") = "0" End Sub  

السلام عليكم
من  
volume     انظر الصورة 

وعليكم السلام
تفضل طلبك  الاول لحين فهم طلبك الاخر
الملف جدول صيانة.xlsm

اخي
بالفعل هذا ما تم عملة ----عند الضغط علي زر طباعة مدي الناجحين يتم حفظ ملف pdf  علي برتيشن d
اخي يوجد شرط لتنفيز المطلوب لديك .... الشرط كتابة النتيجة ناجح 
اولاً قم بكتابة كلمة ناجح امام النتيجة ... ثم اضغط زر طباعة مدي الناجحين ..وسف يقوم الكود بعمل اللازم
تفضل
الملف مرة اخري شهادات ,والراسبين 4 تعريق متغيرات.xlsm
 
 
 

تفضل ...اتمني ان تكن انتهت المهمة
الملف خلطة العملاء.xlsm
 

السلام عليكم ..التعديل هنا
  Range("B45:H191").Copy
تفضل 
الملف vehicles Cost.xlsm

السلام عليكم 
اخي يجب عليك استخدام الة البحث في المنتدي ثم طرح السؤال
علي العموم  تفضل هذا الملف /لأستاذنا / علي
الملف System_Excel_Shops.rar

اخي ..ان كان فهمي صحيح فهذا طلبك
الملف export1.xlsm
الكود المستخدم
Sub تحويل_التاريخ_الي_هجري()     Range("A2:B62").Select     Selection.NumberFormat = "[$-,106]B2yyyy/mm/dd;@"     Range("A2:B62").Select     Selection.End(xlUp).Select End Sub
 

اخي 
اولاً تقوم بألغاء الحماية  -  ثانياً تقف علي خليه h2 ثم الضغط زر الموس الاين واختيار تنسيق خلاية ثم تقوم بازالة الحماية -- ملخص تم ازالة الحماية من الخلية h2
من فضلك قم بألضغط علي افضل اجابة ليتم انهاء المشاركة من قبل المنتدي
جزاك الله خيراً

اخي 
اولاً تقوم بألغاء الحماية  -  ثانياً تقف علي خليه h2 ثم الضغط زر الموس الاين واختيار تنسيق خلاية ثم تقوم بازالة الحماية -- ملخص تم ازالة الحماية من الخلية h2
من فضلك قم بألضغط علي افضل اجابة ليتم انهاء المشاركة من قبل المنتدي
جزاك الله خيراً

اخي 
اولاً تقوم بألغاء الحماية  -  ثانياً تقف علي خليه h2 ثم الضغط زر الموس الاين واختيار تنسيق خلاية ثم تقوم بازالة الحماية -- ملخص تم ازالة الحماية من الخلية h2
من فضلك قم بألضغط علي افضل اجابة ليتم انهاء المشاركة من قبل المنتدي
جزاك الله خيراً

اخي  khairi ali
مرة اخري
تفضل  مخزن.xlsm

اخي Hicham1470
تفضل طلبك
هل هذا طلبكحفظ الملف بتاريخ اليوم.xlsm

اخي  عبد الله السعيد
كان يجب عليك التوضيح من قبل  لان الوقت محدود لدي - اسأل الله ان يعين الجميع علي عمله
علي العموم تفضل  ما طلبت
ملفك Zeroo.xlsm

بسم الله الرحمن الرحيم  والحمد الله رب العالمين
بعد البحث الكثير  داخل المنتدي وخارج المنتدي لم اجد ما اريد
ولكن صممت ان اوجد ما اريد 
والحمد لله  وفقني الله -- ان اكتب هذا الكود الجميل الذي يفي بألمطلوب 
وكررت ان اضعه للفائدة
كود تصدير مدي محدد الي ملف نصي وحفظه بأسم خليه معينة - علي برتيشن d
Sub dحفظ_ملف_تاست_بأسم_خلية_علي_برتيشن()                   Range("A1:I108").Select     Selection.Copy     Workbooks.Add     Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _         False, Transpose:=False     Application.CutCopyMode = False     ActiveWorkbook.SaveAs Filename:="D:\" & Cells(1, 2).Text & Nombre & " نسخة" & Format(Now, "-dddd-dd-mm-yyyy-") & ".txt", FileFormat:=xlText, _         CreateBackup:=False     ActiveWindow.Close     Range("A1").Select End Sub تصدير البيانات الي ملف نصي وحفظة بأسم خلية معينه تصدير البيانات الي ملف نصي وحفظ بأسم خلية معينه.xls

بسم الله الرحمن الرحيم  والحمد الله رب العالمين
بعد البحث الكثير  داخل المنتدي وخارج المنتدي لم اجد ما اريد
ولكن صممت ان اوجد ما اريد 
والحمد لله  وفقني الله -- ان اكتب هذا الكود الجميل الذي يفي بألمطلوب 
وكررت ان اضعه للفائدة
كود تصدير مدي محدد الي ملف نصي وحفظه بأسم خليه معينة - علي برتيشن d
Sub dحفظ_ملف_تاست_بأسم_خلية_علي_برتيشن()                   Range("A1:I108").Select     Selection.Copy     Workbooks.Add     Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _         False, Transpose:=False     Application.CutCopyMode = False     ActiveWorkbook.SaveAs Filename:="D:\" & Cells(1, 2).Text & Nombre & " نسخة" & Format(Now, "-dddd-dd-mm-yyyy-") & ".txt", FileFormat:=xlText, _         CreateBackup:=False     ActiveWindow.Close     Range("A1").Select End Sub تصدير البيانات الي ملف نصي وحفظة بأسم خلية معينه تصدير البيانات الي ملف نصي وحفظ بأسم خلية معينه.xls