الشافعي

تظهر الرسالة هذه

الاخوة الافاضل 

كرما دعمكم في دمج الاكواد ادناه في صفحة واحدة 

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim v
    If Target.Address = "$E$16" Then
        v = Target.Value
        Rows("46:360").Hidden = False
        If v = Range("BB1249") Then
            Rows("46:360").Hidden = True
        ElseIf v = Range("BB1250").Value Then
            Rows("71:360").Hidden = True
        ElseIf v = Range("BB1251").Value Then
            Rows("46:71").Hidden = True
            Rows("117:360").Hidden = True
        ElseIf v = Range("BB1252").Value Then
            Rows("46:117").Hidden = True
            Rows("139:360").Hidden = True
        ElseIf v = Range("BB1253").Value Then
            Rows("46:139").Hidden = True
            Rows("181:360").Hidden = True
         ElseIf v = Range("BB1254").Value Then
            Rows("46:181").Hidden = True
            Rows("209:360").Hidden = True
        ElseIf v = Range("BB1255").Value Then
            Rows("46:209").Hidden = True
            Rows("246:360").Hidden = True
        ElseIf v = Range("BB1256").Value Then
            Rows("46:246").Hidden = True
            Rows("274:360").Hidden = True
        ElseIf v = Range("BB1257").Value Then
            Rows("46:274").Hidden = True
            Rows("311:360").Hidden = True
        ElseIf v = Range("BB1258").Value Then
            Rows("46:311").Hidden = True
            Rows("336:360").Hidden = True
        ElseIf v = Range("BB1259").Value Then
            Rows("46:336").Hidden = True
    
            
        End If
    End If
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
If Me.[T1] Then Exit Sub
    If Not Application.Intersect(Target, Range("myrange")) Is Nothing Then
        Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True
    End If
End Sub

اشكرك اخي كريم 

لكن احتاج الكود كامل لان احتاج اظهار صفوف في المنتصف ولا ادري كيف طريقتها 

السلام عليكم 

الاخوة والاخوات 

اذا تكرمتوا احد يساعدني في كود اخفاء الصفوف بشرط من قائمة منسدلة بحسب اختيار الشرط يتم اخفاء عدد محدد من الصفوف واظهار الباقية وعند اختيار من القائمة شرط ثاني يتم اخفاء عدد اخر من الصفوف واظهار الباقية مرفق ملف للشرح 

شاكر ومقدر مقدما 

ولكم جزيل الشكر 

كود اخفاء الصفوف بشرط.xlsx

الشكر كل الشكر

للاستاذ lionheart والاستاذ AbuuAhmed على مهجودكم والله يجعله في ميزان حسناتكم 

اشكر اهتمامك 

مرفق توضيح اكثر يقل المبلغ كلما زاد الراتب 

Book1.xlsx

السلام عليكم 

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

Book1.xlsx

الف مليون شكر

كل عام واتنت بخير عيدك مبارك

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

الاستاذ سليم 

اسف على ازعاج تم تجربة الدالة على الجدول الخاص بالعمل وللاسف لايمكن نشره 

وفي جميع اشهر السنة بشكل راسي 

ولكم يعطي عدد المناديب6 ولكن عدد المناديب اكبر من كذا

مرفق ملف للتوضيح بصورة افضل

Book1.xlsx

استاذ سليم 

الف مليون شكر وربي يسعدك ولكم جزيل الشكر والتقدير 

ربنا يجعله في ميزان حسانك تم عمل اللازم 

وشكرا لاهتمامك 

جربت الملف الاخير المرسل لك وضبط معي 

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

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

يعني يعطيني النتيجة ل احمد 4 موظفين فقط وليس 12

ومحمد 2 ومحمود 3

احتاج اني هي تعد من العمود b  حيث ان اكود المناديب في العمود بناء على قائد الفريق

لدي جدول يوجد به اشهر السنة وقائد الفريق وكل قائد لديه مجموعة من المناديب 

احتاج معرفة عدد المناديب لدى كل قائد دون تكرار 

مرفق الشيت

Book1.xlsx

شكرا جزيل الشكر استاذ العزيز سليم

وربي يبارك فيك وفي صحتك تم عمل اللازم 

الاستاذ سليم الموقر

