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

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


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


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





طلب تعديل فى كود ترحيل و كود بحث

بالنسبة لكود البحث وضعته فى مودويل و اريد وضعه فى حدث الصفحة ليعمل تلقائيا ... وايضا اريد عمل حلقه تكرارية به لانى قمت ..



12-01-2020 09:51 مساء
mo7amed.2017
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 12-01-2020
رقم العضوية : 17584
المشاركات : 3
الجنس : ذكر
تاريخ الميلاد : 17-11-1984
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 12
الاعجاب : 1
 offline 
بالنسبة لكود البحث وضعته فى مودويل و اريد وضعه فى حدث الصفحة ليعمل تلقائيا ... 
وايضا اريد عمل حلقه تكرارية به لانى قمت بنسخه اكتر من مرة و اعلم ان هذا خطأ 

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





20-01-2020 08:27 صباحا
مشاهدة مشاركة منفردة [1]
mo7amed.2017
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 12-01-2020
رقم العضوية : 17584
المشاركات : 3
الجنس : ذكر
تاريخ الميلاد : 17-11-1984
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 12
الاعجاب : 1
 offline 
look/images/icons/i1.gif طلب تعديل فى كود ترحيل و كود بحث
هل من مجيب ؟




21-01-2020 04:43 مساء
مشاهدة مشاركة منفردة [2]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 19
قوة السمعة : 3472
الاعجاب : 328
 offline 
look/images/icons/i1.gif طلب تعديل فى كود ترحيل و كود بحث
جرب هذا الكود
الاكواد الباقية يمكن كتابتها على هذا النحو

Sub SALIM_CODE()
  Dim F As Worksheet, F1 As Worksheet
  Dim F2 As Worksheet, F3 As Worksheet
  Dim OP_sh As Worksheet
  Dim lr%, my_max%
  Dim Rg_To_Copy As Range
  
Set F = Sheets("الفاتورة"): Set F1 = Sheets("فاتورة مشتريات")
Set F2 = Sheets("فاتورة مبيعات"): Set F3 = Sheets("فاتورة اجل")
If F.Range("e3") = "" Then _
MsgBox ("من فضلك اختر نوع الفاتورة"): Exit Sub
 
 Select Case F.Range("e3")
  Case F1.Name: Set OP_sh = F1
  Case F2.Name: Set OP_sh = F2
  Case F3.Name: Set OP_sh = F3
End Select
Set Rg_To_Copy = F.Range("a6").CurrentRegion
my_max = Rg_To_Copy.Rows.Count
If my_max = 1 Then _
MsgBox "لا يوجد بيانات لنقلها": Exit Sub

Set Rg_To_Copy = Rg_To_Copy.Offset(1).Resize(my_max - 1)
lr = OP_sh.Cells(Rows.Count, 1).End(3).Row + 1
OP_sh.Cells(lr, "G").Resize(my_max - 1, 4).Value = _
Rg_To_Copy.Value
Rg_To_Copy.Columns(1).Resize(, 4).ClearContents
Application.ScreenUpdating = True

End Sub


 


تم تحرير المشاركة بواسطة :salim
بتاريخ:21-01-2020 04:47 مساء







المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تعديل على ملف اكسيل واضافة تحصيلات ومعرفة حسابات العملاء luka
2 75 YasserKhalil
تعديل كود لايعمل a.kawkab
3 94 a.kawkab
تعديل الكود mostah
4 88 YasserKhalil
تعديل عمل أزرار خيارات النقل والنسخ شبل
8 267 شبل
تعديل علي الملف ابو هادي
2 122 ابو هادي

الكلمات الدلالية
تعديل ، ترحيل ،


 







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

الساعة الآن 06:29 مساء

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