أيهاب ممدوح

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

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

استاذ احمد لا يوجد تغير في الملف كما هو الحال المطلوب هو تغير نطاق الطباعه حسب زيادة الصفوف او نقصانها والاستاذ بن علية تفضل وحل الجزء الاول وهو زياده الصفوف بيتم زياده النطاق ولكن عند نقص البيانات من الصفوف لو ينقص نطاق الطباعه مرفق الملف الذي يوجد به اخر تعديل ويوجد به مشكله عدم نقص النطاق مع نقص الصفوف برنامج ايجار (1).xlsm

مرفق الملف برنامج ايجار (1).xlsm

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

السلام عليكم يوجد ملف يوجد به مجموعه بيانات عدد الاعمده ثابت لكن عدد الصفوف متغير بالزياده او النقص المطلوب تحديد نطاق الطباعه عند تغير البيانات في اخر صف بحث يكون اخر صف به بيانات هو نطاق الطباعه اخي الكريم العيدروس مرفق الملف المطلوب هو ان يتم تحديد كامل البيانات في نطاق واحد وليس اكثر من نطاق برنامج ايجار.xlsm

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

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

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

السلام عليكم ارجوا من الاخوة الاعزاء يوجد ملف به اكثر من شيت اريد ترحيل جميع البيانات للمستأجر المتأخر الي شيت اخر اسمه التأخير برنامج ايجار.xlsm

الاستاذ سليم الكود المرفق يعمل جيدا في كل الامور ولكن اريد من حضرتك عند الضغط علي كلمه الرئيسيه (في اي صفحه في خليه D4) ان يخفي الصفحه التي ضغط علي كلمه الرئيسيه وينتقل الي الصفحه التي بها القائمه باسماء الصفحات TEST_HYPER2.xlsm

شكرا استاذنا الكريم جزاك الله خير

السلام عليكم كود رائع وجميل لكن هل بالامكان جعله يعمل عند فتح الصفحه وليس الملف ehab2 (1).xlsm

السلام عليكم يوجد كود عمل قائمه باسماء الصفحات و هايبر لينك باسم كل صفحة ولكن عند حذف الصفحة او تعديل اسمها او مكانها لم يعيد تحديث القائمة المطلوب جعل الكود يحدث القائمة باستمرار مع فتح الملف ehab.xlsm

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

السلام عليكم يوجد كود عمل قائمه باسماء الصفحات وعمل هايبر لينك باسم الصفحه وهيبر لينك داخل الصفحات بالعوده الي الصفحه الرئيسيه لكن الهيبر لينك لا يعمل في حاله اخفاء الصفحات المطلوب عند الضغط علي اسم الصفحه المخفيه يعمل الكود وعند الضغط علي كلمه الرئيسيه يخفي الصفحه والعوده الي الصفحه الرئيسيه شكراNew Microsoft Excel Worksheet.xlsx