هل اقدر الغي الاعتماد على الخلية M5 ويكون الاعتماد على الخلية G5 فقط 

وهل كذا يكون صح ولا يحتاج تعديل

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
 If Target.Address = "$G$5" Then
 Me.Cells.Rows.Hidden = False
  Select Case Target.Address
   Case "$G$5"
   hide_rows1
   End Select
 End If
Application.EnableEvents = True
End Sub

Sub hide_rows1()
Select Case Range("G5").Value
  Case "جديد"
 Range("a19:a22").Rows.Hidden = False
 Range("a23:a38").Rows.Hidden = True

  Exit Sub
  '======================
  Case "اعادة"
 Range("a19:a22").Rows.Hidden = True
 Range("a23:a38").Rows.Hidden = False
  Exit Sub
  '======================
  
  Case "تكميلي"
   Range("a27:a31").Rows.Hidden = False
   Range("a19:a22").Rows.Hidden = True
   Range("a36:a38").Rows.Hidden = True
    
  Exit Sub
 '++===========================
 Case "سداد"
   Range("a27:a31").Rows.Hidden = True
   Range("a19:a22").Rows.Hidden = True
   Range("a36:a38").Rows.Hidden = False
  Case Else
  
 End Select
End Sub

شاكر ومقدر لك استاذ الكريم سليم 

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

انا الان جالس اجرب الكود

في المرفقات 

ملف احتاج كود اظهار واخفاء بعد الصفوف ولكن بشرط في الخلية G5

AM.xlsm

مثال عميل تقاعدة في عمر ٦٥ سنة هجري 

عمره الان ٤٥ سنة هجري 

باقي له على التقاعدة ٢٠ سنة هجري 

٢٤٠ شهر هجري 

كم يكون ٢٤٠ هجري بالميلادي ؟

احتاج معادلة ؟

وش اسم المنتدى الاخر لان المنتدى هذا ما مثل اول مع كامل احترامي لان بعد العملاقة خرجوا منه 

انا عندي الكود هذا لكن كيف اخليه ينقل بيانات العميل والمتضامن مع بعض من الشيت رقم 1 الى الشيت رقم2 تحت بعض في وليس جنب بعض 

Sub custm()
Dim v, vv
Dim Sh1 As Worksheet, Sh2 As Worksheet
Dim Lr As Integer, i As Integer

Set Sh1 = Sheets("InitialOffer")
Set Sh2 = Sheets("Customers")

vv = Array("C11", "H12", "", "C12", "J14", "J16", "J18", "J20", "L20", "j22", "j24", "P18", "P24", "P34", "J30", "J32", "J34", "J36", "J38", "J40", "J44", "J46", "J54", "P40", "J58", "J60", "J62", "J66", "J70")

Lr = Sh2.Cells(Rows.Count, "A").End(xlUp).Row + 1

For Each v In vv
    i = i + 1
    If Not IsError(Sh1.Evaluate(v)) Then
        Sh2.Cells(Lr, i).Value = Sh1.Range(v).Value
    End If
Next

Set Sh1 = Nothing: Set Sh2 = Nothing
End Sub
 

كيف اعمل تكرار 

تعديل.xlsx

شكرا للنصيحة تم ترتيب البيانات 

احتاج الكود 

ترحيل .xlsx

اريد نقل بيانات الخلايا الممثلة لها من الشيت الاول الى الشيت الثاني 

المطلوب عند الضغط على زر (نقل البيات ) في شيت رقم واحد ينقل قيم الخلايا الى شيت رقم 2

 وبالضغط مره اخرى  على زر نقل البيانات يكرر نفس العملية ولكن تحت البيانات المنقولة في المرة السابقة

ترحيل بشرط.xlsx

للرفع

المطلوب عند الضغط على زر (نقل البيات ) في شيت رقم واحد ينقل قيم الخلايا الى شيت رقم 2

 وبالضغط مره اخرى  على زر نقل البيانات يكرر نفس العملية ولكن تحت البيانات المنقولة في المرة السابقة

ترحيل بشرط.xlsx

شكرا والله يجزاكم خير

وهل يمكن تحويل الكود اللي بالملف الى دالة 

هذا هو الملف

AM (22 (1).xlsx