محمود عبدالعزيز

جاري الانتظار

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

السلام عليكم شباب تكفون ابي مساعدة للتعديل على الكود الاتي . ويا ريت لو فيه شرح ولو بسيط عن كيفية التعديل . لانه انا جربت اعدل علية لكن فشلت Sub sama1() Dim LastR As Long Dim SText As String Dim StDate As Date Dim EndDate As Date Dim LastR1 As Long Application.ScreenUpdating = False Sheets("ßÔÝ ÇáÍÓÇÈ").Range("A5:h10000").ClearContents SText = Sheets("ßÔÝ ÇáÍÓÇÈ").Range("B1") StDate = Sheets("ßÔÝ ÇáÍÓÇÈ").Range("B2") EndDate = Sheets("ßÔÝ ÇáÍÓÇÈ").Range("B3") LastR1 = Sheets("DATA").Cells(Rows.Count, 3).End(xlUp).Row Sheets("DATA").Range("A3:h" & LastR1).AutoFilter Field:=7, Criteria1:=SText Sheets("DATA").Range("A3:h" & LastR1).AutoFilter Field:=3, Criteria1:=">=" & Format(StDate, "mm/dd/yy"), Operator:=xlAnd, _ Criteria2:="<=" & Format(EndDate, "mm/dd/yy") LastR = Sheets("DATA").Cells(Rows.Count, 3).End(xlUp).Row Sheets("DATA").Range("A3:h" & LastR).SpecialCells(xlCellTypeVisible).Copy Sheets("ßÔÝ ÇáÍÓÇÈ").Range("A5").PasteSpecial Sheets("ßÔÝ ÇáÍÓÇÈ").Range("A5").Select Sheets("DATA").Range("A3:h3").AutoFilter Application.ScreenUpdating = True End Sub هو موجود في الملف (استخراج كشف حساب بالاكواد ) . واذا كان غير ممكن ان يعمل مع ملفي ياريت لو فيه طريقة اخرى . مطلوب تعديل على الكود.rar استخراج كشف حساب بالاكواد.rar

شكرا لك اخي ابو بلقيس

جاري التجربة

جاري الانتظار

جاري الانتظار

جاري الانتظار

جاري الانتظار

جاري الانتظار

شاهد المرفق جربتة في صفحة المدينون طلب اضافة دالة555555555.rar

اخي بعد التجربة طبقته على صفحة المدينون يظهر لي انه فيه خطاء في السطر If CStr(Col) = "" Or Col.Value = 0 Then ماذا يعني هذا

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

جاري الانتظار

لم يعمل اخي ممكن تطبقة على الملف طلب اضافة دالة+.rar

جاري التجربة

السلام عليكم شباب ممكن شرح للكود + تعديل عيله Private Sub Worksheet_Activate() Application.ScreenUpdating = False Dim MyRng As Range Dim Col As Range Range("b3:b16").EntireRow.Hidden = False For Each Col In Range("b3:b16") If CStr(Col) = "" Or Col.Value = 0 Then If MyRng Is Nothing Then Set MyRng = Col Else _ Set MyRng = Union(MyRng, Col) End If Next If Not MyRng Is Nothing Then MyRng.EntireRow.Hidden = True Application.ScreenUpdating = True End Sub هو الان يخفي الصفوف الفارغة من الصف 3 الى 16الصف لكن انا ابغي اعدل عليه ويكون من الصف 3 الى الصف 1500 مثلاً

بارك الله فيك الشهابي بعد التجربة شغال وكله تمام شكرا لك اخي وبارك الله فيك تحياتي . .

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

الكود يعمل وجربة على كل الصفحات لكن هناك مشكلة ضغيرة وهي اهتزاز الشاشة اثناء التنقل بين الصفحات هل فيه كود يوقف اهتزاز الشاشة ؟ طلب اضافة دالة+.rar

جاري التجربة اخي

طلب كود او دالة لاخفاء الصفوف الفارغة بشكل تلقائي طلب اضافة دالة+.rar

نعم يا اخي بارك الله فيك هذا البضبط ما ابحث عنه انا جربت اضافة OR بس انا غلط في الكتابه , عشان كذا لم تضبط معي شكرا لك اخي على المساعدة وجزاك الله خيرا وحتي تعم الفائدة اجريت بعض التعديل =IF((OR(اليومية!A3="المبيعات";اليومية!B3="المبيعات"));اليومية!C3;"") من اجل ان يعطيني فراغ بدل صفر

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

المطلوب : اذا كانت الخلية A3 او الخلية B3 = "المبيعات" في صفحة " اليومية " ; فإن "A3" في صفحة المبيعات = الخلية "C3" التي في صفحة اليومية =IF(اليومية!A3="المبيعات";اليومية!C3;"") مطلوب تعديل هذة الدالة المطلوب : اذا كانت الخلية A3 او الخلية B3 = "المبيعات" في صفحة " اليومية " ; فإن "B3" في صفحة المبيعات = الخلية "D3" التي في صفحة اليومية =IF(اليومية!A3="المبيعات";اليومية!D3;"") مطلوب تعديل هذة الدالة طلب اضافة دالة.rar