تصفية قيم عمود بناءا على قيمة مكتوبة فى أول خلية

[أبو العاصم]

للرفع

[سالم شباني]

السلام عليكم

حلول في غاية الإحتراف والدقة

جزاكم الله خيرا وزادكم علما نافعا

[امان]

السلام عليكم

اخي ابو عصام جرب ادخل رقم في الخلية B1

Journal Entery vba 5.rar

[أبو العاصم]

أخى أمان بارك الله فيك على تعاونك معى

ولكنك قمت بحذف عدد من الصفوف وانا احتاج الكود مع وجود هذه الصفوف لأننى أطبع الملف وبه رأس وتذييل والرأس يتغير لكل قيد يومية لذلك تعمدت رفع الملف وبه عدد من الصفوف لأضع به الرأس الخاص لكلك قيد فهل من الممكن تعديل الكود وبارك الله فيك

[أبو العاصم]

أرجو منك أخى أمان ان تشرح لى كيفية عمل هذا الكود وكتابته وما هو الذى يتغير فى الكود وما هو الثابت ليطبق فى ملف اخر فالملف الذى ارفقته لك كان ملف العمل الخاص بى ولكنه مفرغا من بعض البيانات وعندما قمت بادراج الكود لم يفلح معى فهل من الممكن شرحه

[زياد علي]

بسم الله

السلام عليكم

اخي Abo3asem

متأسف بشدة أنك انتظرت حل المشكلة كل هذا الوقت ،،، ولكن أعذرني يا أخي فقد اعتقدت أنك قد هُديت إلى الحل،،،

عموماً هذا هو الحل مع تغيير طفيف على كود أستاذي الفاضل طارق وقد تم تطبيقه على ملفكم المرفق ،،،

تقبل إعتذاري مرة أخرى ،،،

مع مودتي وتقديري

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$B$10" Then

Range("$A$11:$p$10621").AutoFilter Field:=2, Criteria1:=Target.Value

End If

End Sub

Journal Entery vba ZZ.rar

[امان]

السلام عليكم ورحمة الله

أخي الكريم ابو عاصم

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

1- معاينة قبل الطباعة

2- اعداد الصفحة

3- اختيار رأس وتذييل الصفحة

4- اختيار رأس مخصص ثم اضافة الصورة التي ترغب في المكان الذي تريد سواء كان في يمين الصفحة او في وسطها او في اليسار ثم نفس الطريقة في التذييل

[قصي]

ActiveSheet.Range("$A$2:$F$36").AutoFilter Field:=1, Criteria1:="201"

لو سمحتم

Field1

ومامعنى المعيار 201 وليه 201

[أبو العاصم]

اللهم بارك للاستاذ زياد على اللهم بارك للاستاذأمان

اللهم بارك لجميع الاخوة الذين أعانونى

[sas07]

مشكور على الموضوع

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

[أبو العاصم]

عندى مشكلة أخرى فى التصفية وهى عدم ظهور الصف السفلى الخاص بالإجمالى بعد الفلترة وجربت أفك الخلايا المدمجة ولكن دون جدوى وحذفت الصف ده وعملته من جديد ولكن دون جدوى

أرجو المساعدة

[أبو العاصم]

للرفع