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

تفضل اخي  على حسب  ما فهمت منك  ارجو ان يكون هذا طلبك

برنامج لتنظيم الوقت والمواعيـــــــــــد 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

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

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

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

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