كود اختيار مندوب من الجدول

[ahmed00]

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

ارجو المرة هذه عمل هذا الكود وربنا يكون له اجابه

أحمد

2009.zip

تم تعديل نوفمبر 8, 2009 بواسطه خبور خير

[عبدالله باقشير]

السلام عليكم

حسب ما فهمت من طلبك

استخدم الكود التالي:

Sub Macro1()

Dim Kh_Code As String

Kh_Code = Range("F2").Text

    ActiveSheet.PivotTables("PivotTable1").PivotFields("Sales Man No").CurrentPage _

        = Kh_Code

End Sub

[ahmed00]

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

أخي الكريم خبور الله يكرمك الله يزيدك علم الله ينور بالمصري

إني احبك في الله جزاك الله خيراًً

أحمد