لو سمحتم هل من الممكن استبدال الكود المرفق بكود مختصر وقابل للتعديل والاضافه Sub ÊÃÎíÑ() Application.ScreenUpdating = False Sheets("ÊÃÎíÑ").Select Range("B3:R5000").SpecialCells(xlCellTypeConstants).ClearContents Range("H5").Select Sheets("ÓáØÇä").Select ActiveSheet.Range("$A$1:$A$48").AutoFilter Field:=1, Criteria1:="=A", _ Operator:=xlOr, Criteria2:="=" Range("B3:q102").Select Selection.Copy Sheets("ÊÃÎíÑ").Select Range("B3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("H3").Select Sheets("ÓáØÇä").Select Application.CutCopyMode = False Range("H3").Select ActiveSheet.Range("$A$1:$A$48").AutoFilter Field:=1 Sheets("ÇáÌæåÑÉ").Select ActiveSheet.Range("$A$1:$A$40").AutoFilter Field:=1, Criteria1:="=A", _ Operator:=xlOr, Criteria2:="=" Range("B3:Q115").Select Selection.Copy Sheets("ÊÃÎíÑ").Select Range("B55").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("H55").Select Sheets("ÇáÌæåÑÉ").Select Application.CutCopyMode = False Range("H3:K3").Select ActiveSheet.Range("$A$1:$A$40").AutoFilter Field:=1 Sheets("ÇáÈÇíæäíå").Select ActiveSheet.Range("$A$1:$A$39").AutoFilter Field:=1, Criteria1:="=A", _ Operator:=xlOr, Criteria2:="=" Range("B3:Q101").Select Selection.Copy Sheets("ÊÃÎíÑ").Select Range("B105").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("H105").Select Sheets("ÇáÈÇíæäíå").Select Application.CutCopyMode = False Range("H3:K3").Select ActiveSheet.Range("$A$1:$A$39").AutoFilter Field:=1 Sheets("ÇáÑÇßå").Select ActiveSheet.Range("$A$1:$A$39").AutoFilter Field:=1, Criteria1:="=A", _ Operator:=xlOr, Criteria2:="=" Range("B3:Q60").Select Selection.Copy Sheets("ÊÃÎíÑ").Select Range("B155").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("H155").Select Sheets("ÇáÑÇßå").Select Application.CutCopyMode = False Range("H3:K3").Select ActiveSheet.Range("$A$1:$A$39").AutoFilter Field:=1 Sheets("ÓÚÏ").Select ActiveSheet.Range("$A$1:$A$39").AutoFilter Field:=1, Criteria1:="=A", _ Operator:=xlOr, Criteria2:="=" Range("B3:Q88").Select Selection.Copy Sheets("ÊÃÎíÑ").Select Range("B206").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("H206").Select Sheets("ÓÚÏ").Select Application.CutCopyMode = False Range("H3:K3").Select ActiveSheet.Range("$A$1:$A$39").AutoFilter Field:=1 Sheets("äÇíÝ").Select ActiveSheet.Range("$A$1:$A$39").AutoFilter Field:=1, Criteria1:="=A", _ Operator:=xlOr, Criteria2:="=" Range("B3:Q53").Select Selection.Copy Sheets("ÊÃÎíÑ").Select Range("B255").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("H255").Select Sheets("äÇíÝ").Select Application.CutCopyMode = False Range("H3:K3").Select ActiveSheet.Range("$A$1:$A$39").AutoFilter Field:=1 Sheets("äÇÕÑ").Select ActiveSheet.Range("$A$1:$A$39").AutoFilter Field:=1, Criteria1:="=A", _ Operator:=xlOr, Criteria2:="=" Range("B3:Q82").Select Selection.Copy Sheets("ÊÃÎíÑ").Select Range("B305").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("H305").Select Sheets("äÇÕÑ").Select Application.CutCopyMode = False Range("H3:K3").Select ActiveSheet.Range("$A$1:$A$39").AutoFilter Field:=1 Sheets("ÊÃÎíÑ").Select Range("D24,D68,D112,D162,D217,D272,D321").Select Selection.ClearContents Range("H3").Select Application.ScreenUpdating = True End Sub

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

السلام عليكم مرفق ملف ايجارات فيه صفحات باسم العمارة وفيه كشف السكان اريد ترحيل السكان المتأخرين عن الدفع الي صفحه باسم المتأخرين ولكن كل السكان العمارة في كشف مستقل بالمتأخرين فقط كما منسق بالصفحه ويوجد كود ترحيل بالفعل ولكن طويل جدااا ولا يشمل بعض الصفحات شكرا الايجارات - ايهاب .xlsm

جزاك الله كل خير استاذنا الغالي

للرفع

السلام عليكم ارجوا عمل كود استدعاء البيانات المظلله باللون الاصفر الاسم و الجوال وتاريخ البدايه والايجار السنوي تم تنفيذ المطلوب بالمعادلات ولكن يوجد بعض العيوب ولا ادري سبب العيب ارجوا العمل بالكود عند اختيار اسم العمارة ورقم الشقه يطلب جميع البيانات المطلوبه من الاسم والجوال وتاريخ نهايه الايجار و الايجار السنوي شكرا الايجارات.xlsm

الاخوة الاعزاء يوجد ملف مرفق به كود حفظ الورقه النشطه الي pdf ولكن اريد تغير مسار الحفظ الي ملف بعيد عن الملف وعدم ظهور قائمه الحفظ عند الضغط علي زر الحفظ يقوم بحف الملف في مسار اخر في :D بدون ظهور قائمه الحفظ شكرا مقدماsave to pdf.xlsm

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

Sub RentLate() Dim c As Range Dim ws As Worksheet, Sh As Worksheet Dim p As Long p = 5 Set ws = Sheets("المتأخرين") For Each Sh In Worksheets If Sh.Name <> "المتأخرين" Then For Each c In Sh.Range("D6:D" & Sh.Range("D" & Rows.Count).End(xlUp).Row) If c.Value > 0 And c.Value < 1000 Then p = p + 1 ws.Cells(p, 1) = p - 5 ws.Cells(p, 3) = c.Offset(0, 12) ws.Cells(p, 4) = c.Offset(0, 11) ws.Cells(p, 5) = c.Offset(0, 10) ws.Cells(p, 6) = c.Offset(0, 9) ws.Cells(p, 7) = c.Offset(0, 8) 'ws.Cells(p, 8) = c.Offset(0, 7) 'ws.Cells(p, 9) = c.Offset(0, 6) ws.Cells(p, 10) = c.Offset(0, 5) ws.Cells(p, 11) = c.Offset(0, 3) ws.Cells(p, 12) = c.Offset(0, 0) ws.Cells(p, 13) = c.Offset(0, -1) ws.Cells(p, 2) = c.Worksheet.Name End If Next End If Next End Sub شكرا اخي الكريم الكود كده يفي بالغرض ولكن لو امكن اضافه حذف النطاق قبل تنفيذ الكود لكي تكون البيانات محدثه