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

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


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



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





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

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



06-10-2019 01:41 مساء
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 184
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 132
الاعجاب : 43
 Online 

السلام عليكم 

لدي مشكلة في كود الترحيل عند الضغط على الماكرو يعمل  دون وجود اي خطا  ولكن  لايحدث نقل للبيانات الى ورقة العمل  هذا الكود عمل معي مع نماذج اليوزرفورم  التي تحتوي على التيكست بوكس هنا في حالتي  يوجد معها الكومبوكس اتمنى عمل تعديل على الكود لتميزها   بتجاهل الصفوف الفارغة بعد الترحيل بحيث تصبح الفاتورة معباة دون وجود اي صفوف فارغة  لتسهيل العملية ارفق لكم الكود 
On Error Resume Next
  Dim My_sh As Worksheet
  Set My_sh = Worksheets("ورقة1")
  Dim Lastrow As Integer
  Dim i%
  Application.ScreenUpdating = False
  With My_sh
    Lastrow = .Cells(Rows.Count, 1).End(2).Row + 1
    .Range(.Cells(Lastrow - 1, 1), .Cells(Lastrow - 1, 7)).Copy
    .Cells(Lastrow, 1).PasteSpecial Paste:=xlPasteFormats
    For i = 1 To 7
      .Cells(Lastrow, i).Value = Me.Controls("TextBox" & "COMBOBOX" & i)
      Me.Controls("TextBox" & "COMBOBOX" & i) = ""
    Next
  End With
  Application.ScreenUpdating = True
  Application.CutCopyMode = False
  MsgBox "تم الترحيل"
 
 
  DATA.xls   تحميل xls مرات التحميل :(3)
الحجم :(60.416) KB







06-10-2019 03:14 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7800
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 418
قوة السمعة : 22567
الاعجاب : 2020
 offline 
look/images/icons/i1.gif مساعدة في مشكلة نقل بيانات من اليوزفورم الى الورقة
وعليكم السلام أخي الكريم
ممكن تفاصيل أكثر عن شكل النتائج المتوقعة ...

عند تتبع الكود فإن قيمة المتغير lastRow تساوي صفر 
جرب السطر التالي بدلاً من الموجود
Lastrow = .Cells(Rows.Count, 1).End(xlUp).Row + 1


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





06-10-2019 03:34 مساء
مشاهدة مشاركة منفردة [2]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 184
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 132
الاعجاب : 43
 Online 
look/images/icons/i1.gif مساعدة في مشكلة نقل بيانات من اليوزفورم الى الورقة
الصورة رقم 5  هي النتيجة النهائية مع ملاحظة حدف الصفوف الفارغة عند الترحيل 
 
  4.jpg   تحميل jpg 4.jpg مرات التحميل :(0)
الحجم :(47.147) KB
  5.jpg   تحميل jpg 5.jpg مرات التحميل :(0)
الحجم :(30.747) KB
 






06-10-2019 05:58 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7800
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 418
قوة السمعة : 22567
الاعجاب : 2020
 offline 
look/images/icons/i1.gif مساعدة في مشكلة نقل بيانات من اليوزفورم الى الورقة
أخي الكريم

جرب الكود التالي عله يفي بالغرض (رغم أن التصميم لابد أن يكون أيسر ليسهل عليك كتابة الأكواد على الفورم)

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

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




06-10-2019 07:48 مساء
مشاهدة مشاركة منفردة [4]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 184
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 132
الاعجاب : 43
 Online 
look/images/icons/i1.gif مساعدة في مشكلة نقل بيانات من اليوزفورم الى الورقة
اخي ياسر شكرا على الكود ولكن هناك جزئية سبق ان دكرتها عند عملية الترحيل   لا اريد اي صفوف فارغة  فقد  صفوف الاصناف التي اقوم بادخالها وصف الاجمالي 





06-10-2019 08:06 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7800
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 418
قوة السمعة : 22567
الاعجاب : 2020
 offline 
