طلب تعديل على الكود لاحضار كشف حساب

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

السلام عليكم

شباب تكفون  ابي مساعدة

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

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

[حمادة عمر]

شاهد اولا اخي الكريم

الشرح الكامل للكود وطريقة تنفيذه

شرح مبسط وسهل وشرح للكود سطر سطر ( فيديو )

واظن انه سيفيدك في تعديل الكود بنفسك .. واي استفسارات معك دائما

وذلك في الموضوع التالي

 

طريقة عمل او استخراج كشف حساب بالاكواد بطريقة بسيطة !! خطوة خطوة
http://www.officena....showtopic=46008

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

شاهد اولا اخي الكريم

الشرح الكامل للكود وطريقة تنفيذه

شرح مبسط وسهل وشرح للكود سطر سطر ( فيديو )

واظن انه سيفيدك في تعديل الكود بنفسك .. واي استفسارات معك دائما

وذلك في الموضوع التالي

 

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

http://www.officena....showtopic=46008

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

اولا انا طقت الشرح خطوة بخطوة

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

حمل المرفقين  وشاهد الفرق

لهذا انا طلبت تعديل الكود

بارك الله اخي

تم تعديل يوليو 17, 2013 بواسطه محمود عبدالعزيز

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

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

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

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

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

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