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

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


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


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





طلب عمل كود ترحيل حسب الاسم والتاريخ

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



02-11-2019 06:46 مساء
الرحال
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-11-2019
رقم العضوية : 15642
المشاركات : 11
الجنس : ذكر
تاريخ الميلاد : 1-1-1980
قوة السمعة : 18
الاعجاب : 0
 offline 
لسلام عليكم ورحمة الله وبركاته ارجو المساعدة في اضافة كود ترحيل حسب اسم الصفحة وحسب التاريخ في الشيت الذي يخصه وبارك الله فيكم
 
 
  الاحصائية لعمل النوبات.xlsm   تحميل xlsm مرات التحميل :(14)
الحجم :(98.03) KB





02-11-2019 08:04 مساء
مشاهدة مشاركة منفردة [1]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 479
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 3719
الاعجاب : 23
 offline 
look/images/icons/i1.gif طلب عمل كود ترحيل حسب الاسم والتاريخ
 في الخلية A10 هذه المعادلة واسحب يميناً 7 أعمدة و نزولاً قدر ما تشاء

=INDIRECT("'نوبة" &" "&$C$2&"'!"&CHAR(64+COLUMNS($A$1:A1))&ROWS($A$1:A5))

الملف مرفق
 
 
 
  EHSAA3.xlsm   تحميل xlsm مرات التحميل :(7)
الحجم :(105.66) KB





02-11-2019 08:25 مساء
مشاهدة مشاركة منفردة [2]
الرحال
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-11-2019
رقم العضوية : 15642
المشاركات : 11
الجنس : ذكر
تاريخ الميلاد : 1-1-1980
قوة السمعة : 18
الاعجاب : 0
 offline 
look/images/icons/i1.gif طلب عمل كود ترحيل حسب الاسم والتاريخ
الله يعطيك العافية 

هذا كود بحث 

المطلوب هو في الصفحة الرئيسية جدول سطر واحد 
اكتب فيه التاريخ والقيم ثم اضغط على الترحيل وبعدها يتم الترحيل الى الصفحة النوبة ومقابل التاريخ المحدد 

يعني نقل البيانات من الصفحة الرئيسية الى الصفحات المحددة 

واشكرك على تفاعلك معي ورزقك الله في الدنيا والاخرة 
 




02-11-2019 08:58 مساء
مشاهدة مشاركة منفردة [3]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 479
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 3719
الاعجاب : 23
 offline 
look/images/icons/i1.gif طلب عمل كود ترحيل حسب الاسم والتاريخ
جرب هذا الكود  (يمكنك كتابة ما تشاء في الجدول وليس بالضروري سطر واحد)

Option Explicit

Sub transfer_data()
Dim Source_sh As Worksheet
Dim Target_sh As Worksheet
Dim last_ro%, N_ro%
Set Source_sh = Sheets("ورقة1")
last_ro = Source_sh.Cells(Rows.Count, 3).End(3).Row
If last_ro < 10 Then Exit Sub
Select Case Source_sh.Range("c2")
  Case "أ": Set Target_sh = Sheets("نوبة أ")
  Case "ب": Set Target_sh = Sheets("نوبة ب")
  Case "ج": Set Target_sh = Sheets("نوبة ج")
  Case "د": Set Target_sh = Sheets("نوبة د")
  Case "ه": Set Target_sh = Sheets("نوبة ه")
  Case "و": Set Target_sh = Sheets("نوبة و")
End Select

 N_ro = Target_sh.Cells(Rows.Count, 1).End(3).Row + 1
 Target_sh.Range("a" & N_ro).Resize(last_ro - 9, 6).Value = _
 Source_sh.Range("B10").Resize(last_ro - 9, 6).Value

End Sub


الملف مرفق

 
 
 
  EHSAA3_1.rar   تحميل rar مرات التحميل :(16)
الحجم :(79.32) KB





02-11-2019 08:58 مساء
مشاهدة مشاركة منفردة [4]
ابراهيم الحداد
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 161
الجنس : ذكر
الدعوات : 1
قوة السمعة : 1353
الاعجاب : 4
 offline 
look/images/icons/i1.gif طلب عمل كود ترحيل حسب الاسم والتاريخ
السلام عليكم ورحمة الله
استخدم هذا الكود
Sub SelSheet()
Dim ws As Worksheet, Sh As Worksheet
Dim ShNam As String, C As Range, Dat As String
Set ws = Sheets("ورقة1")
ShNam = ws.Range("C2")
Dat = ws.Range("B10")
Set Sh = Sheets("نوبة" & " " & ShNam)
ws.Range("B10:F10").Copy
For Each C In Sh.Range("B4:B1000")
Sh.Activate
If C.Value = Dat Then
C.PasteSpecial xlPasteValues
End If
Exit For
Next
Application.CutCopyMode = False