look/images/icons/i1.gif مساعدة في مشكلة نقل بيانات من اليوزفورم الى الورقة
الكود مجرب ولا يترك أي فراغات على الإطلاق

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





06-10-2019 08:56 مساء
مشاهدة مشاركة منفردة [6]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 184
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 132
الاعجاب : 43
 Online 
look/images/icons/i1.gif مساعدة في مشكلة نقل بيانات من اليوزفورم الى الورقة
اخي ياسر لقد قمت بنسخ كودك ولصقة  في زر الترحيل باليوزرفورم وهذه النتيجة كما تلاحظ 
 
  KK.jpg   تحميل jpg KK.jpg مرات التحميل :(0)
الحجم :(32.507) KB
 






06-10-2019 10:05 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7800
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 418
قوة السمعة : 22567
الاعجاب : 2020
 offline 
look/images/icons/i1.gif مساعدة في مشكلة نقل بيانات من اليوزفورم الى الورقة
الصورة لا توضح مشكلة فعملية الترحيل تمت كما بالصورة ولا يوجد صفوف فارغة بين البيانات المرحلة





06-10-2019 10:28 مساء
مشاهدة مشاركة منفردة [8]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 184
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 132
الاعجاب : 43
 Online 
look/images/icons/i1.gif مساعدة في مشكلة نقل بيانات من اليوزفورم الى الورقة
انا قصدت الصفوف بعد الصنفين مباشرة  وليس بين الصنفين  اي من الصف الرابع الى الصف ما قبل الاجمالي كما في الصورة 





07-10-2019 05:11 صباحا
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7800
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 418
قوة السمعة : 22567
الاعجاب : 2020
 offline 
look/images/icons/i1.gif مساعدة في مشكلة نقل بيانات من اليوزفورم الى الورقة
هل تريد حذف الصفوف أم إخفاء الصفوف؟
ولماذا تريد ذلك ..!!





07-10-2019 06:19 صباحا
مشاهدة مشاركة منفردة [10]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 184
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 132
الاعجاب : 43
 Online 
look/images/icons/i1.gif مساعدة في مشكلة نقل بيانات من اليوزفورم الى الورقة
اخفاء  الصفوف سيكون افضل خير من حدفها  اريدها حتى يتم  تخزين الفاتورة  بدون اي صفوف فارغة   ولكن هناك جزئية اخشى عندما اخفي الصفوف عند القيام بعملية جديدة  يتم الترحيل بون التنسيقات التي تسبق الصفوف المخفاة 





07-10-2019 06:44 صباحا
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7800
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 418
قوة السمعة : 22567
الاعجاب : 2020
 offline 
look/images/icons/i1.gif مساعدة في مشكلة نقل بيانات من اليوزفورم الى الورقة
قم بتسجيل ماكرو لتعرف كيفية إخفاء الصفوف فهذا أمر بسيط ويمكنك لتجنب أي مشاكل إضافة سطر في بداية الكود لإظهار الصفوف المخفية ، بحيث يتعامل الكود مع الصفوف بشكل عادي ثم في نهاية الكود يقوم بإخفاء الصفوف الفارغة ..
حاول بنفسك






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
حل مشكلة الخلايا الفارغة مع الدالة VLOOKUP علي الرويلي
2 12 علي الرويلي
حل مشكلة ظهور الكلمات معكوسة عند طباعة بيان من مواقع وزارة التربية والتعليم Yasser Elaraby
22 882 ramous90
ظهور مشكلة لملف يعمل على بعض الأجهزة ولا يعمل على البعض الأخر a.kawkab
12 68 YasserKhalil
حل مشكلة الطباعة من موقع وزارة التربية والتعليم بمصر EMIS MOE Araby Browser YasserKhalil
5 269 YasserKhalil
مشكلة اللغة العربية وظهور رموز غريبة بودى مورا
8 3375 YasserKhalil

الكلمات الدلالية
مساعدة ، مشكلة ، بيانات ، اليوزفورم ، الورقة ،


 







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



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

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