عبدالفتاح في بي اكسيل

العفو جيد انه المطلوب تحياتي

تفضل اخي على حسب ما فهمت منك ارجو ان يكون هذا طلبك برنامج لتنظيم الوقت والمواعيـــــــــــد 11.xlsm

اخي تفضل هذا التعديل ليس من تخصصي البرمجة ولكن قمت ببعض التعديل لعله يفي بالغرض Private Sub Workbook_Open() Dim I As Long, LR As Long Dim N As String LR = ورقة1.Range("b" & Rows.Count).End(xlUp).Row For I = 4 To LR If Cells(I, 3) = Cells(I, 3).Value Then N = Cells(I, 2).Text Cells(I, 3).Interior.ColorIndex = 3 Cells(I, 3).Font.ColorIndex = 2 Cells(I, 3).Font.Bold = True MsgBox ("اليوم /" & " " & Date - Cells(I, 3).Value & _ vbCrLf & " " & "هو تاريخ استحقاق الاستاد / " & " " & N & _ vbCrLf & " " & " الساعة الان" & " " & Left(Format(Now(), "HH:MM AM/PM"), 6) & IIf(Format(Now(), "HH:MM") >= 13, "صباحا", "مساء")), 64, "التاريخ والتوقيت" Else Cells(I, 3).Interior.ColorIndex = xlNone Cells(I, 3).Font.ColorIndex = xlAutomatic Cells(I, 3).Font.Bold = False End If Next I End Sub

السلام عليكم يظهر لي خطا عن اختيار من الكومبوبوكس في هذا السطر Set r = sh.Range("G2:G" & sh.Range("G" & Rows.Count).End(xlUp).Row) اخي حسين انا اسف جدا حدث خطا في الملف نسيت ان ادرج اداة dtpicker المتعلقة بالتاريخ كما اني اخطات اردت ظهور البيانات في الليست بوكس وليس التيكست بوكس ارفق الملف مرة اخرى اتمنى يفتح معاك 11_1.xls

بارك الله فيك الامور تمام

شكر اخي عمر على هذا المجهود الرائع ولكن لي طلب اخير في اليوزرفورم اريد جمع رصيد اول المدة مع المدين ثم يطرح من الدائن ليظهر الناتج في الرصيد ايضا هناك ملاحظة اخيرة في حالة الجانب المدين اكبر من الدائن يجب ان تكون القيمة في الرصيد ليست بالناقص والعكس هو الصحيح تم حل المشكلة ولقد قمت بتعديل هذا السطر في عدد2 ماكرو Rassid = Val(First_Duration + Madin) - Val(Dahn) شكر اخي عمر على مجهوداتك الجبارة

السلام عليكم لدي مشكلة في اظهار اجمالي القيم في التيكست بوكس سواء المدين او الدائن حيث تعطيني القيمة 0 عند لا الاختيار العميل من قائمة الكومبوبوكس علما انه ما يوجد في الكومبوبوكس يكون مرتبط بالعملاء الموجودة في الورقة في العمود g واجمالي المدين المرتبط بالتيكست بوكس 2 يتعلق بالعمود d والدائن مرتبط بالتيكست بوكس 3 يتعلق بالعمود e ارفق لكم الملف والكود Private Sub ComboBox1_Change() Dim ws As Worksheet Dim Rng As Range Dim Sel Set ws = Sheets("sheet2") Sel = Me.ComboBox1.Value If Sel <> "" Then Set Rng = ws.Columns(2).Find(Sel, lookat:=xlWhole) If Not Rng Is Nothing Then Me.TextBox1.Value = ws.Cells(Rng.Row, "c") Me.TextBox2.Value = Application.WorksheetFunction.SumIf(Range("d:d"), Me.ComboBox1.Value, Range("g:g")) Me.TextBox3.Value = Application.WorksheetFunction.SumIf(Range("e:e"), Me.ComboBox1.Value, Range("g:g")) Me.TextBox4 = Val(Me.TextBox2.Value) - Val(Me.TextBox3.Value) End If End If End Sub عملاء1.rar

شكرا اخي سليم هذا المطلوب

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

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

السلام عليكم اريد كود يرحل البيانات فاتورة من ورقة لاخرى بشرط تجاهل الصفوف الفارغة التي تبدا من A22 : A42 في حالة ان هذه الخلايا فارغة 1‬.xlsx

شكرا اخي بن علية الكود شغال تمام

السلام عليكم لدي كود في كل مرة احاول ربطه بزر يرفض ويظهر رسالة ثم خطا في هذا السطر ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook اتمنى المساعدة 1‬.xlsm

شكر اخي بن عليه ليس المطلوب لكن تعديلك ساعدني اضفت هذا السطر Range("E5").Value = Range("E5").Value + 1 حتى يخزن في كل مرة رقم جديد

انا اريد الترقيم يكون متسلسل عند الحفظ اذا لاحظت الرقم الموجود في الخلية بعد الحفظ ينتقل الى الرقم التالي على سبيل المثال عند التخزين اول مرة INV20-BSJ-01-1003 في المرة القادمة تكون كالتالي INV20-BSJ-01-1004 وهكذا

اخي مامون شكرا على الرد ولكن انا اريد عند حفظ الملف يكون اسمه كالتالي INV20-BSJ-01-1003 وليس بالتاريخ والوقت

السلام عليكم لدي مشكلة في تخزين ملف اكسيل على هيئة PDF عند تخزينه في هذا المسار تظهر رسالة خطا "INV20-BSJ-01- \مجلد جديد\ NewFN = "C:\Users\alhagag\DESKTOP علما بان اخر شيء ترقيم من عندي يتم اضافته الى ترقيم الخلية اما في حالة ازالة مجلد جديد يعمل الكود اتمنى المساعدة من الاخوة الكرام TEST .xls

شكرا اخي حسين وعدرا على تاخري بالرد

السلام عليكم قمت بعمل كود بسيط لادخال البيانات ما اريده عند كتابة البيانات خطا يعطيني 3 محاولات فقط ومن تم يغلق البرنامج login ‫‬.xls

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

السلام عليكم طبعا البرنامج غير مكتمل ولكن بحاجة الى المساعدة اتمنى من معالجة الخطا في الكود او استبداله بكود يقوم بترحيل البيانات حيث عند اظهار اليوزرفورم وعند الاختيار من الكومبوبكس وتعبئة التيكست بوكس الخاصة بالسعر والكمية طبعا الاجمالي يعمل تلقائي اريد جميع هذه البيانات التي تحدثت عنها ان يتم نقلها ابتداءا من السطر 23 وعند ادراج اكثر من صنف يتم ادراج تلقائيا سطر تحت 23 ويتم ترحيل البيانات اتمنى ان تكون الصورة واضحة العمل على اليوزرفورم رقم 3 عندما تفتح الملف تجد زر مكتوب عليه show في الورقة 4 بمجرد الضغط تعرف اليوزرفورم vv1.xlsm

السلام عليكم نرجو منكم بتعديل كود حساب الايام للعلم الكود يعمل الفرق بين الايام -10 ايام اريد عند اختيار الزر اعفاء 10 ايام يقوم بحساب الفرق بين الايام مطروح 10 ايام وعند اختيار الزر اعفاء 14 يوم يقوم بحساب الفرق بين الايام مطروحا من 14 يوم ملاحظة : الية عمل البرنامج يتم وضع التواريخ ثم القيم في خانات عدد الحاوية ثم يتم احتساب قيمة الغرامات HANDLING - MEARSK1 - نسخة.xlsm

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

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

حدفت مائة صف ابتداءا من الصف الثاني ولازالت المشكلة قائمة