omhamzh

بارك الله فى حضرتك استاذ سليم خالص الدعاء لحضرتك والله

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

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

استاذ سليم حاصبيا المعادلة تعمل ممتازة زادك الله من فضله

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

اشكركم اخوانى الافاضل اسعد الله اوقاتكم بكل خير ان شاء الله

اختكم فى الله

السلام عليكم اهل المنتدى

احتاج مساعدة منكم ال الخبرة

لدى جدول به 5 اعمدة المسلسل والتاريخ والاسم والمبلغ واجمالى الديون

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

خالص الدعاء لحضرتكم عن ظهر الغيب

المبلغ عن مدة.xlsm

زادك الله من خيره وجعل الخير فى يديك دائما وجعل ايامك كلها خير

وزادك صحة وزادك من فضله

كل التقدير لك سيدى الفاضل

هذا كود اخر سيدى سليم حاصبيا هذه صفحة كود الاستدعاء

الاضافة بصفحة Tarhel العمود B

وهى ترحل الى الصفحات

بارك الله فيك 

OM_HAMZA_SHEETS_NEW.xlsm

سيدى سليم حاصبيا

طول اليوم وانا والله بمحاولات 

السماحة والله شيم الكرام امثالك

اضفت عمود اسمه رقم المستند وقمت بالتغير فى 

        If Not Application.Evaluate("ISREF('" & _
         .Range("b" & i) & "'!A1)") Then
           Sheets.Add(, Sheets(Sheets.Count)).Name = _
         .Range("b" & i)
        الى
        If Not Application.Evaluate("ISREF('" & _
         .Range("c" & i) & "'!A1)") Then
           Sheets.Add(, Sheets(Sheets.Count)).Name = _
         .Range("c" & i)
        وكذلك
Sub transfer_data()
          Flter_rg.AutoFilter 2, Spes_sh.Name
          الى
          Sub transfer_data()

          Flter_rg.AutoFilter 3, Spes_sh.Name

ونجح الكود تمام

المشكلة تكمن فى

عند الترحيل بعد الترحيل الذى وجهتنى سيادتكم اليه الهيدر اتلغى خالص 

بمعنى عند الترحيل والصفحة ليس بها بيانات الا الهيدر مثلا الصفحة one 

واكتب بيانات بصفحة الترحيل واضغط ترحيل البيانات ترحل بس تمسح الهيدر من الصفحة one

هل من توجيه لعلاج هذه المشكلة مع الشكر دائما لحضرتك وكذلك الدعاء عن ظهر الغيب لحضرتك بالتوفيق دائما

OM_HAMZA_SHEETS_NEW.xlsm

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

وعن والديك 

اتقدم لك بكل الشكر سيدى سليم

شكر لحضرتك استاذ سليم

ان احتاج الى هذا التعديل الى ان يترحل حتى المكرر لا يمسح اما الان المكرو يمسح المكرر

قمت بحذف الارقام ما بين الاقوس

          Spes_sh.Range("A1").CurrentRegion.RemoveDuplicates _
          Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11), Header:=2
الى
          Spes_sh.Range("A1").CurrentRegion.RemoveDuplicates _
          Columns:=Array(), Header:=2

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

بارك الله فيك استاذ سليم شاكرة مجهودك الطيب

اتقدم اليك سيدى بالشكر الجزيل والدعاء الخالص بدون رياء 

نفذت ماتفضلت على وقلته ولكن لم يحدث شى

          Spes_sh.Cells(Max_ro, 1).Resize(, 12).Delete Shift:=2
          Spes_sh.Range("A1").CurrentRegion.RemoveDuplicates _
          Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11), Header:=1

ومرة واحدة توقف الكود هنا

        If Not Application.Evaluate("ISREF('" & _
         .Range("B" & i) & "'!A1)") Then
           Sheets.Add(, Sheets(Sheets.Count)).Name = _

اريد بعد اذنك 

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

ويتم مسح صفحة الترحيل استعداد للكتابة به مرة اخر وللتأكد من ان الارقام تم ترحيلها

جزاك الله كل خير ورزقك من حيث لا تحتسب

OM_HAMZA_SHEETS_NEW.xlsm

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

هذا العمل خالص لوجه الله من تصميم سيدى سليم حاصبيا

