الاستعلام من خلال شاشة واحدة باستخدام الكود .

[skyblue]

الاساتذة المشرفين والاعضاء الافاضل

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

وكل عام وانتم بخير

حسب المرفق ارجوا من الاخوان الافاضل استخدام كود لهذا الاستعلام بدلا من الماكرو . لان الكود يجلب البيانات بطريقة صامته . اما الماكلرو اللي انا عامله فيجعل الشاشة والجدول تتحرك بشكل غير جميل .

تحياتي

book115.rar

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

السلام عليكم

تفضل الكود التالي:

Sub Macro1()

	Application.ScreenUpdating = False

	Sheets("1").Range("D3:D17").Copy Range("D3")

	Application.ScreenUpdating = True

End Sub

وكرر الكود مع تغيير اسم الورقة