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

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


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





ترحيل من شيت غلى أخرى بشروط

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



13-04-2019 05:39 مساء
morestudy
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 09-09-2017
رقم العضوية : 434
المشاركات : 14
الجنس : أنثى
تاريخ الميلاد : 1-10-1970
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 2
 offline 

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

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


 
 
  ترحيل بيانات بشروط.rar   تحميل rar مرات التحميل :(22)
الحجم :(305.559) KB







16-04-2019 07:46 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7234
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 410
قوة السمعة : 20696
الاعجاب : 1430
 offline 
look/images/icons/i1.gif ترحيل من شيت غلى أخرى بشروط
وعليكم السلام
في الملف المرفق المضغوط يوجد 3 ملفات .. يرجى توضيح المطلوب بالتفصيل
ما هو الملف المطلوب العمل عليه ؟ ما هي ورقة العمل التي سيرحل منها البيانات والورقة التي سيرحل إليها ؟ وما هي الشروط؟
وهل الترحيل داخل ملف واحد أم في ملف آخر ولو كانت الإجابة بنعم هل الملف الآخر سيكون مفتوح أم مغلق ...؟





17-04-2019 07:01 صباحا
مشاهدة مشاركة منفردة [2]
morestudy
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 09-09-2017
رقم العضوية : 434
المشاركات : 14
الجنس : أنثى
تاريخ الميلاد : 1-10-1970
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 2
 offline 
look/images/icons/i1.gif ترحيل من شيت غلى أخرى بشروط

السلام عليكم


أستاذي الفاضل ياسر أسعدني مرورك.


المطلوب الترحيل من ملف القوى بالاكواد إلى ملف حافظة الدوام. ( وهذا هو المطلوب الأساسي)


وشرح المطلوب موجود في ملف القوى بالأكواد.


أما بالنسبة لملف القوائم المنسدلة فكان مرفقاً للاستفسار الخاص بعمل قوائم منسدلة بالكود (استفسار إضافي فقط)


إن كان أي غموض سوف أعيد الشرح مرة أخرى.


ولك جزيل الشكر مرة أخرى.142













17-04-2019 10:33 صباحا
مشاهدة مشاركة منفردة [3]
morestudy
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 09-09-2017
رقم العضوية : 434
المشاركات : 14
الجنس : أنثى
تاريخ الميلاد : 1-10-1970
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 2
 offline 
look/images/icons/i1.gif ترحيل من شيت غلى أخرى بشروط

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


Option Explicit

Sub Copy_m*ethod()
'Copy range to another workbook using Range.Copy m*ethod

'Copy range to another workbook
Workbooks("برنامج القوى العاملة .xlsb").Worksheets("القوى للمدارس").Range("A4:i1900", "N4:n1900").Copy _
Workbooks("حافظة دوام مدارس.xlsb").Worksheets("القوى العاملة").Range("A2:j1900")


'IMPORTANT points to remember:
'Both workbooks must be open. We can use code to open/close workbooks.
'Must reference correct file extensionin Workbooks property.
'Workbooks do NOT have to be macro enabled.
'Code can be stored in separate workbook (PMW).
'Do not need to select or activate the workbooks first. Video on VBA Assumptions.

End Sub

Sub Copy_PasteSpecial_m*ethod()

'Copy range to clipboard
Workbooks("برنامج القوى العاملة .xlsb").Worksheets("القوى للمدارس").Range("A4:i1900", "N4:n1900").Copy _

'PasteSpecial to paste values, formulas, formats, etc.
Workbooks("حافظة دوام مدارس.xlsb").Worksheets("القوى العاملة").Range ("A2:j1900")
.PasteSpecial Paste:=xlPasteValues

End Sub

Sub Copy_Values_Technique()

'Set value of destination range to value of copy range
Workbooks("برنامج القوى العاملة .xlsb").Worksheets("القوى للمدارس").Range("A4:i1900", "N4:n1900").Value = _
Workbooks("حافظة دوام مدارس.xlsb").Worksheets("القوى العاملة").Range("A4:j1900").Value

End Sub


Sub Alternate_Workbook_Reference()

'The ThisWorkbook property can be used if the code is in the same
'workbook as the copy or destination range. In this case the code
'is in the destination workbook.
Workbooks("برنامج القوى العاملة .xlsb").Worksheets("القوى للمدارس").Range("A4:i1900", "N4:n1900").Copy _
Workbooks("حافظة دوام مدارس.xlsb").Worksheets("القوى العاملة").Range("A2:j1900")


