ترحيل بشرطين

[منسق]

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

أرجو مساعدتي بعمل كود لترحيل الثلاث صفوف الأخيرة من الورقةالأولى إلى الورقة الثانية ولكن بشرطين:

الأول أن لاتكون الخلية الأولى من الصفوف الثلاثة فارغة

والثاني أن لا يكون نفس الرقم الموجود في الخلية الأولى موجود في الورقة الثانية في العمود الأول، وفي هذه الحالة يتم التعديل على الصف في الورقة الثانية.

ترحيل بشرط.rar

[طارق محمود]

السلام عليكم

تفضل أخي المرفق

وهذا هو الكود الخاص بذلك

Sub shift()

Dim a(9) As String

Worksheets(1).Activate

Range("a41:n43").Select

	For i = 41 To 43

	a(i - 40) = Range("a" & i).Value

	If a(i - 40) = "" Then MsgBox ("First Cell Empty in Row #" & i): Exit Sub

	Next i


Worksheets(2).Activate

Range("a1000").Select

Selection.End(xlUp).Select

last_r = ActiveCell.Row


 For i = 1 To 3

 	For j = 3 To last_r

 	If Range("a" & j) = a(i) Then MsgBox ("Repeated Record in Row #" & j): Exit Sub

 	Next j

 Next i


End Sub

سيعطيك رسالة في حالة خلو أي من الخلايا الأولي في العمود الأول من الصفوف الأخيرة

وسيعطيك رسالة أخري في حالة وجود أي من الأرقام الثلاثة في الخلية الأولى في العمود الأول من الورقة الثانية

ترحيل بشرط.rar

[منسق]

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

أستاذي العزيز TareQ M

أشكرك كثيراً على مجهودك وهو عمل جميل

ولكن المطلوب هو عدم إظهار رسالة, المطلوب هو ترحيل الصفوف التي بها أرقام في العمود الأول إلى الورقة الثانية

وفي حالة وجود بيانات في الورقة الثانية يتم تعديل البيانات الموجوده بها حسب قيمة الخلية في العمود الأول

وأشكرك أستاذي TareQ M مرة أخرى

وأرجو أن أجد الحل عندكم

[هشام شلبى]

السلام عليكم

============

اخى العزيز جدا الاستاذ طارق

بارك الله فى يدك

[طارق محمود]

السلام عليكم

أخي منسق

ولكن المطلوب هو عدم إظهار رسالة, المطلوب هو ترحيل الصفوف التي بها أرقام في العمود الأول إلى الورقة الثانية

وفي حالة وجود بيانات في الورقة الثانية يتم تعديل البيانات الموجوده بها حسب قيمة الخلية في العمود الأول

أي أنك تريد

1. إذا لم يتحقق الشرط الأول ، فلا يتم الترحيل ابدا

الأول أن لاتكون الخلية الأولى من الصفوف الثلاثة فارغة

والثاني أن لا يكون نفس الرقم الموجود في الخلية الأولى موجود في الورقة الثانية في العمود الأول

2. إذا تحقق الشرطين الأول والثاني فيتم النسخ للبيانات ببساطة

3. إذا تحقق الشرط الأول ولم يتحقق الشرط الثاني فيتم النسخ للبيانات الجديدة فوق مثيلاتها في الورقة الثانية

هل هذا ماتقصد؟؟

تم تعديل مارس 27, 2010 بواسطه TareQ M

[منسق]

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

أحسنت أستاذي العزيز

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

وجزاك الله ألف خير

[طارق محمود]

السلام عليكم

أخي منسق

تفضل المرفق وبه المطلوب

ترحيل بشرط2.rar

[منسق]

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

أستاذي العزيز

أحسنت وجزاك الله خيراً

عمل ممتاز جداً جداً

وسأتعبك بطلب أخير

هو في حالة عدم وجود رقم في أحد الصفوف في العمود الأول من الورقة الأولى لايرحل هذا الصف فقط ويرحل باقي الصفوف وبدون رسالة تنبيه

وآسف على تعبك

[طارق محمود]

السلام عليكم

أخي منسق

ولايهمك،

طبعا كان الأفضل التوضيح جيدا من الأول

علي أية حال ، تفضل المرفق

ترحيل بشرط3.rar

[منسق]

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

أستاذي العزيز أحسن الله إليك وجزالك ألف خير

عمل جبار جداً

لكن البرنامج يرحل الصف الأول فقط والمطلوب هو ترحيل أي صف من الثلاث صفوف بشرط وجود رقم في العمود الأول

وآسف مرة أخرى على تعبك والإطالة عليك

[طارق محمود]

السلام عليكم

عذرا أخي فقد كنت في عجلة بالأمس

أضف سطر الكود التالي قبل السطر رقم 50

 Worksheets(1).Activate

تم تعديل مارس 30, 2010 بواسطه TareQ M

[منسق]

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

أستاذي العزيز أحسن الله إليك وجزالك ألف خير

عمل جبار جداً

تم إضافة الكود واكتمل البرنامج

ألف ألف شكر