احتاج تعديل بكود الترحيل الموجود بصفحة Tarhel

الكود لا يكرر السطر المتشابه يمسحها

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

          Spes_sh.Range("A1").CurrentRegion.RemoveDuplicates _
          Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11), Header:=2

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

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

2-امكانية ترحيل صف متشابه مع عدم ترحيل الهيدر مرة اخرى

الدعاء والله باستمرار لصاحب الكود السيد الاستاذ سليم حاصبيا بارك الله له فى حياته ان شاء الله

OM_HAMZA_SHEETS_NEW.xlsm

اشكرك استاذ ابراهيم الحداد هذا هو المطلوب كفيت ووفيت زادك الله من فضله

والشكر واصل للاستاذ سليم حفظه الله وبارك الله فيكم اساتذة المنتدى

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

ما اريده ابسط من ذلك بكثير اريد الترحيل المبلغ سواء كان هناك اسم او عمود الاسم خالى واريد الترحيل بالترتيب اسفل بعض

يتم الترحيل الى J2ثمj3 وهكذا

بارك الله فيك وحفظك المولى اللهم امين

السلام عليكم اساتذة واهل المنتدى المحترمين

احتاج مساعدة بكود ترحيل بالكتابة المبلغ بالتكست بوكس واضغط ترحيل فيتم الترحيل الى عمود المبلغ

مع خالص دعائى والله العظيم

ترحيل للمبلغ.xlsm

ما اروعك استاذ سليم كود يفى بالموضوع تمام 

سلمت يمينك وبارك الله فيك حفظك الله

اشكرك سيدى الاستاذ سليم

الاساتذة الاخوة الافاضل

بارك الله فى المنتدى واهله

لدى اربعة اعمدة m n o p

اسفل كل منهم كلمة الاولى الثانية الثالثة الرابعة 

اسفل كل كلمة اسم مادة مثلا عربى انجليزى رياضيات

اريد عند اختيار اسم المادة من القائمة المنسدلة التى بالخلية F2 مثلا الاولى ينسخ العمود الذى اسفل الكلمة الى العمودE3 وهكذا لباقى الاعمدة

النسخ يتم عن طريق اختيار اسم المادة وتوضيح انى فى حالة زياة الاعمدة M N O P الى 6 اعمدة ماذا اعير بالكود مع الشكر يوجد شرح بالملف

بارك الله فيكم اساتذة كرام

نسخ عمود عن طريق الاختيار من قائمة.xlsm

شكرا ليك يا اطيب انسان

اربنا يحفظك ويزيدك من فضله ويعزك ويرفع شأنك ويديم عليك كل نعمه

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

الله يرضى عنك وعن والديك بس الكود الثانى لم يتم فيه التعديل 

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

انا بشكرك زاد الله علمك وكرمك

الكود الاخر هو

Application.ScreenUpdating = False
Set J = Sheets("Justify")

J.Range("A5:L5000").Clear

If Not IsDate(J.Range("B2")) Or Not IsDate(J.Range("C2")) Then
 MsgBox "Type Please a reel date in B2 and C2"
 Exit Sub
End If
D1 = Application.Min(J.Range("B2"), J.Range("C2"))
D2 = Application.Max(J.Range("B2"), J.Range("C2"))
J.Range("B2") = D1: J.Range("C2") = D2

For Each Spes_sh In Sheets
    If Spes_sh.Name = "Tarhil" Or Spes_sh.Name = "Justify" Then
    Else
        Max_ro = Spes_sh.Cells(Rows.Count, 2).End(3).Row
        Spes_sh.Range("A2").Resize(Max_ro - 1, 11) _
        .Interior.ColorIndex = 35
        For col = 3 To 11
            my_sum = 0
            For ro = 2 To Max_ro
                If Spes_sh.Cells(ro, 1) <= D2 And _
                  Spes_sh.Cells(ro, 1) >= D1 Then
                  Spes_sh.Cells(ro, 1).Interior.ColorIndex = 40
                  Spes_sh.Cells(ro, col).Interior.ColorIndex = 40
                  my_sum = my_sum + Val(Spes_sh.Cells(ro, col))
                End If
            Next ro
            
            ro = J.Cells(Rows.Count, "j").End(3).Row
            m = IIf(ro = 3, 5, ro + 1)
            J.Cells(m, col - 1) = my_sum
            J.Cells(m, 1) = Spes_sh.Name
        Next col
    End If

 Next Spes_sh
 If m > 5 Then
  J.Cells(m + 1, 1) = "SUM"
  J.Cells(m + 1, 2).Resize(, 9).Formula = _
    "=SUM(B5:B" & m & ")"
   J.Cells(5, "J").Resize(m - 4).Formula = _
    "=SUM(B5:I5)"
    With J.Cells(5, 1).Resize(m - 3, 10)
        .HorizontalAlignment = xlCenter
        .Borders.LineStyle = 1: .Font.Size = 14
        .Font.Bold = True
        .Value = .Value
        .InsertIndent 1
   End With
 J.Cells(m + 1, 1).Resize(, 10).Interior.ColorIndex = 40