'Original reference
Workbooks("برنامج القوى العاملة .xlsb").Worksheets("القوى للمدارس").Range("A4:i1900", "N4:n1900").Copy _
Workbooks("حافظة دوام مدارس.xlsb").Worksheets("برنامج القوى العاملة .xlsb").Range("A2:j1900")

End Sub


Sub Sheet_Number_Reference()

'Reference a sheet by its postion (index) number if the sheet name changes frequently.
Workbooks("برنامج القوى العاملة .xlsb").Worksheets(1).Range("A4:i1900", "N4:n1900").Copy _
ThisWorkbook.Worksheets("برنامج القوى العاملة .xlsb").Range("A2:j1900")

End Sub

وقد ساعدني كثيراً يتبقى لي الترحيل من شيت إلى شيت بشروط:


1)      إذا كان المدرس إداري اود أن يضع في(خانة العمل ) في حافظة الدوام (عمله: مثلاً أرشيف، مدير ، وكيل ، حاسوب ....وهكذا)


2)      أما إن كان معلماً فيضع في (خانة العمل) في حافزة الدوام (مادة التدريس : مثلا لغة عربية ، قرآن ، اسلامية ، رياضيات.....وهكذا)


3)      فرز العمل ليكون الإداري في أول الحافظة ثم يتم ترتيب المواد متتالية)


أريد أن نبدأ بحل هذه المسألة ثم ننتقل للبقية.


·         ملاحظة :


   اضطررت إلى تغيير أسماء المصنفات في الكود للتماشى مع الكود وتسهيل نقل اسم المصنف  بشكل أفضل






17-04-2019 06:44 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7234
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 410
قوة السمعة : 20696
الاعجاب : 1430
 offline 
look/images/icons/i1.gif ترحيل من شيت غلى أخرى بشروط
أعتقد يجب تناول الموضوع نقطة نقطة وإذا انقضت نقطة معينة انتقلت للنقطة التالية وهكذا .. حتى يسهل على الأعضاء محاولة تقديم المساعدة المطلوبة
مع العلم أن موضوع الترحيل قد قتل بحثاً .. وتوجد العشرات من الموضوعات بهذا الشأن





18-04-2019 08:53 صباحا
مشاهدة مشاركة منفردة [5]
morestudy
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 09-09-2017
رقم العضوية : 434
المشاركات : 14
الجنس : أنثى
تاريخ الميلاد : 1-10-1970
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 2
 offline 
look/images/icons/i1.gif ترحيل من شيت غلى أخرى بشروط

السلام عليكم142

أستاذي الفاضل ياسر

أعلم بأن موضوع الترحيل قد قُتل بحثاً وتناوله الكثير بالشرح ولكني في خضم بحثي في مختلف المواقع لم أصل لما يساعدني في موضوعي ومطلبي قد يكون لقلة فهمي بالأكواد والمعادلات ولعدم قدرتي على تطويع بعض الأكواد على ملفي.

ولكني ما لجئت لكم لكم إلا لعجزي للوصول إلى حل.

وكما قلت يجب أن نتناول الموضوع على نقطة نقطة.

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

Sub choose()
Dim cl As Range, i As Integer
For i = 2 To 4
If Range("h2:h").Value = ("ÇÏÇÑí") Then
    Range("d2:d").Value = "i2:i"
    Else
    Range("d2:d").Value = "j2:j"
End If

End Sub

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

ولكم جزيل الشكر.







18-04-2019 09:09 صباحا
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7234
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 410
قوة السمعة : 20696
الاعجاب : 1430
 offline 
look/images/icons/i1.gif ترحيل من شيت غلى أخرى بشروط
أعتذر عن كثرة الأسئلة
هل ستكون الملفات مفتوحة أثناء عملية الترحيل أم أن الملف المطلوب جلب البيانات منه مغلق؟

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





18-04-2019 12:01 مساء
مشاهدة مشاركة منفردة [7]
morestudy
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 09-09-2017
رقم العضوية : 434
المشاركات : 14
الجنس : أنثى
تاريخ الميلاد : 1-10-1970
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 2
 offline 
look/images/icons/i1.gif ترحيل من شيت غلى أخرى بشروط
أي طريقة ممكنة تجدي نفعاً. إن كان الملف مغلق أو مفتوح بالنسبة لي لا أعلم ما الفرق؟
وأعتذر على تغيير الفونت.





18-04-2019 07:49 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7234
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 410
قوة السمعة : 20696
الاعجاب : 1430
 offline 
