المساعدة في عمل زر ترحيل

[حيدر التميمي]

السادة اعضاء المنتدى الاعزاء

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

مع شكري وتقدير لكم

ترحيل.rar

[مجدى يونس]

الاخ / حيدر

هل هذا المطلوب

مجدى يونس

تكلفة.rar

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

السلام عليكم

مثال طبقه على ملفك

مع مراعاة فرق عدد الاعمدة

Sub tr()

Dim x As Integer

For i = 2 To Sheets(1).Cells(100, 1).End(xlUp).Row

With Worksheets((Sheets(1).Cells(i, 4).Value))

x = .Cells(100, 2).End(xlUp).Row + 1

.Cells(x, 1) = Sheets(1).Cells(i, 1)

.Cells(x, 2) = Sheets(1).Cells(i, 2)

.Cells(x, 3) = Sheets(1).Cells(i, 3)

End With

Next i

End Sub

test1.rar

[mhrrd]

الاستاذ المحترم ابو اسامه

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

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

ارجو لو تكرمت ان تشرح الكود حنى اتمكن بعد ذلك من عمليه الترحيل في ملفات اخرى

[يوسف عطا]

بعد إذن الأخ أبو اسامة

أنا كمان بحاول أتعلم الترحيل

وياريت أكون فهمت الكود على حسب فهمى كالتالى

أول سطرين إسم الكود


Sub tr()

Dim x As Integer



السطر التالى سيتم ترحيل البيانات من الصف الثانى للصف رقم 100


For i = 2 To Sheets(1).Cells(100, 1).End(xlUp).Row


السطر التالى معيار الترحيل أو دليل الترحيل موجود فى العمود رقم 4



With Worksheets((Sheets(1).Cells(i, 4).Value))



السطر التالى مكان لصق البيانات المرحلة فى الشيتات التى بأسماء معيار الترحيل من الصف الثانى للصف رقم 100

ولا أعرف دلالة +1 فى نهاية السطر


x = .Cells(100, 2).End(xlUp).Row + 1



السطور التالية توضح أن عمود رقم 1 فى شيت المصدر سيرحل لعمود رقم 1 فى الشيت الهدف

وهكذا السطرين التاليين


.Cells(x, 1) = Sheets(1).Cells(i, 1)

.Cells(x, 2) = Sheets(1).Cells(i, 2)

.Cells(x, 3) = Sheets(1).Cells(i, 3)


نهاية الكود

End With

Next i

End Sub

أتمنى يكون فهمى للكود مظبوط ولو كان ذلك صحيح سأعزم نفسى على حاجة حلوة ولو كان خطأ هاشرب مية طرشى

دمت بكل خير أخى اسامة وكذلك أخى السائل

[mhrrd]

هذا هو الملف وقد غيرت في الكود حسب شرحكم ولم يعمل معي

ماهي الجزئيه الناقصه لكي يعمل جيدا

test2.rar

test2.rar

[عبدالله المجرب]

السلام عليكم

الكود سيصبح هكذا

Sub tr1()

Dim x As Integer

For i = 14 To Sheets(1).Cells(100, 2).End(xlUp).Row

With Worksheets((Sheets(1).Cells(i, 10).Value))

x = .Cells(100, 3).End(xlUp).Row + 1

.Cells(x, 2) = Sheets(1).Cells(i, 1)

.Cells(x, 3) = Sheets(1).Cells(i, 2)

.Cells(x, 4) = Sheets(1).Cells(i, 3)

End With

Next i

End Sub

[mhrrd]

اشكرك كثيرا اخي الحبيب عبد الله

**

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

[يوسف عطا]

أستاذى الغالى عبدالله المجرب

الرجاء توضيح هل شرح الكود كما يلى صواب أم خطأ مع التصويب ربنا يكرمك

Sub tr1()

Dim x As Integer



'الكود سوف يعمل من العمود الثانى من صف 14 إلى صف رقم 100


For i = 14 To Sheets(1).Cells(100, 2).End(xlUp).Row



'الرقم 10 فى السطر التالى يمثل رقم العمود المحتوى على معيار الترحيل

With Worksheets((Sheets(1).Cells(i, 10).Value))



'سيتم الترحيل فى الشيت الهدف إلى العمود الثانى من أول صف خالى إلى صف رقم 100

x = .Cells(100, 2).End(xlUp).Row + 1



' السطر التالى عمود رقم 2 فى المصدر سيرحل إلى عمود رقم 2 فى الهدف وهكذا السطور التالية

.Cells(x, 2) = Sheets(1).Cells(i, 2)

.Cells(x, 3) = Sheets(1).Cells(i, 3)

.Cells(x, 4) = Sheets(1).Cells(i, 4)


'نهاية الكود


End With

Next i

End Sub

[عبدالله المجرب]

السلام عليكم

اخي يوسف هذا شرحي للكود

==

For i = 14 To Sheets(1).Cells(100, 2).End(xlUp).Row

هذا السطر لتعريف المتغيير i من الرقم (الصف) 14 وحتى اخر خلية بها بيانات في العمود الثاني (يمتد حتى الصف 100 فقط) ==

With Worksheets((Sheets(1).Cells(i, 10).Value))

هذا السطر يخص اسم الشيت التي سيتم الترحيل اليها واسم الشيت موجود في الخلية صف i والعمود العاشر من ورقة العمل الاولى ===

