حسين مامون

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

ضع هذا الكود في حدث thisworkbook Option Explicit Private Sub Workbook_Open() On Error Resume Next Dim x, r Dim ws As Worksheet Set ws = Sheets("ورقة1") For x = 2 To 6 For r = 2 To 6 If ws.Cells(x, r) = "" Then ws.Cells(x, r) = "/" End If Next Next End Sub وهذا في حدث الشيت Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim rng Set rng = Range("b2:f6") If Not Intersect(Target, rng) Is Nothing Then If Target = "" Then Target = "/" End If End Sub

استعمل هذا الكود في حدث الشيت Private Sub Worksheet_Change(ByVal Target As Range) Dim rng Set rng = Range("b2:f6") If Not Intersect(Target, rng) Is Nothing Then If Target = "" Then Target = "/" End If End Sub

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

ادخل الى هذا الرابط للا ستاذ عماد غازي واستفد من طريقة انشاء قائمة منسدلة مطاطية تأخذ بيانات من صفحة اخرى

الف مبروك للاستاد احمد بدره اتمنى لك مزيدا من العطاء والتألق تحياتي

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

كان عليك ارفاق ملف للعمل عليه جرب دوبل كليك في النطاق الملون بالاصفر test.xlsm

وهذه شاشة الدخول كما طلبت الرقم السري 000 فك الضغط اولا برنامج النظافة بعد التعديل (1).rar

تفضل فك الضغط اولا جرب طباعة كشف حسب الموقع اما طباعة بيان العامل ليست لي فكرة عن ما تقصد ربما لو صممت نمودج يكون افضل تحياتي برنامج النظافة بعد التعديل (1).rar

انظر المرفق اضفت شيت جديد و فورم خاص لطباعة الكشف من تاريخ الى اخر انقر زر طباعة كشف من تاريخ الى تاريخ ثم ادخل التاريخ من ثم التاريخ الى ثم طباعة ان كان هذا ما تريد فخيرا نمر الى طلب اخر وان كان عكس ما تريد فيجب توضيح المراد تحياتي برنامج_النظافة_بعد_التعديل_(1).xlsm

غير الكود بهذا Sub COPIE_cop() Dim Nam Application.ScreenUpdating = False Application.EnableEvents = False Application.DisplayAlerts = False Nam = ThisWorkbook.Name & " " & Format(Now(), "dd mm yyyy hh mm ss") ' ThisWorkbook.SaveCopyAs Filename:="D:\copie\" & Nam & ".xlsx" ActiveWorkbook.SaveAs Filename:="D:\copie\" & Nam & ".xlsx", FileFormat:= _ xlOpenXMLWorkbook, CreateBackup:=False Application.DisplayAlerts = True Application.ScreenUpdating = True Application.EnableEvents = True MsgBox "Êã ÍÝÙ äÓÎÉ ÈÇÓã " & Nam & " ", vbInformation End Sub

ربما هذا الكود يفي بالغرض Sub test() Dim lr Dim x lr = Range("a" & Rows.Count).End(xlUp).Row Range("i3:i" & lr).Formula = "=SUMIF($B:$B,$A:$A,H:H)" Range("i3:i" & lr).Value = Range("i3:i" & lr).Value Range("k3:k" & lr).Formula = "=SUMIF($B:$B,$A:$A,J:J)" Range("k3:k" & lr).Value = Range("k3:k" & lr).Value Range("m3:m" & lr).Formula = "=SUMIF($B:$B,$A:$A,L:L)" Range("m3:m" & lr).Value = Range("m3:m" & lr).Value End Sub

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

قم بانشاء مجلد باسم copie في في :C واضغط زر SAVE COPY نسخ الشيتات.xlsm

مشكور اخي الكريم الحمد لله ان تم الامر على على خير

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

بوركتم/ استاذ احمد بدرة /استاد احمد يوسف

حسب طلبك هذا مرفق Entry form (2).xlsb

ربما المشكلة من اعدادات اللغة في VBA او لغة الويندوز انظر اسماء الشيتات في الاكواد اذا كانت متلخبطة يعني رموز غير مفهومة فالمشكلة كما قلت لك

بعد ادن استادنا احمد يوسف ربما يكون الطلب كما في الصور او استعن بهذا الماكرو Sub SplitRow1() With ActiveWindow .SplitColumn = 0 .SplitRow = 1 End With ActiveWindow.FreezePanes = True End Sub

وجزيت خيرا اخي الكريم

انا شغال عندي 100/100 لا اعرف سبب المشكلة عندك ربما صيغة اسم الملف الرئيسي تختلف عما في الكود جرب نسخ اسم الملف الرئيسي والصقه بين علامة التنصيص

ما عليك سوى تغيير سطر في الكود السطر من MsgBox driveObject.serialnumber الى Range("a1") = driveObject.serialnumber وسينسخ في الخليةA1

عليكم السلام عليك بوضع هذا الكود في جميع النسخ المحفوظة في حدث Open بحيث لما تفتح نسخة يتنفذ الكود Private Sub Workbook_Open() Workbooks("فاتورة.xlsm").Save Workbooks("فاتورة.xlsm").Close End Sub