أكاديمية الصقر للتدريب

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


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





كود لترحيل البيانات لاعمدة مختلفة الترتيب

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


موضوع مغلق

الصفحة 1 من 2 < 1 2 > الأخيرة »


21-03-2021 09:14 صباحا
mahmoud ayad
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-03-2018
رقم العضوية : 4874
المشاركات : 194
الجنس : ذكر
تاريخ الميلاد : 29-5-1982
الدعوات : 1
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 469
 offline 

السلام عليكم اخواتي الكرام
برجاء المساعده ف كيفيه ترحيل البيانات الأتيه .... مع العلم ان البيانات الاسماء الموجوده قد تزيد او تنقص ع حسب اختياري للقسم
لا عايز بس اعمل command button بعد ما اقوم بالادخالات وبالضغط عليها يقوم بالترحيل مع العلم ان هناك اعمده بها معادلات واعمده اخري بدون معادلات
وايضا للايضاح مثلا هناك اقسام بها اكثر من 500 عامل واقسام اخري بها اقل ... فعندما اقوم باختيار القسم يمتلئ الاعمده باسماء وطبيعه الاعمال لكل موظف هذا كله قمت بعمل معادلاته 
ما ريده فقط هو بعد ان اكتب مواعيد حضور وانصراف لكل موظف اضغط علي ترحيل فيقوم بترحيل البيانات

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  ترحيل بيانات.rar   تحميل rar مرات التحميل :(14)
الحجم :(8.33) KB



أفضل إجابة مقدمة من salim وهي:
كنت قد وضعت موضوعاً جول الــServer لهذا المنتدي و انه في أغلب الأحيان 70% تظهر هذه العبارة على الــBrowser
This site can’t be reached  والان النسبة اصبحت 90%
ولاحياة لمن تنادي   اي لم يرد على تساؤلاتي من المسؤولين عن الموقع
لهذا اذا استمر هذا الوضع سأقوم (آسفاً) بتعليق عضويتي في الموقع

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

Sub My_Data()

Dim A, D    As Worksheet
Dim RD%, RA%, I%, K%
Dim Ar_A(), Ar_D()
Set A = Sheets("Atten")
Set D = Sheets("Daily ENT")
RD = D.Range("D7").Resize(500).Find("", LookIn:=xlValues).Row - 1
RA = A.Cells(Rows.Count, "D").End(3).Row + 1
If RA < 7 Then RA = 7
'-----------------------------------------------------
 Ar_A = Array("D", "E")
 Ar_D = Array("D", "C")

For K = 7 To RD
   For I = 0 To 1
      A.Cells(RA, Ar_A(I)) = _
      D.Cells(K, Ar_D(I))
   Next I
     A.Cells(RA, I + 4).Resize(, 7).Value = _
   D.Cells(K, "F").Resize(, 7).Value
 RA = RA + 1
Next K
End Sub

 
عرض الإجابة




21-03-2021 09:18 مساء
مشاهدة مشاركة منفردة [1]
محمد الدسوقى
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 827
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 79
يتابعهم : 9
يتابعونه : 766
قوة السمعة : 8651
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif كود لترحيل البيانات لاعمدة مختلفة الترتيب
 
 
  MDترحيل بيانات.xlsm   تحميل xlsm مرات التحميل :(10)
الحجم :(141.414) KB


22-03-2021 07:07 صباحا
مشاهدة مشاركة منفردة [2]
mahmoud ayad
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-03-2018
رقم العضوية : 4874
المشاركات : 194
الجنس : ذكر
تاريخ الميلاد : 29-5-1982
الدعوات : 1
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 469
 offline 
look/images/icons/i1.gif كود لترحيل البيانات لاعمدة مختلفة الترتيب
اشكرك استاذي محمد الدسوقي

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

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

22-03-2021 01:34 مساء
مشاهدة مشاركة منفردة [3]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif كود لترحيل البيانات لاعمدة مختلفة الترتيب
جرب هذا الكود

Sub My_Data()

Dim N, D    As Worksheet
Dim RD%, RN%, I%, K%
Dim Ar_N(), Ar_D()

Set N = Sheets("New")
Set D = Sheets("Data")

RD = D.Cells(Rows.Count, "C").End(3).Row
RN = N.Cells(Rows.Count, "D").End(3).Row + 1
If RN < 7 Then RN = 7
'-----------------------------------------------------
 Ar_N = Array("D", "E")
 Ar_D = Array("D", "C")

For K = 7 To RD
   For I = 0 To 1
      N.Cells(RN, Ar_N(I)) = _
      D.Cells(K, Ar_D(I))
   Next I
  
   N.Cells(RN, I + 4).Resize(, 7).Value = _
   D.Cells(K, "F").Resize(, 7).Value
 RN = RN + 1
Next K

End Sub


الملف مرفق
 
 
 
  Tarhil.xlsm   تحميل xlsm مرات التحميل :(14)
الحجم :(162.394) KB


23-03-2021 12:02 مساء
مشاهدة مشاركة منفردة [4]
mahmoud ayad
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-03-2018
رقم العضوية : 4874
المشاركات : 194
الجنس : ذكر
تاريخ الميلاد : 29-5-1982
الدعوات : 1
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 469
 offline 
look/images/icons/i1.gif كود لترحيل البيانات لاعمدة مختلفة الترتيب

كود رائع استاذ salim  بس بردوا فيه مشكله بياخد تنسيق الخلايا معاه في الشيت الاصلي بتاعي وعشان كدا لما بييجي يرحل مره تانية بيرحل ع اخر خلية فيها تنسيق 
استاذ SALIM 
ممكن بس تزودلي انه يرحل قيم فقط وليس تنسيق او معادلات 

24-03-2021 09:09 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif كود لترحيل البيانات لاعمدة مختلفة الترتيب
الكود بالفعل بيرحل القيم وليس التنسيق .. ممكن تكون الورقة الهدف الخلايا فيها متنقسة كدا بالفعل لذلك الأفضل إزالة التنسيق من الورقة اللي هيتم الترحيل إليها ...

24-03-2021 09:28 صباحا
مشاهدة مشاركة منفردة [6]
mahmoud ayad
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-03-2018
رقم العضوية : 4874
المشاركات : 194
الجنس : ذكر
تاريخ الميلاد : 29-5-1982
الدعوات : 1
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 469
 offline 
look/images/icons/i1.gif كود لترحيل البيانات لاعمدة مختلفة الترتيب
اهلا بيك استاذ ياسر خليل تحياتي لكلماتك وردك
اسف ولكن لو الخلايا فيها معادلات بياخدها كمان .... ولما باجي ارحل تاني بيرحل ف الشيت الجديد بعد اخر صف فيه معادلات
مثلا انا عامل 200 صف فيهم معادلات لما بختار القسم بينكتب اسماء الموظفين وليكن 50 موظف... الكود دا بيرحل كامل ال 200 صف اللي فيهم معادلات وليس البيانات اللي ظهرت فقط


الصفحة 1 من 2 < 1 2 > الأخيرة »


الكلمات الدلالية
ارحل ، اعرف ، الاتيه ، البيانات ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 05:57 مساء