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

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


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



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





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

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



27-10-2019 02:32 مساء
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 213
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 148
الاعجاب : 51
 Online 

السلام عليكم 
لدي برنامج اقوم بتصميمه  المشكلة واجهتني في ترحيل بيانات الفاتورة من اليوزفورم  الى الشيت   في الملف المرفق انا اتحدث عن ورقة العمل4 واليوزرفورم 3    حيث عند تشغيل الكود يعمل  ولكن  لا يوجد اي بيانات ترحل   اتمنى   معرفة السبب   لانه نفس  الكود يعمل مع اليوزرفورم 1و2  كما اريد   معالجة هذا  الكود  وعدم استبداله بكود اخر  لانه ميزة هذا  الكود  يقوم  بتعبئة  البيانات  وترحيلها  الى الشيت  دون  ابقاء اي صفوف فارغة 
 
 
  vv1.xlsm   تحميل xlsm مرات التحميل :(7)
الحجم :(496.617) KB







27-10-2019 08:36 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8167
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 428
قوة السمعة : 23793
الاعجاب : 2466
 offline 
look/images/icons/i1.gif مساعدة في تعديل كود ترحيل بيانات فاتورة من اليوزرفورم الى الشيت
وعليكم السلام
جرب استبدال هذين السطرين
 Range("b20") = TextBox9.Text
 Range("c20") = TextBox10.Text


بهذين السطرين
 My_sh.Range("b20") = TextBox9.Text
 My_sh.Range("c20") = TextBox10.Text


حيث يجب الإشارة لورقة العمل المراد الترحيل إليها

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




27-10-2019 08:50 مساء
مشاهدة مشاركة منفردة [2]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 213
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 148
الاعجاب : 51
 Online 
look/images/icons/i1.gif مساعدة في تعديل كود ترحيل بيانات فاتورة من اليوزرفورم الى الشيت
اخي  ياسر  شكرا على ردك  ولكن  الذي  تتحدث عنه منفصل تمام عن الكود  الذي يجب  ان يعمل   المشكلة في هذا الكود 
On Error Resume Next
  Dim My_sh As Worksheet
  Set My_sh = Worksheets("ورقة4")
  Dim Lastrow As Integer
  Dim i%
  Application.ScreenUpdating = False
  With My_sh
    Lastrow = .Cells(Rows.Count, 1).End(3).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 "تم الترحيل "


على الرغم من ذلك قمت بالتغيير  ولم يحدث شيء 





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

أمر آخر يوجد في الكود سطر On Error Resume Next قم بإزالة هذا السطر لمحاولة ايجاد الخطأ في الكود والوقوف عليه ،فقد يظهر لك سطر باللون الأصفر قم بنسخه بحيث نعرف المشكلة في أي سطر.





28-10-2019 08:53 صباحا
مشاهدة مشاركة منفردة [4]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 213
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 148
الاعجاب : 51
 Online 
look/images/icons/i1.gif مساعدة في تعديل كود ترحيل بيانات فاتورة من اليوزرفورم الى الشيت
المشكلة يا اخي  ي انه  لا يوجد خطا  فعند تشغيل الماكرو يظهر انه يعمل  ولكن عند الذهاب الى الورقة   لا يوجد اي بيان مرحل    طريقة عمل  الكود  في اليوزرفورم الاخر  هو   يقوم  بنسخ  نفس  التنسيق  في الصف الذي  يسبقه  عند ترحيل  البيان    بحيث  لا يكون هناك اي صف   يكون خالي من البيانات  فقط بيانات معباة   لقد قمت بالتغيير وظهر هذا الخطا 

 
 
  er.jpg   تحميل jpg er.jpg مرات التحميل :(1)
الحجم :(13.734) KB
  er1.jpg   تحميل jpg er1.jpg مرات التحميل :(0)
الحجم :(15.365) KB
 






28-10-2019 09:12 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8167
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 428
قوة السمعة : 23793
الاعجاب : 2466
 offline 
look/images/icons/i1.gif مساعدة في تعديل كود ترحيل بيانات فاتورة من اليوزرفورم الى الشيت
احذف علامة & والجزء الذي يليها وهو "Combobox" .... أعتقد هذا هو سبب المشكلة

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




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





28-10-2019 10:42 صباحا
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8167
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 428
قوة السمعة : 23793
الاعجاب : 2466
 offline 
look/images/icons/i1.gif مساعدة في تعديل كود ترحيل بيانات فاتورة من اليوزرفورم الى الشيت
سأحاول الإطلاع على الملف في أقرب وقت حيث أن جهازي به مشكلة في الوقت الحالي ...






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
مطلوب تعديل على كود للوقوف على ورقة معينة صلاح الصغير
8 48 YasserKhalil
ليست بوكس تعديل طريقة البحث Fadel
2 48 Fadel
مساعدة في تعديل كود لطريقة تعديل عرض التواريخ في الليست بوكس المبتدأ
3 33 YasserKhalil
التعديل على كود الإدراج الموجود في الفورم رقم 1 ayman_2000
2 54 ayman_2000
تعديل كود ضبط اظهار رسالة التحذير المبتدأ
5 66 YasserKhalil

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


 







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



الساعة الآن 09:57 صباحا

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