طلب ترحيل عامود من شيث تحتوي على عدة صفوف

[الســـــــاهر]

السلام عليكم

اخواني الكرام

بالمرفق ملف به صفحتين

اريد ترحيل قيم عامود حسب اسم الشركة بالقائمة من الصفحه الثانية للأولى

و جزاكم الله خير

_______________.rar

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

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

السلام عليكم

الكود بطيء بسبب المعادلات

_______________.rar

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

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

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
ii = Range("f1").Value
For i = 3 To 66
Sheets("æÑÞÉ1").Cells(i, 3).Value = Sheets("comps").Cells(i, ii).Value
Sheets("æÑÞÉ1").Cells(i, 1).Value = Sheets("comps").Cells(i, ii).Value
Next
Application.EnableEvents = True
End Sub

هذه "ورقة1" ("æÑÞÉ1"

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

[الســـــــاهر]

السلام عليكم

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

اخوي ان امكن وضع الكود بالملف لانه لم يعمل معاي

و جزاك الله خير الجزاء

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

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

السلام عليكم

هو موجود بالملف الذي ارفقته

[الســـــــاهر]

السلام عليكم

عفواً اخي الفاضل لم انتبه له لاني ذهلت لاخر مشاركة

اشكرك وجاري التحميل

تقبل شكري و امتناني

[الســـــــاهر]

السلام عليكم

اخوي ابو اسامة اريد الكود يقوم بلصق القيم في العامود A فقط

الكود يقوم باللصق في العامود A و C

ولو في طريقة بإستخدام اللصق الخاص و اختيار القيم يكون اسرع

جزاكم الله خير أخي الكريم

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

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

السلام عليكم

احذف هذا السطر من الكود

Sheets("æÑÞÉ1").Cells(i, 3).Value = Sheets("comps").Cells(i, ii).Value

[الســـــــاهر]

السلام عليكم

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

اعجبتني طريقة تنفيذ الكود

ولكنه لا يزال بطيء جدا مقارنة مع النسخ و اللصق اليدوي

شاكر لك اهتمامك و تعاونك

[الســـــــاهر]

السلام عليكم

اخوي ابو اسامة اسعد الله اوقاتك بكل خير

اخي الفاضل ارجو ان يتسع وقتكم للإطلاع على المرفق

الكود جميل جداً و لكنه مرات يتم تنفيذه في اقل من ثانية و مرات اخرى يكون بطيء جداً

قمت بريط القائمة المنسدلة بالكود مع ابقاء خلية التحقق من الصحة تعمل

الملف يحتاج الى لمساتك الاخيرة

تقبل تحياتي و تقديري

_______________1.rar