x = .Cells(100, 2).End(xlUp).Row + 1

نفس اسلوب تعريف المتغيير i ولكن هذا المتغيير ثابت ويعني رقم صف الخلية التي تلي اخر خلية بها بيانات في العمود الثاني (طبعاً في الشيتات المرحل اليها) ==== الاسطر التالية

.Cells(x, 2) = Sheets(1).Cells(i, 2)

.Cells(x, 3) = Sheets(1).Cells(i, 3)

.Cells(x, 4) = Sheets(1).Cells(i, 4)

بعد تعريف المتغييرين i , x يصبح الترحيل مقرون باخر خلية ليس بها بيانات والعمود الثاني وكذلك العمود الثالث والعمود الرابع

طبعاً الخلايا التي بها المتغيير x يكون موقعها في الشيت المرحل اليه والتي بها المتغيير i تكون في الشيت الأول

والله اعلم

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

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

اخوانى الكرام شكرا لكم على التفاعل مع المشاركة

الاخ صاحب المشاركه اذا حدث لديك اخطا تكون ناتجه عن عدم تطابق اسم الورقه مع النص المكتوب في الورقة الرئيسة (المسافه في التسميه تعتبر حرف ) عدل اسماء الاوراق تحل المشكله

باذن الله

اخوكم العربي الثائر

ابو اسامه

[mhrrd]

اشكرك كثيرا اخي الحبيب عبد الله

**

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

شكرا لكم وبارك الله فيكم اريد الكود في ملف

[mhrrd]

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

اخوانى الكرام شكرا لكم على التفاعل مع المشاركة

الاخ صاحب المشاركه اذا حدث لديك اخطا تكون ناتجه عن عدم تطابق اسم الورقه مع النص المكتوب في الورقة الرئيسة (المسافه في التسميه تعتبر حرف ) عدل اسماء الاوراق تحل المشكله

باذن الله

اخوكم العربي الثائر

ابو اسامه

ايحا العربي الثائر

حفظك الله وبارك الله فيكم

[أبوعبد الله]

أخي العزيز

إلى جانب ما تفضل به أساتذتنا الكرام وحسب رغبتك تم وضع الكود بالملف الخاص بك في المرفق ، مع إضافة مسح البيانات من الورقتين f و m قبل الترحيل في كلة مرة تحسباً لعدم تكرار الترحيل لنفس البيانات وضمان التحديث حسب ما سيضاف بالصفحة الرئيسية ، أرجو أن يكون موافق لطلبك .

تحياتي

أبو عبدالله

test2.rar

[mhrrd]

الف شكر اخي العزيز ابو عبد الله

جاري دراسة الملف والرد ان شاء الله مساء

[mhrrd]

أخي العزيز

إلى جانب ما تفضل به أساتذتنا الكرام وحسب رغبتك تم وضع الكود بالملف الخاص بك في المرفق ، مع إضافة مسح البيانات من الورقتين f و m قبل الترحيل في كلة مرة تحسباً لعدم تكرار الترحيل لنفس البيانات وضمان التحديث حسب ما سيضاف بالصفحة الرئيسية ، أرجو أن يكون موافق لطلبك .

تحياتي

أبو عبدالله

حفظك الله

تم تعديل نوفمبر 23, 2011 بواسطه mhrrd

[mhrrd]

لو تكرمت اريد المسح يتم في نفس الاوراق التي ينقل اليها البيانات

[يوسف عطا]

لو تكرمت اريد المسح يتم في نفس الاوراق التي ينقل اليها البيانات

هذا بالفعل ما يحدث

[mhrrd]

المسح يتم في جميع الصفحات

وليس صفحات التي تنقل البيها فقط

[أبوعبد الله]

أخي العزيز / mhrrd

أرجو الاطلاع على المرفق وقد تم معالجة عدم مسح باقي الأوراق .

تحياتي

أبو عبدالله

test2-1.rar

[mhrrd]

اشكرك كثيرا وبارك الله لك اخي ابو عبد الله

---

الكود يعمل تمام ولكن عندما غيرت اسم الصفحة المسماة شيت 1 الى اسم m

تم تغيير اسم الصفحة المسماه بحرف m الى اسم اخر لم احصل على النتائج المرجوة

ارجو توضيح ماذا افعل عند تغيير اسماء الصفحات وشكرا

[الـعيدروس]

جربت تغير الاوراق على مرفق الاستاذ ابو عبدالله اكسلجي

وعمل 100 %

[mhrrd]

جزاك الله كل خير اخي الحبيب ابو عبد الله

الملف تمام

حفظك الله

[يوسف عطا]

اشكرك كثيرا وبارك الله لك اخي ابو عبد الله

---

الكود يعمل تمام ولكن عندما غيرت اسم الصفحة المسماة شيت 1 الى اسم m

تم تغيير اسم الصفحة المسماه بحرف m الى اسم اخر لم احصل على النتائج المرجوة

ارجو توضيح ماذا افعل عند تغيير اسماء الصفحات وشكرا

فى أكواد الترحيل لابد من مراعاة تغيير اسماء الشيتات مع تغيير أسماء معايير الترحيل لأن كلاهما مرتبطان ببعض ويجب أن يراعى تغيير ما يلزم فى الكود

[حيدر التميمي]

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

ترحيل.rar