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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


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



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





طلب فرز بينات جدول فرعي بناءا على أخر أساسي ؟

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



24-05-2019 10:13 صباحا
خيثر يعقوب
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-01-2018
رقم العضوية : 3839
المشاركات : 11
الدولة : الجزائر
الجنس : ذكر
تاريخ الميلاد : 1-1-1976
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 32
الاعجاب : 2
موقعي : زيارة موقعي
 offline 

أريد أن يكون جدول به القوائم على موقع الوزارة على حسب ترتيب القوائم في حاسوبي الشخصي مطابقة تماما و هو موضح في الشيت المرفق و تشكراتي لكم جميعا .
 
 
  خيثر.rar   تحميل rar مرات التحميل :(14)
الحجم :(11.703) KB







24-05-2019 05:10 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20906
الاعجاب : 1481
 offline 
look/images/icons/i1.gif طلب فرز بينات جدول فرعي بناءا على أخر أساسي ؟
السلام عليكم
يجب أن تكون البيانات متطابقة لكي تحصل على ما تريد
عموماً جرب الكود التالي عله يفي بالمطلوب إن شاء العلي القدير
Option Explicit

Dim ws As Worksheet

Sub Test()
Dim r1 As Range, r2 As Range

Application.ScreenUpdating = False
Set ws = ThisWorkbook.Worksheets(1)
Set r1 = ws.Range("A5:A" & ws.Cells(Rows.Count, 1).End(xlUp).Row)
Set r2 = ws.Range("D5:D" & ws.Cells(Rows.Count, 4).End(xlUp).Row)

r2.Resize(, 2).Replace "عبدال", "عبد ال", xlPart

r1.Offset(, 8).Value = Evaluate(r1.Address & "&"" - ""&" & r1.Offset(, 1).Address)
r2.Offset(, 3).Value = Evaluate(r2.Address & "&"" - ""&" & r2.Offset(, 1).Address)
ws.Range("G4").Value = "Helper"

With ws.Sort
.SortFields.Clear
.SortFields.Add ws.Range("G4"), CustomOrder:=KeyRange
.Header = xlYes
.SetRange ws.Range("D4").CurrentRegion
.Apply
.SortFields.Clear
End With

ws.Columns("G:I").ClearContents
Application.ScreenUpdating = True
End Sub

Function KeyRange() As String
Dim a, i As Integer

With ws
a = .Range("I5:I" & .Cells(Rows.Count, "I").End(xlUp).Row + 1).Value

For i = LBound(a, 1) To UBound(a, 1)
KeyRange = KeyRange & IIf(KeyRange <> "", ",", "") & a(i, 1)
Next i
End With
End Function

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




24-05-2019 07:43 مساء
مشاهدة مشاركة منفردة [2]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1212
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 52
قوة السمعة : 5717
الاعجاب : 715
 Online 
look/images/icons/i1.gif طلب فرز بينات جدول فرعي بناءا على أخر أساسي ؟
أحسنت استاذ ياسر بارك الله فيك

أثارت هذه المشاركة إعجاب: خيثر يعقوب،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


25-05-2019 09:23 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20906
الاعجاب : 1481
 offline 
look/images/icons/i1.gif طلب فرز بينات جدول فرعي بناءا على أخر أساسي ؟
أحسن الله إليك أخي الغالي علي ومشكور على حسن متابعتك

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




25-05-2019 01:27 مساء
مشاهدة مشاركة منفردة [4]
خيثر يعقوب
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-01-2018
رقم العضوية : 3839
المشاركات : 11
الدولة : الجزائر
الجنس : ذكر
تاريخ الميلاد : 1-1-1976
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 32
الاعجاب : 2
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif طلب فرز بينات جدول فرعي بناءا على أخر أساسي ؟
أخي العزيز علي محمحد جازاك الله عني خيرا لقد شكرت الأستاذ ياسر نياابة عني بارك الله فيك و بارك الله في الأستاذ ياسر على مايقدمه و نحن في العشر الأواخر فأسأل الله لكما الرحمات و الدرجات آمين .

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




26-05-2019 12:15 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20906
الاعجاب : 1481
 offline 
look/images/icons/i1.gif طلب فرز بينات جدول فرعي بناءا على أخر أساسي ؟
بارك الله فيك أخي الكريم والحمد لله أن تم المطلوب على خير
تقبل تحياتي

أثارت هذه المشاركة إعجاب: خيثر يعقوب،




28-05-2019 12:39 مساء
مشاهدة مشاركة منفردة [6]
مالك ماريه
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-12-2017
رقم العضوية : 2523
المشاركات : 552
الجنس : ذكر
تاريخ الميلاد : 13-3-1990
يتابعهم : 3
يتابعونه : 8
قوة السمعة : 869
الاعجاب : 108
 offline 
look/images/icons/i1.gif طلب فرز بينات جدول فرعي بناءا على أخر أساسي ؟
ما شاء الله عليك اخى واستاذى الحبيب الاستاذ ياسر حل رائع وجزاكم الله خير الجزاء ودمتم فى طاعة الله ومساعدة الاخرين

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




28-05-2019 05:53 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20906
الاعجاب : 1481
 offline 
look/images/icons/i1.gif طلب فرز بينات جدول فرعي بناءا على أخر أساسي ؟
وجزيت خيراً أخي العزيز وجيه ولك بمثل ما دعوت لي وزيادة

أثارت هذه المشاركة إعجاب: مالك ماريه، خيثر يعقوب،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
عرض بينات فى ليست بوكس OmarGad
3 287 YasserKhalil
كود لاستدعاء بينات فاتورة بيع moonlight
5 479 ali mohamed ali

الكلمات الدلالية
أساسي ، بناءا ، فرعي ، جدول ، بينات ،


 







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



الساعة الآن 08:03 مساء

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