الـعيدروس

وش نوع الملف الذي انت مرسله لا يفتح نرجو ارفاق ملف اكسل واعمل عليه ضغط بااحد برامج الضغط winrar و winzeb

هكذا بيكون الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A2:A100")) Is Nothing Then With Target .Offset(0, 1).Value = Format(Now(), "hh:mm:ss") '================== ' لعمل تلوين للخلية .Offset(0, 1).Interior.Color = RGB(255, 263, 123) '================== ' لعمل تسطير حول الخلية مع تلوين السطر بلون اسود .Offset(0, 1).Borders.Color = 1 '================== ' حجم الخط .Offset(0, 1).Font.Size = 16 '================== ' لون الخط .Offset(0, 1).Font.Color = 3 '================== ' نوع الخط .Offset(0, 1).Font.Name = "Traditional Arabic" '================== ' لتوسيط الكلمة وسط الخلية .Offset(0, 1).HorizontalAlignment = xlCenter End With If IsEmpty(Target.Value) Then Target.Offset(0, 1).ClearContents End If End Sub امل ان اكون افدتك

هل تريد عمل فورمات للخلية التي بها الوقت مع الكود ومع الحذف ينحذف الفورمات هكذا مقصدك ؟؟

السلام عليكم نتيجة الفرز اين تريدها ان تكون في نفس الشيت ام في شيت اخر

السلام عليكم جزاك الله خير على الكود بالنسبة لي انا استخدم هذا الكود Sub ALIDROOS_SAVE() Const PRUEBAS = "D:\" Dim Nombre As String Nombre = "إسم النسخة" With ActiveWorkbook .SaveCopyAs Filename:=PRUEBAS & Nombre & "_" & Format(Now, "dd-mm-yyyy") & ".xls" MsgBox ("تم حفظ قاعدة بيانات بالأسم التالي..." & Nombre & vbInformation) End With End Sub وبإنتظار برنامج المخزون نشكر لك جهودك موفق ان شاء الله تقبل مروري

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

اشكرك على دعائك وكلماتك الطيبه والحمد لله ان زبط معاك تقبل تحياتي وشكري

السلام عليكم طيب جرب هكذا Private Sub Workbook_Open() Application.DisplayFormulaBar = False ActiveWindow.DisplayHeadings = False Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",TRUE)" Application.DisplayFormulaBar = True ActiveWindow.DisplayHeadings = True Application.DisplayAlerts = False Me.Saved = True Application.DisplayAlerts = True End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) Application.DisplayFormulaBar = False ActiveWindow.DisplayHeadings = False Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" End Sub ومرفق ملف فيديو لتأكيد عمل الكود عندي S_ALIDROOS.rar

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

اشكرك على دعائك وكلماتك الطيبه اخي الفاصل ماهو الاوفيس الذي تعمل عليه 2003 ام 2007؟

السلام عليكم تفضل جرب المرفق للعلم لم اضف شيء حطيت الكود عليه وجربت يعمل ولاتوجد ايتها مشاكل وانما خير التجربه عندك جرب واطلعنى بالنتائج ترحيل_ali_1.rar

السلام عليكم الاخ الفاضل ابو الحسن لاعليك انما انا بحاول من اول احمل المرفق الذي في المشاركة الاولى ولم استطيع لااعلم اين المشكلة ارجو منك رفعه عن طريق سرفر خارجي على اي موقع مثلا 4SHARE وارفق الرابط اذا تكرمت وبالنسبة للطلب الاخير لم افهم ارجو التوضيح اكثر والسلام عليكم

السلام عليكم الاخ الفاضل فضل حفظك الله فضل اسم على مسمى حط هذه الأكواد في حدث ThisWorkbook Private Sub Workbook_Open() Application.DisplayFormulaBar = False ActiveWindow.DisplayHeadings = False Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",TRUE)" Application.DisplayFormulaBar = True ActiveWindow.DisplayHeadings = True End Sub ولاتنسانا بدعوة كذا ان الله ييسر امورنا

بيكون الكود بهذا الشكل جرب واخبرني بالنتائج Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A2:A100")) Is Nothing Then Target.Offset(0, 1).Value = Format(Now(), "hh:mm:ss") If IsEmpty(Target.Value) Then Target.Offset(0, 1).Clear End If End Sub

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

السلام عليكم بعد اذن الاستاذ عبدالله الاخ الفاضل نور سعيد بأذن الله بهذا الأسلوب سوف تكسب معلومات أكثر بؤقت أقل بالنسبة لاإستفسارك هذا السطر من الكود بإستخدام offset ازاحة عمود Target.Offset(0, 1) A وعند ازاحة عمود يصير عمود B مثلا لو اردنا ازاحة صف وليس عمود بيكون كالتالي Target.Offset(1, 0) ولو أردنا ازاحة عمود وصف مثلا اكتب الاسم في خلية A1 يظهر الوقت في خلية B2 بيصير كذا Target.Offset(1, 1) بمعنى معيار دالة OFFSET الاول ( 1,0) لإزاحة صفوف المعيار الثاني للدالة ( 0,1) لإزاحة اعمدة هذا والله أعلم

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

السلام عليكم الاخ الفاضل هاني بدر زبطت معاي الفكرة الحمد لله جرب المرفق وابلغني بالنتيجة حتى نكمل ماتبقى من طلبك ALIDROOS_C_DATE.rar

السلام عليكم الاستاذ الحبيب عبدالله المجرب كود مختصر جميل تسلم ووفقك الله تقبل مروري

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

السلام عليكم سلمت يمناك اخي سعيد بيرم ملف قيم جزاك الله خير على هذه النقله المميزة تقبل مروري

ماهيا نوع المشاكل الاكسل اكثر اعتمادة في الربط غلى المعادلات واذا كنت تريد ربط جداول ونماذج ومن هذا القبيل فعليك بالاكسيس هذا والله اعلم

السلام عليكم الاستاذ الحبيب يحياوي جزاك الله الف خير هذا بعض ماعندكم وفقك الله الا خ الفاضل apt اطلع على المشاركة رقم 8 رد الاستاذ الحبيب محمد يحياوي وانقر على الرابط الخط الاحمر ملف اكسل تنفيذي

السلام عليكم الفكرة هيا تغير قيمة الماكرو من الريجستري مرفق شرح الاستاذ المبدع محمد يحياوي وملف الرجستري اتبع الشرح وسوف توصل للمراد ولاتنسى دعوة كذا من قلبك للاستاذ يحياوي ودعوة لاخوك الفقير الى الله زيادة خير منك والسلام عليكم M_YAHYAOY.rar

السلام عليكم مااصعب التعديل على الأكواد اصنع برنامج اهون من ان اقعد ادور فحاصص كود هههههه اضن الكود من اعمال الاستاذ الحسامي لذا ننتظر مشاركته القيمة للتعديل والسلام عليكم