المطلوب توزيع ( ترحيل ) الاسماء بناء معيارين ويوجد 40 توزيعه

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

اساتذتى الاجلاء ... الاخوة الكرام

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

وقد سبق وانه طرح للمناقشة على الرابط الآتى

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

إلا اننى محتاج ان يتم التوزيع والترحيل للاسماء التى تنتمى لحساب البنك فقط فى الشيت الثالث ومرفق ملف يوضح ذلك

مع خالص احترامى وشكرى

اسماء.rar

تم تعديل يناير 15, 2013 بواسطه دغيدى

[الـعيدروس]

السلام عليكم

لااعلم ان كنت فهمت طلبك بالشكل الصحيح

عموما جرب الكود التالي ان هو ماتريد او وضح الطلب اكثر

Public Sub T_A()

Dim Sh As Worksheet

Dim R As Range, Rc As Range

Set Sh = Sheet3

With Sheet1

For Each R In .Range("A2:J261").Rows

If R.Cells(R.Row, 9) = "بنك" Then

R.Copy

Sh.Cells(Sh.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row, 1).PasteSpecial xlPasteValues

End If

Next

End With

With Sh

Sheet1.Range("A1:J1").Copy .[A1]

For Each S In Array("الأول2", "التفتيش", "الامن", "مستقل")

For Each Rc In .Range("J2:J1500")

If Not IsEmpty(Rc) Then

If Rc.Text = S Then

Rc.RowHeight = 90

End If

End If

Next

Next

With .Rows("2:" & .Cells(Rows.Count, 1).End(xlUp).Row)

.Sort Key1:=.Cells(2, 10), Order1:=xlDescending, Header:=xlNo

End With

End With

Set R = Nothing: Rc = Nothing

End Sub

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

استاذى الكبير عباد

بعد تقديم وافر التحية وعظيم الشكر لسرعة التواصل

الكود الذى تفضلتم وقدمتموه رغم انه به مجهود واضح ومبذول إلا ان النتائج لم تتفق مع المطلوب

والمطلوب هو

ترحيل الاسماء ( نسخ ) التى بصفها ( بنك ) على ان يكون كل غرفة فى الدور مع بعضها ( يمكن الاطلاع على الشيت رقم 2 لتوضيح فكرة كل غرفة هذه )

بمعنى اخر : فى الشيت الثانى تم توزيع العاملين حسب الادوار والغرف كلهم رغم ان بعضهم لا يمسك حساب البنك

يوجد فى هذه الادوار والغرف عاملين ماسكين بنك وعاملين لا

والمطلوب ان نستبعد هؤلاء العاملين الغير ماسكين حساب البنك ( وبالتالى قد لا يظهر اى مجموعة من العاملين فى ادوار وغرف لان ليس عندهم عامل يعمل على حساب البنك )

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

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

إليك اخى ملف بها توضيح المطلوب

اسماء.rar

[الـعيدروس]

عادل رشاد عباس المغربى

ليس مقابله بنك لماذ نسخته

عفوا لم افهم ماهو الشرط الذي تريده ؟؟؟

وتجميع مبالغ هذه الغرفة

عرفت ماالمقصود ان شاء الله اضيف هذا في الكود ولكن بعد توضيح النقطه السابقه

تم تعديل يناير 15, 2013 بواسطه دغيدى

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

اخى الكريم

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

والمطلوب جعل اسماء العاملين الذين يعملون فى حساب البنك يظهروا فقط بنفس المنطق ( كل غرفة فى الدور مع بعضهم )

تم تعديل يناير 14, 2013 بواسطه admbrk