End If
Application.ScreenUpdating = True
End Sub

السلام على من اتبع الهدى

الكود من تصميم استدى سليم حاصبيا واشكر فضله

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

احتاج لشرج ما اقوم بعمله لزيادة الاعمدة للعمود P

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

Option Explicit
Dim i%, Max_ro%, K%, m%, All_rows%
Dim J As Worksheet
Dim Spes_sh As Worksheet
Dim D1 As Date, D2 As Date
Dim x As Boolean

'+++++++++++++++++++++++++++++++++++
Sub Fil_data()
Dim t%, cont%, n%
m = 5: t = 5
Set J = Sheets("Justify")

All_rows = J.Cells(Rows.Count, 1).End(3).Row
If All_rows > 4 Then
J.Range("A5:L" & All_rows + 5).Clear
End If
If Not IsDate(J.Range("B2")) Or Not IsDate(J.Range("C2")) Then
 MsgBox "Type Please a reel date in B2 and C2"
 Exit Sub
End If
D1 = Application.Min(J.Range("B2"), J.Range("C2"))
D2 = Application.Max(J.Range("B2"), J.Range("C2"))
J.Range("B2") = D1: J.Range("C2") = D2

For Each Spes_sh In Sheets
       If Spes_sh.Name = "Tarhil" Or Spes_sh.Name = "Justify" Then
        Else
          Max_ro = Spes_sh.Cells(Rows.Count, 2).End(3).Row
              If Max_ro = 1 Then GoTo Next_SHeeet
             For K = 2 To Max_ro
               If Spes_sh.Cells(K, 1) <= D2 _
                And Spes_sh.Cells(K, 1) >= D1 Then
                J.Cells(m, 2).Resize(, 11).Value = _
                Spes_sh.Cells(K, 1).Resize(, 11).Value
                    If Not x Then
                      Else
                     J.Cells(m, 3) = ""
                    End If
                    x = True
                m = m + 1
              End If
             Next K
      End If
Next_SHeeet:
    If Spes_sh.Name = "Tarhil" Or _
      Spes_sh.Name = "Justify" Then
    Else
      J.Cells(m, 2) = "Sum"
      J.Cells(m, 4).Resize(, 9).Formula = _
      "=SUM(D" & t & ":D" & m - 1 & ")"
      m = m + 1
      t = m
   End If
x = False
  
Next Spes_sh
If m > 5 Then

 For cont = 5 To m - 1
        If J.Cells(cont, 2) <> "Sum" Then
        J.Cells(cont, 1) = n + 1
        n = n + 1
    Else
        J.Cells(cont, 1).Resize(, 12). _
        Interior.ColorIndex = 35
    End If
 Next cont
    
      With J.Cells(5, 1).Resize(m - 5, 12)
        .HorizontalAlignment = xlCenter
        .Borders.LineStyle = 1: .Font.Size = 14
        .Font.Bold = True
        .Value = .Value
        .InsertIndent 1
      End With
  
 For cont = 5 To m - 1
    If J.Cells(cont, 2) = "Sum" Then
      With J.Cells(cont, 2).Resize(, 2)
        .Merge
        .HorizontalAlignment = 3
      End With
    End If
 Next cont
  
End If
End Sub

والله ولى التوفيق

بارك الله فيك استاذ سليم 

تـــم تعديل الملف

Om_Hamz_Matloub.xlsm

