اذهب الي المحتوي
أوفيسنا

sabah20267

عضو جديد 01
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    30

  • تاريخ الانضمام

  • تاريخ اخر زياره

 نوع المحتوي 

مشاركات المكتوبه بواسطه sabah20267

    جلب التاريخ والمحطة على اساس اقرب تاريخ للعودة من تاريخ المغادرة

    في منتدى الاكسيل Excel

    قام بنشر

    السلام عليكم

    معادلة لجلب البيانات من شيت الفرعية الى شيت الرئيسية لجلب اقرب تاريخ للعودة من تاريخ المغادرة

    جلب اسم المحطة والتاريخ معا

    فاذا كانت المغادرة يوم 1 / 10  ننظر في اقرب لهذا التاريخ في تاريخ العودة

    فيكون لكل رقم تاريخ مغادرة  وتاريخ عودة ومحطة

    جزيتم خيرا

    معادلة لأقرب تاريخ على اساس الرقم والتاريخ.xlsx

    اختيار البحث في محرك البحث حسب التاريخ

    في منتدى الاكسيل Excel

    قام بنشر

    السلام عليكم

    محتاج أي طريقة لاستدعاء بيانات على اساس التاريخ

    لغرض التعديل عليها واضافة عليها بيانات جديدة

    اذ للأسم أكثر من حركة خلال الشهر - والبيانات كثيرة

    فاذا احتجت اسم معين خلال فترة معينة - حتى اضيف بعض البيانات

    ممكن أي طريقة ترونه مناسبة

    جزيت خيرا

    تعديل على كود طباعة

    في منتدى الاكسيل Excel

    قام بنشر

    السلام عليكم

    كود من تصميم الاستاذ  - محمد صالح - تعديل على الكود بحيث يكون الطبع نسختين عند الضغط على زر طباعة

      

    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

     

     


     

    اعلامي بان الكود موجود

    في منتدى الاكسيل Excel

    قام بنشر

    السلام عليكم .. ممكن كود للاعلام بان رقم الكود موجود ، ولا يمكن ادخاله الا بعد موافقة

    بحثت بالمنتدى ولم اجد سوى تنسيق شرطي .. واني محتاج كود .. جزيتم خيرا

    انتبه من فضلك تــم اعادة رفع الملف بإمتداد يقبل اضافة الأكواد ... طالما انك تريد المساعدة والحل بالأكواد XLSM

    الكود موجود في شيت الارشيف.xlsm

×
×
  • اضف...

Important Information

  I accept