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

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


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


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





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

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



27-10-2019 02:32 مساء
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 220
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 165
الاعجاب : 58
 offline 
السلام عليكم 
لدي برنامج اقوم بتصميمه  المشكلة واجهتني في ترحيل بيانات الفاتورة من اليوزفورم  الى الشيت   في الملف المرفق انا اتحدث عن ورقة العمل4 واليوزرفورم 3    حيث عند تشغيل الكود يعمل  ولكن  لا يوجد اي بيانات ترحل   اتمنى   معرفة السبب   لانه نفس  الكود يعمل مع اليوزرفورم 1و2  كما اريد   معالجة هذا  الكود  وعدم استبداله بكود اخر  لانه ميزة هذا  الكود  يقوم  بتعبئة  البيانات  وترحيلها  الى الشيت  دون  ابقاء اي صفوف فارغة 
 
 
  vv1.xlsm   تحميل xlsm مرات التحميل :(10)
الحجم :(496.617) KB





27-10-2019 08:36 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8424
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 440
قوة السمعة : 24568
الاعجاب : 2767
 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
المشاركات : 220
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 165
الاعجاب : 58
 offline 
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
المشاركات : 8424
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 440
قوة السمعة : 24568
الاعجاب : 2767
 offline 
look/images/icons/i1.gif مساعدة في تعديل كود ترحيل بيانات فاتورة من اليوزرفورم الى الشيت
ممكن ترفق صورة بشكل المشكلة .. ما المتوقع بعد عملية الترحيل بالضبط؟
وكيف يعمل الكود على ورقة أخرى بنفس الفورم أو بنفس التصميم ولا يعمل على ورقة أخرى ..؟ طالما نفس الكود وقمت فقط بتغيير الإشارة لورقة العمل من المفترض أن يعمل بدون مشاكل .. الرجاء الإشارة إلى أداة معينة في الفورم وإلى أين يتم ترحيلها .. للتجربة على الملف

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




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

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





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

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



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




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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طلب تعديل فى كود ترحيل و كود بحث mo7amed.2017
1 64 mo7amed.2017
تعديل على ملف اكسيل واضافة تحصيلات ومعرفة حسابات العملاء luka
2 74 YasserKhalil
تعديل كود لايعمل a.kawkab
3 86 a.kawkab
تعديل الكود mostah
4 85 YasserKhalil
تعديل عمل أزرار خيارات النقل والنسخ شبل
8 259 شبل

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


 







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

الساعة الآن 04:51 مساء

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