حسين مامون

اخي الكريم لان ما فهمت في طلبك هو اضافة 52 سنة لتاريخ الميلاد انظر السطر الاحمر من مشاركتك برجاء وضع الشرط في عمود السن القانوني على العمر 52 سنة ( يوم وشهر وسنة ) واذا كنت تقصد : لما يصل السن القانوني 52 سنة يضع اشارة في عمود السن القانوني المرجو شرح ما تريد بالتفصيل ولابأس في وضع بعض المخرجات في الملف كما تتخيلها واعادة رفعه

تفضل vlookup.xlsm

ادا كان ما تقصد هو تعبئة عمود السن القانوني بتاريخ السن الميلاد + 52 سنة جري هذا الماكرو واضا الاسم الثلاثي Sub Test() Dim x, lr lr = Cells(Rows.Count, "ay").End(xlUp).Row For x = 2 To lr If Cells(x, "ay") = vbNullString Then GoTo 1 Cells(x, "be") = Format(DateAdd("yyyy", 52, Cells(x, "ay")), "dd-mm-yyyy") Cells(x, "bf") = Cells(x, "d") & " " & Cells(x, "bc") 1: Next x End Sub مواقع استخدام العناصر 2021 - Copy.xlsm

غير هذا السطر في البحث بالكود If C Like "*" & TextBox21.Value & "*" Then الى هذا If C Like TextBox21.Value & "*" Then ولابد من استعمال الاحرف الكبيرة في البحث

تفضل 55.xlsm

تفضل اسعار العملاء (1).xlsm

جرب اسعار العملاء.xlsm

جرب هذا الشيء بمجرد ادخال رقم في العمود1 عند كتابة الرقم يحبث في الشيتين ويجلب البيانات.xlsm

اخي الكريم هل تقصد انك تريد الاستعلام او استخراج تقرير بشرط مثلا تقرير عن التامين؟ ادا كان هذا ما تقصد فيجب اعادة رفع الملف بعد: تعبئة جميع الخلايا ودون ضغط الملف كيف تفلتر البيانات وبعض الخلايا فارغة

هذا الكود يعطيك نافدة الاختيارات استعمله حسب طلبك ملاحظة حملت ملفك ولم اجد فيه اية اكوا Sub PRIT() Application.Dialogs(xlDialogPrinterSetup).Show Range("d7:e20").PrintPreview 'السطر اسفله يمكنك تفعيله للطباعة مباشرة ' Range("d7:e20").PrintOut End Sub د

عدل تنسيق العمود فقط اولا حدد العمود ثم زر الماوس الايمن format cellule انظر الصورة علامات.xlsx

جرب المرفق ادخل الفترة في الخلية b3 ثم اضغط الزر متابعة الاقتطاع الشهري.xlsm

الاخ الكريم مع انك لم ترفع ملف فيه شرح كافي لما تريد اليك المرفق test2021.xlsm

انظر الصورة وحاول ربما

جرب هذا الكود Sub test() Dim lr, lr2, lrw Dim x, w, dt, rg Application.ScreenUpdating = False lr = Cells(Rows.Count, 1).End(xlUp).Row Range("n6:p10000").ClearContents For x = 6 To lr Set rg = Cells(x, "c") dt = Cells(x, "b") If Cells(x, "c") >= 1 Then lr2 = Cells(Rows.Count, "n").End(xlUp).Row For w = 1 To rg lrw = Cells(Rows.Count, "p").End(xlUp).Row If dt = CDate(Range("p3")) Then GoTo 1 Range("n" & lrw + 1) = Cells(x, 1) Range("O" & lrw + 1).Value = Format(DateAdd("m", 1, dt), "mm-yyyy") Range("p" & lrw + 1).Value = rg - 1 dt = Format(DateAdd("m", 1, dt), "mm-yyyy") rg = rg - 1 Next w End If 1: Next x Application.ScreenUpdating = True End Sub

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

جرب test1.xlsm

جرب Copy of Copy of نموذج بيانات.xlsm

تفضل الاقساط المستحقة (1).xlsm

لم اجد في ملفك ازرار التى اشرت اليها ولكن عندي ملف يمكنك الاستقادة منه وتطويع الاكواد لي فيه حسب طلبك تحربة.xlsm

هذا ما استطعت التوصل اليه بالحلقات التكرارية جرب الاقساط المستحقة.xlsm

Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("n2:p1000000")) Is Nothing Then 'ÇÐÇ Êã ÊÍÏíÏ Çí ÎáíÉ Ýí ÇáãÏì ÇáãÐßæÑ äÝÏ ÇáÓØÑ ÇáÊÇáí Target.Offset(, 1).Select 'ÇÒÇÍÉ ãÞÏÇÑ 1 ãä ÇáÎáíÉ ÇáãÍÏÏÉ End If End Sub يمكنك اضافة اعمدة اخرى باستعمال Elseifمبيعات كانليمون جاردن 8.xlsm

تفضل تعديل فاتورة (1).xlsm

تفضل تم التعديل 2.xlsb

تفضل تعديل فاتورة (1).xlsm