كيفية ترحيل البيانات من شيت إلى اخر

[ياسين ( أبو وسام )]

 

 

 

استفسار عن كيفية ترحيل البيانات من شيت إلى اخر حسب الشرح المرفق

 

ودمتم في رعاية الله 

 

 

 

نموذج.rar

[محمود_الشريف]

أخى فى الله

الأستاذ / ياسين

يرجى منكم مراجعه النموذج المرفق من قبلكم

نظرا لأن البيانات المطلوب ترحيلها بها الآتى

 

تاريخ الميلاد وتاريخ التعيين ....>>> ولا يوجد مقابل لها بالشيت الثانى

كذلك بالشيت الثانى يوجد عمود للأسم ...>>> وهو غير موجود بالبيانات المطلوب ترحيلها

 

 

وتقبلوا منى وافر الاحترام والتقدير

[ياسين ( أبو وسام )]

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

واسعد الله صباحك بالصحة والعافية

 

للاسف وقبل اذان الصبح واثناء كتابة الموضوع كان ابني وسام قد يلهو من حولي مما جعلني اجهل هذي الملاحظات التي قمتم مشكورين بتنبهي عليها 

 

وعليه تم اعادة رفع النوذج للتفضل شاكرين بالأطلاع عليه 

 

وتقبلوا منى وافر الاحترام والتقدير

نموذج تعبئة.rar

[محمود_الشريف]

أخى فى الله

الاستاذ / ياسين

نسأل الله عز وجل أن يحفظه لكم من شرور خلقه

وأن يرزقكم بره وأن يجعله من عباده الصالحين 

 

واليكم الملف بعد تنفيذ المطلوب

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

ملاحظة الترحيل بالاكواد لا ينفع مع الخلايا المدموجة لذا تم الغاء الدمج حتى يتم الترحيل

تقبل منى وافر الاحترام والتقدير

نموذج تعبئة1.rar

[ياسين ( أبو وسام )]

عزيزي محمود الشريف 

 

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

 

عمل رائع هذا ما كنت اود فعله بالظبط 

 

بارك الله بك على الشرح الوافق والمبدع

 

تقبل منى وافر الاحترام والتقدير

[إبراهيم ابوليله]

اخى محمود

بارك الله فيك

كود جميل وسهل يتسم بالبساطه

----------------------

اسمح لى بالمشارك بكود

عن طريق الحلقه التكراريه

----------------------------------

Sub MoveData()
Dim EndRow As Long
If Sheets("Employee Profile").Range("B5").Value = "" Or Sheets("Employee Profile").Range("L8").Value = "" Or Sheets("Employee Profile").Range("L9").Value = "" Or Sheets("Employee Profile").Range("L10").Value = "" Or Sheets("Employee Profile").Range("L11").Value = "" Or Sheets("Employee Profile").Range("L12").Value = "" Or Sheets("Employee Profile").Range("L13").Value = "" Or Sheets("Employee Profile").Range("L16").Value = "" Then
MsgBox prompt:="ÊÃßÏ ãä ÅÏÎÇá ßÇÝÉ ÇáÈíÇäÇÊ", Title:="ÎØÃ"
Else
EndRow = Sheets("DATA").Range("A1").CurrentRegion.Rows.Count
Sheets("DATA").Cells(EndRow + 1, 1).Value = EndRow
Sheets("DATA").Cells(EndRow + 1, 2).Value = Sheets("Employee Profile").Cells(8, 12).Value
Sheets("DATA").Cells(EndRow + 1, 3).Value = Sheets("Employee Profile").Cells(5, 2).Value
X = 4
For H = 9 To 16
Sheets("DATA").Cells(EndRow + 1, X) = Sheets("Employee Profile").Cells(H, 12).Value
X = X + 1
Next
MsgBox prompt:="Êã ÊÑÍíá ÇáÈíÇäÇÊ ÈäÌÇÍ", Title:="ÑÓÇáÉ ÊÃßíÏ"
End If
End Sub

نموذج تعبئة11.rar

[mostafa tayee]

انا عايز افهم اكواد الماكرو بعد ازنكم

[محمود_الشريف]

أخى فى الله

الأستاذ / ياسين أبو وسام

بارك الله فيكم

وتقبل منى وافر الاحترام والتقدير

[محمود_الشريف]

أخى فى الله

أستاذى الكبير // ابراهيم ابو ليله

إنه لشرف لى أن تشارك فى موضوع شاركت فيه 

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

تقبل منى وافر الاحترام والتقدير

[إبراهيم ابوليله]

اخى محمود

اشكرك على الكلمات النبيله

جمعنا الله على المحبه

بارك الله فيك

[ا بو سليمان]

رائعين   رائعين   يا  حلووووووووووين 

 

تعاون رائع  

[محمود_الشريف]

أخى فى الله

الأستاذ القدير // ابراهيم ابو ليله

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

نسأل الله عز وجل أن يتقبل منكم صالح الأعمال ودعاؤكم الطيب

 

تقبل منى وافر الاحترام والتقدير

[محمود_الشريف]

أخى فى الله

الأستاذ / زمزم

بارك الله فيكم وعلى مروركم الكريم

تقبل منى وافر الاحترام والتقدير