sabah20267

السلام عليكم معادلة لجلب البيانات من شيت الفرعية الى شيت الرئيسية لجلب اقرب تاريخ للعودة من تاريخ المغادرة جلب اسم المحطة والتاريخ معا فاذا كانت المغادرة يوم 1 / 10 ننظر في اقرب لهذا التاريخ في تاريخ العودة فيكون لكل رقم تاريخ مغادرة وتاريخ عودة ومحطة جزيتم خيرا معادلة لأقرب تاريخ على اساس الرقم والتاريخ.xlsx

جزاك الله خير تمام هو المطلوب

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

السلام عليكم ممكن تعديل على الكود الخاص بمحرك البحث ليكون جلب البيانات عند كتابة الاسم في المحرك على اساس التاريخ جزيتم خيرا جلب البيانات عند كتابة الاسم في محرك البحث على اساس التاريخ.xlsm

السلام عليكم .. ممكن اضافة امر الى الكود ليكون البحث حسب التاريخ المحدد .. جزيتم خير فلترة اضافية مع محرك البحث.xlsm

جزيت خيرا .. مشكور

السلام عليكم .. ارجو التوضيح الجمع بين تاريخين بشروط اربع.xlsx

السلام عليكم ,, عندي ملف - ممكن الاطلاع عليه ..ويتضمن ..ترحيل الارقام بدون تكرار ..والجمع بشروط اربع .. الاسم + الرقم + بين تاريخين الجمع بين تاريخين بشروط اربع.xlsx

جزيت خير هو المطلوب

السلام عليكم محتاج معادلة لاظهار الاستقطاع على اساس رقم المستند والرقم التعريفي سلمكم الله اظهار الاستقطاع على اساس الرقم التعريفي ورقم المستند.xlsx

مبارك - نساله تعالى لكم التوفيق والتقدم ما شاء الله، أسأل الله أن يبارك لك وينفع بك أمة محمد صلى الله عليه وسلم

السلام عليكم ..تمام .. تسلم

السلام عليكم كود من تصميم الاستاذ - محمد صالح - تعديل على الكود بحيث يكون الطبع نسختين عند الضغط على زر طباعة Sub RectangleRoundedCorners333_Click() 'On Error Resume Next 'Sheets("وصل").Range("A1:q16").ExportAsFixedFormat xlTypePDF, Filename:="e:\pdf\" & Sheets("استعلام").Range("d5").Value & Sheets("استعلام").Range("c4").Value, openafterpublish:=True Dim sh As Worksheet Dim R Dim fil_name Set sh = ThisWorkbook.Worksheets("جديد") fil_name = sh.Range("d5") & " " & sh.Range("c4") Set R = sh.Range("a1:q30") If IsError(Application.Match(Range("c4"), Range("s:s"), 0)) Then pp: R.ExportAsFixedFormat Type:=xlTypePDF, Filename:="e:\pdf\" & "\" & fil_name & ".pdf" sh.Range("a1:q30").PrintOut lr = Sheets("المستودعات").Cells(Rows.Count, 1).End(xlUp).Row Debug.Print lr For n = 2 To lr sr2 = Sheets("جديد").Cells(Rows.Count, 1).End(xlUp).Row Debug.Print sr2 For m = 19 To sr2 If Sheets("المستودعات").Range("A" & n) = Sheets("جديد").Range("A" & m) Then Sheets("المستودعات").Range("A" & n & ":R" & n).Interior.Color = 10213316 End If Next m Next n Range("s" & Range("s" & Rows.Count).End(xlUp).Row + 1).Value = [c4] Else m = MsgBox("تمت الطباعة قبل ذلك" & Chr(1000) & "هل تريد الطباعة مرة أخرى", vbYesNo, "تنبيه") If m = 6 Then GoTo pp End If End Sub

نجح الأمر 100 % تسلم

اعتذر - صحيح .. ممكن طلب .. حفظ الصورة على اساس الاسم الذي هو موجود في خلية B3