سليم حاصبيا

جرب هذا الملف للتعديل salim.xls

واذا كان في السادس ما الغمل

ربما يكون الحل Matloub_Salim.xls

جرب هذا الملف لا شيء تعجيزي عند الدكتور اكسل cond_format_salim.xlsx

بدون نموذج (20 -- 30 اسم) لا احد يستطبع المساعدة

جرب هذا الملف يعمل حتى 500 صف من البيانات salimمطلوب.xls

جرب هذه المعادلة =IF(AND($F15<>"",$D15<>""),ROWS($B$15:$B15)+$G$2-1,"") الملف مرفق(نسخة بالانكليزية اذا لم تعمل حول المعادلة الى اللغة الفرنسية) num-auto-salim.xlsm

جرب هذا الماكرو Option Explicit Sub filter_for_ME() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim S_sh As Worksheet: Set S_sh = Sheets("ادخال البيانات") Dim T_sh As Worksheet: Set T_sh = Sheets("كشف حساب") Dim My_Table As Range: Set My_Table = S_sh.Range("A2").CurrentRegion If Application.CountA(T_sh.Range("b1:b3")) < 3 Then T_sh.Range("a5").CurrentRegion.ClearContents MsgBox "هناك بيانات ناقصة في أحد الخلايا : B1,B2,B3 " & Chr(10) & _ "لا استطيع الفلترة" & " " & "( بأمر من سليم )", 1572880 GoTo Exit_Sub End If With T_sh .Range("a5").CurrentRegion.ClearContents .Range("q2").Formula = "=AND('ادخال البيانات'!$G3=$B$1,'ادخال البيانات'!$B3>=$B$2,'ادخال البيانات'!$B3<=$B$3)" My_Table.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=T_sh.Range("Q1:q2"), _ CopyToRange:=.Range("A5") .Range("q2").ClearContents .Columns("D:P").AutoFit End With Exit_Sub: With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub الملف مرفق موردين Salim.xlsm

جرب استبدل هذا السطر في الكود Dim Num As Byte: Num = [d4] بهذا Dim Num As Byte: Num = CInt([d4]) ( تأكد ان الرقم المطلوب هو في الخلية (D4) تأكد ايضاً من امان الماكرو من "تعليمات الماكرو"

شاهد هذه الصورة الثانية explication.xlsm

ساهد هذه الصورة تأكد ان اسم الزر هو ذاته كمت في الكود

ممكن ان يكون تغير اسم الزر في الماكرو (أعد تسميته كما هو ) لمعرفة اسم الزر من قائمة developper اضغظ على design و حدد الزر سوف يظهر اسمه في Name Boxe

ممكن ان يكون المطلوب Hide_Unhide rows_with_queu.xlsm

استبدلي يهذا السطر في الكود الرقم3 بالرقم5(بعد اضافة الصفين اكيد) For i = 3 To lr Step 8

جرب هذا الملف الكود Option Explicit Sub hid_rows() Dim t%, lr% Dim i%, x% Dim My_Rg Application.ScreenUpdating = False If ActiveSheet.Name <> "Principale" Then GoTo Leave_Me SHOW_AL lr = Cells(Rows.Count, 4).End(3).Row Set My_Rg = Range("b2:b" & lr) ActiveSheet.Cells.EntireRow.Hidden = False For i = 3 To lr Step 8 x = Len(Cells(i, 2)) If x < 3 Then Rows(i & ":" & i + 7).Hidden = True End If Next Leave_Me: Application.ScreenUpdating = True End Sub ''''''''''''''''''''''''''''''''''''' Sub SHOW_AL() ActiveSheet.Cells.EntireRow.Hidden = False End Sub الملف مرفق Hide_Unhide rows.xlsm

ممكن ان يكون المطلوب صفحة"SALIM" من هذا الملف Pratic_Salim's Order.xlsm

اذا كنت تريد من اكسل المراتب بين 1 ومئة مثلا 1 الأوّل 22 الثّاني والعشرون وهكذا ..... حمل هذا الملف Salim's Order.xlsm

جرب هذا الملف التكرار Salim.xlsx

يمكن ان يكون المطلوب sumif_salim.xlsx

Salim validation.xlsx

والله مش فاهم حاجة

تم التعديل كما تريد و زيادة حبتين Last_addres In sheets.xlsm

بكبسة زر واحدة نستطيع ان نعرف ما هو اخر صف غير فارغ في كل شيت انظر المرفق (Sheet1) Last_row In sheets.xlsm

جرب هذا الماكرو Option Explicit Sub hid_cells() Range("g6:g33").NumberFormat = ";;;" Cells(Application.Match(Range("g5"), Range("g6:g33"), 0) + 5, 7).NumberFormat = "General" End Sub Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Range("g5")) Is Nothing Then hid_cells Else Range("g6:g33").NumberFormat = "General" End If Application.EnableEvents = True End Sub الملف مرفق aamir_HID_LETERS.xlsm

اختي الفاضلة الرحاء رفع نموذج عما تريدين وسبتم معالجة الامر ان شاء الله