End Sub




02-11-2019 11:44 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8555
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25169
الاعجاب : 53
 offline 
look/images/icons/i1.gif طلب عمل كود ترحيل حسب الاسم والتاريخ
بارك الله فيكم إخواني وجزيتم خيراً على الحلول الرائعة

لإثراء الموضوع هذا حل آخر

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




02-11-2019 11:59 مساء
مشاهدة مشاركة منفردة [6]
الرحال
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-11-2019
رقم العضوية : 15642
المشاركات : 11
الجنس : ذكر
تاريخ الميلاد : 1-1-1980
قوة السمعة : 18
الاعجاب : 0
 offline 
look/images/icons/i1.gif طلب عمل كود ترحيل حسب الاسم والتاريخ
جزاك الله خير على تفاعلكم ورزقكم من حيث لا تحتسبون 




03-11-2019 12:38 صباحا
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8555
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25169
الاعجاب : 53
 offline 
look/images/icons/i1.gif طلب عمل كود ترحيل حسب الاسم والتاريخ
وجزيت خيراً أخي الكريم الرحال

أما آن للرحال أن يستقر في المنتدى ويكف عن الترحال ؟! smile

الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات




03-11-2019 11:31 صباحا
مشاهدة مشاركة منفردة [8]
الرحال
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-11-2019
رقم العضوية : 15642
المشاركات : 11
الجنس : ذكر
تاريخ الميلاد : 1-1-1980
قوة السمعة : 18
الاعجاب : 0
 offline 
look/images/icons/i1.gif طلب عمل كود ترحيل حسب الاسم والتاريخ
السلام عليكم ورحمة الله وبركاته 

الرابط يحولني لموقع يظهر الكمبيوتر انه في فايرس تم فتح ولكن يوجد رموز كثيرة جداً 
ياليت ترفع على موقع اخر 




03-11-2019 01:14 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8555
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25169
الاعجاب : 53
 offline 
look/images/icons/i1.gif طلب عمل كود ترحيل حسب الاسم والتاريخ
وعليكم السلام أخي الكريم
إليك الرابط المباشر
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب




03-11-2019 05:15 مساء
مشاهدة مشاركة منفردة [10]
الرحال
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-11-2019
رقم العضوية : 15642
المشاركات : 11
الجنس : ذكر
تاريخ الميلاد : 1-1-1980
قوة السمعة : 18
الاعجاب : 0
 offline 
look/images/icons/i1.gif طلب عمل كود ترحيل حسب الاسم والتاريخ
السلام عليكم ورحمة الله وبركاته 

اشكرك اخي على مجهوداتك 

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

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




03-11-2019 06:59 مساء
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8555
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25169
الاعجاب : 53
 offline 
look/images/icons/i1.gif طلب عمل كود ترحيل حسب الاسم والتاريخ
أخي الكريم
لا أفهم ماذا فعلت وكيف رفض .......!!
من المفترض أن الأمر بغاية البساطة

تفتح الملف الخاص بك
تضغط Alt+ F11 للدخول لمحرر الأكواد
من قائمة Insert اختر Module
وضع الكود ...

لتنفيذ الكود من ورقة العمل اضغط Alt + F8 واختر اسم الكود وانقر Run

عموماً إليك الملف المرفق 

وإليك رابط فيديو هام جداً للتعامل مع البدايات
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  الاحصائية لعمل النوبات.xlsm   تحميل xlsm مرات التحميل :(9)
الحجم :(103.926) KB





03-11-2019 10:49 مساء
مشاهدة مشاركة منفردة [12]
الرحال
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-11-2019
رقم العضوية : 15642
المشاركات : 11
الجنس : ذكر
تاريخ الميلاد : 1-1-1980
قوة السمعة : 18
الاعجاب : 0
 offline 
look/images/icons/i1.gif طلب عمل كود ترحيل حسب الاسم والتاريخ

ما اقول الا الله يرزقك من حيث لا تحتسب ويعطيك حتى يرضيك 

انت عملت الي انا ابيه بالضبط 

شكراً  






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
ترحيل الغيابات إلى سجل الغيابات حسب الحصص chardoneret
9 526 YasserKhalil
ترحيل الرقم حسب عدد مراتبه اسامة محمد
12 323 YasserKhalil
الترحيل المبعثر حسب اسم الصفحه عبدالرحمن صبحى
19 674 محمود ابو الدهب
كيفية عمل تصفية للبيانات حسب قيمة خلية أو ترحيل البيانات حسب قيمة الخلية Hatem Eissa
26 4926 morestudy
ترحيل الفواتير حسب اسم الشهر ali mohamed ali
17 1468 ali mohamed ali

الكلمات الدلالية
ترحيل ، الاسم ، والتاريخ ،


 







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

الساعة الآن 01:21 صباحا

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