فلتر للبيانات بشرط معين

[figo82eg]

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

مرفق صور للتوضيح

وملف اكسل كمثال للتطبيق عليه

EXPORT.XLSX

[figo82eg]

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

[Foksh]

في 28‏/5‏/2025 at 22:23, figo82eg said:

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

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

أتمنى أن تكون الصورة قد وضحت لي وتم فهمها بالشكل الصحيح 😅 ..

انظر للصورة الأولى :-

والنتيجة للصورة الثانية :-

 

 هل تلبي المطلوب بالشكل الصحيح  ؟

خبرتي في اكسل قليلة جداً مقارنة مع الأساتذة ( دون استثناء ) في هذا الصرح الكبير  .

 

التنفيذ تم باستخدام الماكرو التالي :-

Sub FillAccountNum()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long, j As Long
    Dim accountVal As String

    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "K").End(xlUp).Row
    
    For i = 2 To lastRow
        If InStr(1, ws.Cells(i, "K").Value, "متبقي تعاقد مشروع قسط") > 0 Then
            For j = i + 1 To lastRow
                If Trim(ws.Cells(j, "A").Value) Like "Account*" Then
                    accountVal = ws.Cells(j, "A").Value
                    ws.Cells(i, "A").Value = accountVal
                    Exit For
                End If
            Next j
        End If
    Next i
End Sub

 

المرفق بعد التنفيذ :-

EXPORT.xlsm

 

وفيما يلي ، توضيح لتفعيل وضع المطور واختيار الماكرو للشيت الحالي ..

 

جرب وأخبرني بالنتيجة ، للمتابعة  .

تم تعديل منذ 3 ساعات بواسطه Foksh