look/images/icons/i1.gif ترحيل من شيت غلى أخرى بشروط
السؤال يكون حسب حاجتك .. وسؤالي مرة أخرى هل سيكون الملف الذي سيجلب منه البيانات مفتوح أم مغلق؟
الأسهل في التعامل أن يكون الملف مفتوح ولكن هذا لا يعني أن الأمر صعباً إذا كان الملف مغلق
لكن الإجابة على هذا السؤال سيحدد استراتيجية العمل 





19-04-2019 07:34 صباحا
مشاهدة مشاركة منفردة [9]
morestudy
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 09-09-2017
رقم العضوية : 434
المشاركات : 14
الجنس : أنثى
تاريخ الميلاد : 1-10-1970
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 2
 offline 
look/images/icons/i1.gif ترحيل من شيت غلى أخرى بشروط
السلام عليكم
أستاذي الفاضل ياسر:
ليكن العمل والملف مفتوح لأن حاجتنا للترحيل ليست دائمة وإنما حسب الطلب أو الاحتياج.





19-04-2019 10:00 صباحا
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7234
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 410
قوة السمعة : 20696
الاعجاب : 1430
 offline 
look/images/icons/i1.gif ترحيل من شيت غلى أخرى بشروط
أختي الكريمة  يفضل أن يكون الموضوع مركز في طلب واحد ونقطة واحدة فقط ... وأن يطرح لكل نقطة موضوع منفصل حتى يتمكن الأعضاء من تقديم المساعدة المطلوبة

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

عموماً جربي الملف التالي حيث يوضع الكود في ملف "القوى بالاكواد" في الموديول رقم 3 وتم تعديل الملف المسمى "حافظة الدوام 2018-2019م" في ورقة العمل المسماة "حافظة الدوام" حيث تم إضافة صفوف بشكل يدوي وحذف الصفوف المدمجة التي تحتوي على العناوين ... 

* خطوات التطبيق : حملي الملف المرفق وهو ملف مضغوط وقومي بفك الضغط .. بعد فك الضغط ستجدين مجلد باسم Files Excel-Egy يحتوي على 3 ملفات قومي بفتح الملفين "القوى بالاكواد" و"حافظة الدوام 2018-2019م" ثم في الملف الأول ستجدين زر أمر بعنوان Transfer ، قومي بالنقر عليه ليتم ترحيل البيانات وفقاً للشروط المذكورة  الآن يمكنك الإطلاع على النتائج في الملف المسمى "حافظة الدوام 2018-2019م" في ورقة العمل المسماة "حافظة الدوام"

(ملحوظة : هل لاحظتي أنه خلال شرحي للتطبيق أستخدم اسم الملف واسم ورقة العمل .. هكذا يكون الشرح بالتفصيل الذي أقصده حين شرح مشكلة أو استفسار) وأخيراً إليكي الكود المستخدم والملف المرفق


Option Explicit

'https://excel-egy.com/forum/t3341
'YasserKhalil
'---------------------------------

Sub TransferToAnotherWorkbook()
Dim wbS As Workbook
Dim wbT As Workbook
Dim wsS As Worksheet
Dim wsT As Worksheet
Dim cel As Range
Dim a As Variant
Dim i As Long
Dim sRow As Long

Application.ScreenUpdating = False
Set wbS = ThisWorkbook
Set wbT = Workbooks("حافظة الدوام 2018-2019م.xlsb")
Set wsS = wbS.Worksheets(1)
Set wsT = wbT.Worksheets("حافظة الدوام")
sRow = 7

With wsT
For i = 80 To 7 Step -1
If wsT.Cells(i, 1).MergeCells Then Rows(i).Delete
Next i
.Range("B7:D80").ClearContents

a = wsS.Range("B4:G" & wsS.Cells(Rows.Count, "B").End(xlUp).Row).Value

For i = LBound(a, 1) To UBound(a, 1)
If a(i, 4) = "اداري" Then
wsT.Range("B" & sRow).Value = a(i, 1)
wsT.Range("C" & sRow).Value = a(i, 2)
wsT.Range("D" & sRow).Value = a(i, 5)
sRow = sRow + 1
End If
Next i
wsT.Rows(sRow).Insert: wsT.Rows(6).Copy wsT.Rows(sRow): wsT.Range("A" & sRow).Value = "عام"
sRow = sRow + 1

