كيف يتم تظليل عده سطور مرتبطه مع بعض بخليه معينه بعد الاختيار

[Exel Man]

السلام عليكم

الرجاء المساعده في تعديل الكود الموجود في الشيت a1

المطلوب عند الظغط على الينك الموجود في sheet1 وبعد الانتقال الى الشيت a1 يتم تحديد جميع السطور المتعلقه بهذا السطر وذالك حسب قيمه خليه معينه

مثال

اذا ضغطنا على Click here للموظف الاول فان الرابط ياخذنا الى اليشت a1 ويقوم بتظليل او فلتره جميع السطور المتعلقه بهذا الموظف

المثال بالمرفق

شكرا مقدما للخبراء وجميع الاعضاء الكرام

link_Example.zip

[ابو اسامة العينبوسي]

السلام عليكم

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

link_Example2.rar

[Exel Man]

الف شكر ابو اسامه

ممكن طريقه نقوم من خلالها باخفاء الاسطر الغير متعلقه بالموظف؟؟!!

او تلوين الاسطر بدون الضغط دبل كليك على رقم الموظف!!

الف شكر مره اخرى

[ابو اسامة العينبوسي]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim cell As Range
Sheets("a1").Rows.EntireRow.Interior.ColorIndex = xlNone
Sheets("a1").Rows.EntireRow.Hidden = False
If Target.Column <> 2 Then Exit Sub
For Each cell In Sheets("a1").Range("a2:a200")
If cell.Value = ActiveCell.Value Then
cell.EntireRow.Interior.ColorIndex = 6
Else
cell.EntireRow.Hidden = True
Cells(1, 1).EntireRow.Hidden = False
End If
Next cell
End Sub

تم تعديل ديسمبر 21, 2008 بواسطه ابو اسامة العينبوسي

[Exel Man]

مشكور

بس ما فيه كود يعمل اخفاء من دون دبل كليك؟؟

[Exel Man]

UP

[Exel Man]

UP

[Exel Man]

وين خبراء المنتدى و المشرفين؟؟ معقوله المساله هذي مالها حل!!!!!

تم تعديل ديسمبر 23, 2008 بواسطه Exel Man

[Exel Man]

up

[Exel Man]

UP

[Exel Man]

UP

[Exel Man]

UP