محمود عبدالعزيز قام بنشر يوليو 17, 2013 قام بنشر يوليو 17, 2013 السلام عليكم شباب تكفون ابي مساعدة للتعديل على الكود الاتي . ويا ريت لو فيه شرح ولو بسيط عن كيفية التعديل . لانه انا جربت اعدل علية لكن فشلت 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 1
حمادة عمر قام بنشر يوليو 17, 2013 قام بنشر يوليو 17, 2013 شاهد اولا اخي الكريم الشرح الكامل للكود وطريقة تنفيذه شرح مبسط وسهل وشرح للكود سطر سطر ( فيديو ) واظن انه سيفيدك في تعديل الكود بنفسك .. واي استفسارات معك دائما وذلك في الموضوع التالي طريقة عمل او استخراج كشف حساب بالاكواد بطريقة بسيطة !! خطوة خطوةhttp://www.officena....showtopic=46008
محمود عبدالعزيز قام بنشر يوليو 17, 2013 الكاتب قام بنشر يوليو 17, 2013 (معدل) شاهد اولا اخي الكريم الشرح الكامل للكود وطريقة تنفيذه شرح مبسط وسهل وشرح للكود سطر سطر ( فيديو ) واظن انه سيفيدك في تعديل الكود بنفسك .. واي استفسارات معك دائما وذلك في الموضوع التالي طريقة عمل او استخراج كشف حساب بالاكواد بطريقة بسيطة !! خطوة خطوة http://www.officena....showtopic=46008 بارك الله فيك اخي اولا انا طقت الشرح خطوة بخطوة لكن اساس المشكل هو انه في الشرح الكود يستدعي البيانات استنادن الى عمود واحد وهو العمود السابع ولكن انا اريده يستدعي البيانات استنادا الى عمودين حمل المرفقين وشاهد الفرق لهذا انا طلبت تعديل الكود بارك الله اخي تم تعديل يوليو 17, 2013 بواسطه محمود عبدالعزيز
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.