الاستاذ مجدى
مطلوب ترحيل بيانات غير مرتبة 613623
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا مطلوب ترحيل بيانات غير مرتبة 829894
ادارة المنتدي مطلوب ترحيل بيانات غير مرتبة 103798

مطلوب ترحيل بيانات غير مرتبة Uoou_u10





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


شاطر
 

 مطلوب ترحيل بيانات غير مرتبة

اذهب الى الأسفل 
كاتب الموضوعرسالة
usamafb



عدد المساهمات : 3
تاريخ التسجيل : 12/12/2017

مطلوب ترحيل بيانات غير مرتبة Empty
مُساهمةموضوع: مطلوب ترحيل بيانات غير مرتبة   مطلوب ترحيل بيانات غير مرتبة Avatarالثلاثاء ديسمبر 12, 2017 10:07 am

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

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

مرفق ملف به مثال لما أريد
حمل الملف
و شكرا مسبقا لمساعدتى


عدل سابقا من قبل usamafb في الأربعاء ديسمبر 13, 2017 7:49 pm عدل 3 مرات
الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 2820
تاريخ التسجيل : 22/02/2013
العمر : 65

مطلوب ترحيل بيانات غير مرتبة Empty
مُساهمةموضوع: رد: مطلوب ترحيل بيانات غير مرتبة   مطلوب ترحيل بيانات غير مرتبة Avatarالثلاثاء ديسمبر 12, 2017 10:55 pm

جرب هل هذا المطلوب

[url= https://mega.nz/#!ojJyGQRC!xV-DIY-SBms3wTtC1ktnZrM91Fho37Y0ejmtctIweNM]حمل الملف[/url]

_________________
مطلوب ترحيل بيانات غير مرتبة Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
usamafb



عدد المساهمات : 3
تاريخ التسجيل : 12/12/2017

مطلوب ترحيل بيانات غير مرتبة Empty
مُساهمةموضوع: رد: مطلوب ترحيل بيانات غير مرتبة   مطلوب ترحيل بيانات غير مرتبة Avatarالأربعاء ديسمبر 13, 2017 8:26 am

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

عدد المساهمات : 2820
تاريخ التسجيل : 22/02/2013
العمر : 65

مطلوب ترحيل بيانات غير مرتبة Empty
مُساهمةموضوع: رد: مطلوب ترحيل بيانات غير مرتبة   مطلوب ترحيل بيانات غير مرتبة Avatarالخميس ديسمبر 14, 2017 4:53 am

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

Sub abo_dahab()
Dim Sh      As Worksheet
Dim lc      As Long
Dim lr      As Long
Dim k       As Long
Dim c       As Range
Dim  arr
'----------------------------------
Set Sh = Sheet1
lc = Sh.Cells(2, Sh.Columns.Count).End(xlToLeft).Column
lr = Sh.Cells(Sh.Rows.Count, 2).End(xlUp).Row
Sh.Range("a31:i" & lr + 1).ClearContents
'----------------------------------
Application.ScreenUpdating = False
For Each c In Sh.Range(Sh.Cells(1, 1), Sh.Cells(1, lc))
   If c.Value <> "" Then
         k = c.Column
         lr = Sh.Cells(Sh.Rows.Count, 2).End(xlUp).Row
         arr = Sh.Range(Sh.Cells(3, k), Sh.Cells(22, k + 7)).Value
         Sh.Range("a" & lr + 1).Value = c.Value
         Sh.Cells(lr, 2)(2, 1).Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr

   End If
Next c
Erase arr
End Sub

او حمل الملف
الملف

_________________
مطلوب ترحيل بيانات غير مرتبة Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
usamafb



عدد المساهمات : 3
تاريخ التسجيل : 12/12/2017

مطلوب ترحيل بيانات غير مرتبة Empty
مُساهمةموضوع: رد: مطلوب ترحيل بيانات غير مرتبة   مطلوب ترحيل بيانات غير مرتبة Avatarالخميس ديسمبر 14, 2017 8:09 am

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

عدد المساهمات : 2820
تاريخ التسجيل : 22/02/2013
العمر : 65

مطلوب ترحيل بيانات غير مرتبة Empty
مُساهمةموضوع: رد: مطلوب ترحيل بيانات غير مرتبة   مطلوب ترحيل بيانات غير مرتبة Avatarالخميس ديسمبر 14, 2017 9:14 pm

اى خدمة

_________________
مطلوب ترحيل بيانات غير مرتبة Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
ادريس



عدد المساهمات : 18
تاريخ التسجيل : 24/09/2019

مطلوب ترحيل بيانات غير مرتبة Empty
مُساهمةموضوع: رد: مطلوب ترحيل بيانات غير مرتبة   مطلوب ترحيل بيانات غير مرتبة Avatarالجمعة أكتوبر 04, 2019 1:20 am

شكرا استاذى الفاضل
الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 2820
تاريخ التسجيل : 22/02/2013
العمر : 65

مطلوب ترحيل بيانات غير مرتبة Empty
مُساهمةموضوع: رد: مطلوب ترحيل بيانات غير مرتبة   مطلوب ترحيل بيانات غير مرتبة Avatarالجمعة أكتوبر 04, 2019 4:20 am

اى خدمة

_________________
مطلوب ترحيل بيانات غير مرتبة Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
 
مطلوب ترحيل بيانات غير مرتبة
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
الاستاذ مجدى :: قسم مجموعة الاوفيس :: قسم الاكسل-
انتقل الى: