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 اما االصفوف متغيرة بارك الله فيك واعزك الله بين العباد