مساعدة بخصوص العملاء الذين اجرو عملية سحب

[ali244]

السلام عليكم:

لدي اسماء 50 عميل وأريد انشاء جدول جديد باسماء العملاء الذين اجرو عملية سحب فقط

وجدول آخر لأعلى ثلاث عملاء لديهم رصيد 

أرجو من الاساتذة الأفاضل المساعدة

البيانات.xlsx

[خيماوي كووول]

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

اتفضل اخوي العزيز ..

Copy of البيانات.xlsm

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

جرب هذا الملف

بالنسبة للسحب صفحة Target
بالنسبة لأعلى 3 ايداع أو 4 ايداع أو   5 ايداع  (تختار ما تريد من الخلية H1 ) الصفحة Max_3

الكود

Option Explicit
Sub Get_Sahb()
Dim S As Worksheet, T As Worksheet
Dim Rg As Range, x%
Dim Cret$: Cret = "سحب"
Set S = Sheets("Source")
Set T = Sheets("Target")

T.Range("A2").CurrentRegion.Clear
Set Rg = S.Range("A2").CurrentRegion
S.AutoFilterMode = False
Rg.AutoFilter 9, Cret
Rg.SpecialCells(12).Copy
T.Range("B2").PasteSpecial (8)
T.Range("B2").PasteSpecial (12)

S.AutoFilterMode = False
x = T.Range("A2").CurrentRegion.Rows.Count
If x > 1 Then
 T.Range("A2") = "#"
 T.Range("A3").Resize(x - 1) = _
 Evaluate("row(1:" & x - 1 & ")")
End If
With T.Range("A2").CurrentRegion
    If .Rows.Count > 1 Then
     .Borders.LineStyle = 1
     .InsertIndent 1
     .Font.Bold = True
     .Font.Size = 14
     .Interior.ColorIndex = 35
         With .Rows(1)
          .HorizontalAlignment = xlCenter
          .Interior.ColorIndex = 6
         End With
    End If
End With

End Sub

Ali_244.xlsm

[ali244]

مشكورين للأستاذة الأفاضل على الرد 

من بعد اذنك استاذ سليم مشان أعلى 3 عملاء  فقط أريد أعلى 3 عملاء ( العملاء الذين يملكون رصيد أعلى فقط).

مشان عملية السحب إذا في طريقة تانية من غير أكواد .

ومشكور لحضرتك و للاستاذ خيماوي

أكيد هادا أقل شي فينا تشكر فيها الأستاذة الكرام على ردودن

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

تم معالجة الامر

اذا صودف ان شحص او اكثر يملكون نفس الرصيد كما في حالة (شاديا حماد  و بانة الرحال)
يتم ادراج هذه الاشحاص)

Ali_24.xlsm

[خيماوي كووول]

اعلى 3 في الرصيد ..

Copy of البيانات.xlsm

[خيماوي كووول]

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

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

تم عمل معادلة في الشيت .. بدل الكود ..

البيانات2.xlsm

[ali244]

مشكور استاذ خيماوي عمل رائع جداً 

بس ولو ممكن شرح بسيط جداً للعملية من بعد اذنك 

والله يوقفك في كل خطوة

[خيماوي كووول]

اولا :

في شيت data

formula --- namemanager

اعطاء اسم للعملية .. ( عملية )

=OFFSET(data!$I$3,,,COUNTA(data!$I:$I)-2)

.. name .. كذلك

=OFFSET(data!A$3,,,COUNTA(data!A:A)-2)

ثانيا ..

في شيت drow

count

=SUMPRODUCT(--ISNUMBER(SEARCH(F1,عملية)))

F1 .. اسم العملية .. ممكن تكتب سحب او ايداع او تحويل .. تظهر لك البيانات ..

اما بالنسبة للمعادلة .. لإظهار البيانات ..

في اول عمود ..

=IF(ROWS(A$5:A5)>$H$1,"",INDEX(name,SMALL(IF(ISNUMBER(SEARCH($F$1,عملية)),ROW(عملية)-ROW(data!$I$3)+1),ROWS(drow!A$5:A5))))

ويتم سحب المعادلة الى الاعمدة الاخرى ..

 

تم تعديل ديسمبر 5, 2020 بواسطه خيماوي كووول

[ali244]

مشكور استاذ