الله اكبر عليك ماشاء الله تبارك الله ربنا يحفظك لاهلك ويطيل عمرك ويذهب عنك اى شر

ويهبك كل خير ويعزك بين العباد ويلبسك لباس الصحة دائما وابدا

خالص الشكر لصنعك وبارك لك فى علمك وزادك من فضله وحفظ بلدك ورفع علم بلدك الى الاعلى ونصركم واعزكم بين الامم

كل الشكر

اعزك ورفع شأنك استاذ سليم هذا هو الشكل المطلوب استدعاء البيانات عليه

بارك الله فيك

الشيت المطلوب.xlsm

اشكرك استاذ سليم ربنا يحفظك والله انا قولت والله العظيم والله

حضرتك شوف اول مشاركة انا كاتبة

واحتاج الى ماكرو لاستدعاء المبالغ فى التاريخ وبرده على اساس اسم الشيت الى هو اسم الحساب

والله العظيم انا قولت والله

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

والله العظيم انا اسفة بالملف المطلوب وضعت الشكل المطلوب استدعائه وده اخر شئ والله العظيم اقسم بالله

ربنا يكرمك بين العباد اللهم امين

OM_HAMZA_WITH_SUMMATION.xlsm

بارك الله فى حضرتك وحفظك ورعاك برعايته

الله يرضى عنك وعن ال بيتك اجمعين

كود الترحيل ممتاز اكثر الله خيرك وزاد رزقك اللهم امين

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

اعتذر لك

الان يستدعى مثلا sheeet ONE وتحته sheet ONE وتحته sheet ONE

اريد يستدعى SHEET ONE مرة واحدة متجمع الارقام فى الفترة ما بين التاريخين

الله يرضى عنك ويزيدك من فضله ويبارك لك فى علمك

ويدخل الجنة بحق مساعدتك لاخواتك ولقضائك حوائج الناس

بارك الله فيك استاذ سليم المبجل

زادك الله من فضله الخلوق المساعد دائما لنا بارك الله فيك استاذ سليم

الكود يرحل بس به ملاحظة ان صفحة Tarhil عند افراغها من البيانات وكتابة بيانات جديدة

ونضغط للترحيل يمسح البيانات القديمة ايضا من الشيتات وهذا غير مطلوب

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

وده اول كود

ارجو منك اسماحة فى الكود الاخر لصفحةJustify ليقوم باستدعاء وتجميع البيانات بالتاريخ من الى تاريخ كما اوضحت بالصفحة بمعنى احتاج لكتابة التاريخ من فترة الى اخرى

واضغط استدعاء يستدعى البيانات واكن ممتنة لفضلك عليا سيدى الفاضل جعله الله بميزانك يوم يعرض العباد عليه ان شاء الله

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

الاساتذة مشرفى المنتدى اتمنى المساعدة فى هذا الملف

لدى صفحة اسمها ترحيل اريد ترحيل المبالغ على اساس اسم الحساب المكتوب الى هو اسم شيت

واحتاج الى ماكرو لاستدعاء المبالغ فى التاريخ وبرده على اساس اسم الشيت الى هو اسم الحساب

وضعت نموذج مصغر من 3 شيتات وصفحة الترحيل وصفحة الجمع والضبط

مع امكانية زيادة عدد الصفحات ل15 او20 

بارك الله فيكم 

بارك الله فى من يقضى حوائج الناس 

ترحيل للحساب.xlsx

كل الشكر منى لكم

استاذ سليم بارك الله فيك الف شكر اخى

استاذ عبد الفتاح الف شكر بارك الله فيك

جعلكم الله دوما وابدا عونا لنا وحفظكم وبارك فيكم

اختكم

بارك الله فيك اخى سليم حاصبيا

انا عايزة كود برينت اريا مطاطى

عندما اضغط على الزر يعمل برينت اريا ااعمود A&B&C&D&E&F&G

اما بالنسبة للصفوف  لهذه الاعمدة يحدد بناء على اول عامود اخر خلية بها بيانات

بحيث لو زودت بيانات البرينت اريا تتغير للصفوف

فاهمنى اخى

انا احاول اشرح طلبى

عندى منطقة الطباعة ثابتة فى الاعمدة من العمودa:g

اما االصفوف متغيرة 

بارك الله فيك واعزك الله بين العباد