كيف يمكنني تصفية عمودين معا بشرط ان تكون احدى الخليتين اكبر من الصفر

[عبد الله قدور]

السلام عليكم

اخواني الكرام

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

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

 

[ابراهيم الحداد]

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

استخدم هذا الكود

Sub FilterNonEmptyRows()
Dim C As Range
For Each C In Range("C3:C" & Range("B" & Rows.Count).End(xlUp).Row)
If C.Value = "" And C.Offset(0, 1).Value = "" Then
C.EntireRow.Hidden = True
End If
Next
End Sub

 

[سليم حاصبيا]

لا اعلم اذا كان هذا المطلوب

هناك نموذجان للحل الاول في صفحة "ورقة1" والثاتي في صفحة "salim"

 

 

Salimالمصنف1.xlsx

[عبد الله قدور]

7 ساعات مضت, سليم حاصبيا said:

هناك نموذجان للحل الاول في صفحة "ورقة1" والثاتي في صفحة "salim"

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

يجب ان تكون التصفية شاملة لكل الجدول بحيث يمكنني مراجعة التاريخ او قراءة المعلومات المسجلة في حقل البيان مثلا

7 ساعات مضت, زيزو العجوز said:

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

استخدم هذا الكود

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

 

[سليم حاصبيا]

انا لا اعمل في مجال المخاسبة   لذا لا  اعرف ما المطلوب بالضبط

لذلك

عليك ان ترسل نموذجاً بالنتائج المتوقعة

[ابراهيم الحداد]

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

استخدم الكود الاول لالغاء الفلترة

و الكود الثانى لفلترة عمود الليرة و لديك بالفعل كود بمشاركتى الاولى

لفلترة عمود الدولار   ... هذا على حسب ما فهمت

Sub UndoHidden()
ActiveSheet.Rows.EntireRow.Hidden = False
End Sub



Sub FilterNonEmptyRows2()
Dim R As Range
For Each R In Range("E3:E" & Range("B" & Rows.Count).End(xlUp).Row)
If R.Value = "" And R.Offset(0, 1).Value = "" Then
R.EntireRow.Hidden = True
End If
Next
End Sub