For i = LBound(a, 1) To UBound(a, 1)
If a(i, 4) = "معلم" And Left(a(i, 6), 3) = "عام" Then
wsT.Range("B" & sRow).Value = a(i, 1)
wsT.Range("C" & sRow).Value = a(i, 2)
wsT.Range("D" & sRow).Value = a(i, 6)
sRow = sRow + 1
End If
Next i
wsT.Rows(sRow).Insert: wsT.Rows(6).Copy wsT.Rows(sRow): wsT.Range("A" & sRow).Value = "مادة القرآن الكريم"
sRow = sRow + 1

For i = LBound(a, 1) To UBound(a, 1)
If a(i, 4) = "معلم" And a(i, 6) = "قرآن" Then
wsT.Range("B" & sRow).Value = a(i, 1)
wsT.Range("C" & sRow).Value = a(i, 2)
wsT.Range("D" & sRow).Value = a(i, 6)
sRow = sRow + 1
End If
Next i
wsT.Rows(sRow).Insert: wsT.Rows(6).Copy wsT.Rows(sRow): wsT.Range("A" & sRow).Value = "مادة اللغة العربية"
sRow = sRow + 1

For i = LBound(a, 1) To UBound(a, 1)
If a(i, 4) = "معلم" And a(i, 6) = "لغة عربية" Then
wsT.Range("B" & sRow).Value = a(i, 1)
wsT.Range("C" & sRow).Value = a(i, 2)
wsT.Range("D" & sRow).Value = a(i, 6)
sRow = sRow + 1
End If
Next i
End With
Application.ScreenUpdating = True

MsgBox "Done...", 64
End Sub
 
 
  Files Excel-Egy.rar   تحميل rar مرات التحميل :(17)
الحجم :(300.384) KB


أثارت هذه المشاركة إعجاب: morestudy، ali mohamed ali،




20-04-2019 02:48 مساء
مشاهدة مشاركة منفردة [11]
morestudy
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 09-09-2017
رقم العضوية : 434
المشاركات : 14
الجنس : أنثى
تاريخ الميلاد : 1-10-1970
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 2
 offline 
look/images/icons/i1.gif ترحيل من شيت غلى أخرى بشروط
السلام عليكم أستاذي الكريم ياسر142 أشكرك جزيل الشكر. بارك الله فيك.3 لقد اطلعت على العمل وكان رائعاً لست أدري كيف أوفيك حقك من الشكر سوى بالدعاء لك بأن يحقق الله لك ما تصبو إليه. أستاذي لديّ استفسار: عندما طبقت العمل على ملفي الأصلي وهو نفس الملف الذي أرفقته لكم ولكن بالعدد الأصلي للقوى العاملة وتقريباً 1853 معلم الذي يحدث أنه: 1) يتم ترحيل الخلايا المدمجة فقط. حاولت تغيير النطاق والتعديلات التي تتناسب معه( .Range("B7biggrin280").ClearContents ) 2) لديّ مواد دراسية أخرى هل من الممكن أن أكرر الكود مرة أخرى الخاصة ب with واطبقه على بقية المواد الدراسية. أريد أيضاً أن أقوم  بترحيل كل طاقم مدرسة إلى حافظة دوامه الخاصة به. لأن هذا الترحيل يرحل القوى كاملة دون تمييز المدارس. أعرف أنني أطلب الكثير ولكن عشمي في مساعدتكم وكرمكم كبير. ومرة أخرى أشكرك جزيل الشكر.

أثارت هذه المشاركة إعجاب: YasserKhalil،




20-04-2019 04:04 مساء
مشاهدة مشاركة منفردة [12]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7234
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 410
قوة السمعة : 20696
الاعجاب : 1430
 offline 
look/images/icons/i1.gif ترحيل من شيت غلى أخرى بشروط
بارك الله فيكي أختي الكريمة ..
صراحةً لا أدري بالضبط شكل المخرجات المطلوبة .. هل سيكون هناك تحديد لمدرسة بعينها وإذا كان الأمر كذلك ما هي الخلية التي سيتحدد من خلالها هذه المدرسة ...؟
وهل الترحيل سيكون لورقة العمل "حافظة الدوام" كما فعلت ذلك في الملف المرفق أم أنه سيكون لورقة العمل الخاصة بالمدرسة
يرجى إرفاق نموذج لشكل المخرجات المطلوبة .. وقد أتأخر في الرد لأيام نظراً لظروف عملي







الكلمات الدلالية
بشروط ، أخرى ، ترحيل ،


 







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



الساعة الآن 10:27 مساء

أعلن هنا
أعلن هنا
أعلن هنا