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

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


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





طلب مساعدة في تعديل كود

لسادة اعضاء المنتدي الكرام مطلوب مساعدة في تعديل كود ترحيل من شيت 2(طلب جديد) الي شيت (طلبات الشراء) بحيث يتم ترحيل كل ط ..



06-04-2022 11:02 صباحا
ahmed89
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 23-03-2022
رقم العضوية : 24046
المشاركات : 2
الجنس : ذكر
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 10
 offline 

لسادة اعضاء المنتدي الكرام
مطلوب مساعدة في تعديل كود ترحيل من شيت 2(طلب جديد) الي شيت (طلبات الشراء) بحيث يتم ترحيل كل طلب الي الصف التالي وعند دخول اي طلب مرحلة التخليص يتم ترحيله الي شيت (طلبات تحت التخليص)
* وكيف يتم ترحيل من النطاق (g12:g17) دفعة واحدة الي شيت (طلبات الشراء)؟؟

خالص الشكر
الكود المستخدم

Sub tarheel()
Dim supplyername As String, orgin As String, purchasorder As Variant, d As Date, invoice As String, v As Variant, q As Variant, u As Variant, up As Variant, c As Variant, t As Variant, method As String
Dim itemname As Variant
supplyername = Worksheets("طلب جديد").Range("h4").Value
orgin = Worksheets("طلب جديد").Range("h6").Value
purchasorder = Worksheets("طلب جديد").Range("h8").Value
d = Worksheets("طلب جديد").Range("m4").Value
invoice = Worksheets("طلب جديد").Range("n7").Value
itemname = Worksheets("طلب جديد").Range("g12:g17").Value
v = Worksheets("طلب جديد").Range("j12:j17").Value
q = Worksheets("طلب جديد").Range("k12:K17").Value
u = Worksheets("طلب جديد").Range("l12:l17").Value
up = Worksheets("طلب جديد").Range("m12:m17").Value
c = Worksheets("طلب جديد").Range("n12:n17").Value
t = Worksheets("طلب جديد").Range("o12:o17").Value
method = Worksheets("طلب جديد").Range("k19").Value

Worksheets("طلبات الشراء").Range("a6:a6").Value = itemname
Worksheets("طلبات الشراء").Range("b6:b6").Value = v
Worksheets("طلبات الشراء").Range("c6:c6").Value = supplyername
Worksheets("طلبات الشراء").Range("d6:d6").Value = orgin
Worksheets("طلبات الشراء").Range("e6:e6").Value = purchasorder
Worksheets("طلبات الشراء").Range("f6:f6").Value = invoice
Worksheets("طلبات الشراء").Range("g6:g6").Value = d
Worksheets("طلبات الشراء").Range("h6:h6").Value = q
Worksheets("طلبات الشراء").Range("i6:i6").Value = u
Worksheets("طلبات الشراء").Range("j6:j6").Value = up
Worksheets("طلبات الشراء").Range("m6:m6").Value = t
Worksheets("طلبات الشراء").Range("n6:n6").Value = c
Worksheets("طلبات الشراء").Range("o6:o6").Value = method

End Sub
 
 
  11111.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(764.266) KB





الكلمات الدلالية
مساعدة ، تعديل ،


 










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

الساعة الآن 07:23 صباحا