ahmed00 قام بنشر نوفمبر 7, 2009 مشاركة قام بنشر نوفمبر 7, 2009 (معدل) السلام عليكم ورحمة الله وبركاته ارجو المرة هذه عمل هذا الكود وربنا يكون له اجابه أحمد 2009.zip تم تعديل نوفمبر 8, 2009 بواسطه خبور خير رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر نوفمبر 7, 2009 مشاركة قام بنشر نوفمبر 7, 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 رابط هذا التعليق شارك More sharing options...
ahmed00 قام بنشر نوفمبر 7, 2009 الكاتب مشاركة قام بنشر نوفمبر 7, 2009 السلام عليكم ورحمة الله وبركاته أخي الكريم خبور الله يكرمك الله يزيدك علم الله ينور بالمصري إني احبك في الله جزاك الله خيراًً أحمد رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.