أبومروان

جزاك الله خير وبارك فيك @عصام مسعد ممكن تشرح القانون كيف يتم خصم الضريبه علي الدخل

وعليكم السلام ورحمه الله وبركاته يمكنك استخدام هذا التنسيق لعله يكون المطلوب

وعليكم السلام جرب الكود التالي لعله يفيد حضرتك ولعله المطلوب Sub Export_PDF() Dim SH As Worksheet, R As Range, File_name As String Set SH = ThisWorkbook.Worksheets("Sheet3 (2)") File_name = SH.Range("p8").Value Set R = SH.Range("A1:x35") R.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & File_name End Sub 6666.xlsm 118.pdf

ممكن تستخدم الاكواد الاتيه للاخفاء الصفوف واظهارها Sub اخفاء() Dim Cl As Range For Each Cl In Range("a3:a103") If Cl.Value = Range("k2") Then Cl.EntireRow.Hidden = True End If Next Cl End Sub Sub اظهار() Dim Cl As Range For Each Cl In Range("a3:a103") If Cl.Value = Range("k2") Then Cl.EntireRow.Hidden = False End If Next Cl End Sub

HID_SH.rar

أ/ @رشاد احمد ارفقت لحضرتك في المشاركه السابقه الملف جاهز عندالتغير سوف يتم استدعاء المطلوب وحول تقرا الموضع هيفيدك ويساعدك للوصول لافضل حل وفهم الكود

وعليكم السلام ورحمه وبركاته جرب المرفق لعله الملطلوب تم الاستعانه بالموضوع ادناه السيارات 24.xlsm ودا الكود المستخدم عدل عليه براحتك حسي الاحتياج Sub Trans_Data() '????? ??? ???????? ???? ?????? '????? ???? '?? ??? ????? ?? 15/11/2017 '????? ?? ????? ?? ??????? ???? ????? ???? '================ Application.ScreenUpdating = False Application.Calculation = xlCalculationManual '??????? ?? ????? ???????' Dim Main As Worksheet, sh As Worksheet ' ??????? ?? ?????????? Dim Arr As Variant, Temp As Variant '(i,j)??????? ?? ????? ???????? ?????? ( p ) ????? ???????? ??????? Dim i As Long, j As Long, p As Long ' ??????? ?? ??????? ???? ??? ??? ????? ???? Dim dep As String Set Main = Sheets("1") Set sh = Sheets("2") '======= ' ??? ??????? ??????? sh.Range("A5:AC" & Main.Range("B" & Rows.Count).End(xlUp).Row).ClearContents ' ????? ???????? dep = sh.Range("e2").Value ' ???????? ?????? Arr = Main.Range("A3:AC" & Main.Range("B" & Rows.Count).End(xlUp).Row).Value ' ????? ???????? ????? ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) ' ??? ???????? ?????? For i = 1 To UBound(Arr, 1) '??? ???? ????? If Arr(i, 4) Like "*" & dep & "*" Then 'If Arr(i, 101) = dep Then ' ?????? ?????? ??? ???????? ????? p = p + 1 ' ??? ???????? ????? For j = 1 To UBound(Arr, 2) ' ????? ???????? ????? ?? ???????? ?????? ??? ????? Temp(p, j) = Arr(i, j) Next End If Next ' ???? ??????? ????? ????? '??? ???????? ???????? If p > 0 Then sh.Range("A5").Resize(p, UBound(Temp, 2)).Value = Temp sh.Range("A5:AC" & Rows.Count).Borders.Value = 0 '??? ?????? ??????? sh.Range("A5:AC" & Cells(Rows.Count, 2).End(xlUp).Row).Borders _ .Weight = xlMedium ' .Weight = xlThin ' .Weight = xlMedium ' .Weight = xlThick Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

وعليكم السلام ورحمه الله راجع الرابط ادناه للاستاذ @أ / محمد صالح اكثر من رائع لعله بفيدك

السلام عليكم ورحمه الله

والسلام عليكم ورحمة الله وبركاته

السلام عليكم ورحمه الله

وعليكم السلام عليكم ورحمة الله وبركاته

برجاء ارفق ملف اكسل به المطلوب لعله تجد ما تريد

وعليكم السلام راجع المرفق ادناه

السلام عليكم ورحمه الله وبركاته راجع الموضوع ادناه