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

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


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



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





تعديل ملف اكسل ورشه سيارات

السادة الكرام المحترمين السلام عليكم ورحمة الله وبركاته لدي ملف اكسل اريد التعديل عليه وهو بدل الترحيل ..



06-12-2018 09:34 مساء
mmoqry
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 14-11-2017
رقم العضوية : 1594
المشاركات : 9
الجنس : ذكر
تاريخ الميلاد : 31-12-1988
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 0
 offline 

السادة الكرام               المحترمين

السلام عليكم ورحمة الله وبركاته

لدي ملف اكسل اريد التعديل عليه وهو بدل الترحيل لملف pdf اريده  ان يرحل الفاتورة كامله الى نفس صفحة العميل بدون تكرار رقم الفاتورة وان تكون جميع فواتير العميل في الشيت الخاص به وفي حال اردت إستدعاء فاتورة للتعديل عليها  اقوم بكتابة رقمها وجلبها للتعديل وإعادة ترحيلها لنفس الموقع ونفس الرقم للفاتورة 

وفي شيت المستخلص الشهري عند إختيار العميل يقوم بعمل مستخلص شهري له نفس البيانات المطلوبه في الملف المرفق

وأيضا ينطبق هذا على ملف سندات القبض

 

هذا ولكم جزيل الشكر والتقدير

 
 
  mmoqry __.rar   تحميل rar مرات التحميل :(7)
الحجم :(97.831) KB







09-12-2018 09:50 مساء
مشاهدة مشاركة منفردة [1]
mmoqry
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 14-11-2017
رقم العضوية : 1594
المشاركات : 9
الجنس : ذكر
تاريخ الميلاد : 31-12-1988
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 0
 offline 
look/images/icons/i1.gif تعديل ملف اكسل ورشه سيارات
للرفع
اتمنى مساعدتي





13-12-2018 07:23 مساء
مشاهدة مشاركة منفردة [2]
محمود ابو الدهب
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 853
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 58
يتابعهم : 6
يتابعونه : 196
قوة السمعة : 3048
الاعجاب : 15
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif تعديل ملف اكسل ورشه سيارات
برجاء عمل ملف مصغر وبه الكود مع شرح كامل لما تريد عمله لانى تهت السراحه وشكرا لك
 



توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


16-12-2018 12:05 مساء
مشاهدة مشاركة منفردة [3]
mmoqry
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 14-11-2017
رقم العضوية : 1594
المشاركات : 9
الجنس : ذكر
تاريخ الميلاد : 31-12-1988
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 0
 offline 
look/images/icons/i1.gif تعديل ملف اكسل ورشه سيارات
ابشر راح اعمل ملف ثاني  واقوم برفعه





18-12-2018 06:16 صباحا
مشاهدة مشاركة منفردة [4]
mmoqry
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 14-11-2017
رقم العضوية : 1594
المشاركات : 9
الجنس : ذكر
تاريخ الميلاد : 31-12-1988
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 0
 offline 
look/images/icons/i1.gif تعديل ملف اكسل ورشه سيارات
 
 
  الورشة.rar   تحميل rar مرات التحميل :(4)
الحجم :(47.066) KB






20-12-2018 11:20 مساء
مشاهدة مشاركة منفردة [5]
mmoqry
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 14-11-2017
رقم العضوية : 1594
المشاركات : 9
الجنس : ذكر
تاريخ الميلاد : 31-12-1988
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 0
 offline 
look/images/icons/i1.gif تعديل ملف اكسل ورشه سيارات
للرفع             





21-12-2018 01:26 صباحا
مشاهدة مشاركة منفردة [6]
محمود ابو الدهب
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 853
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 58
يتابعهم : 6
يتابعونه : 196
قوة السمعة : 3048
الاعجاب : 15
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif تعديل ملف اكسل ورشه سيارات
كبداية استخدم هذا الكود للترحيل

Sub abodahab_send()
Dim sh       As Worksheet
Dim ws       As Worksheet
Dim lr       As Long
Dim i        As Integer
Dim nm       As Integer

Application.ScreenUpdating = False

Set sh = Sheets("عمل فاتورة")
Set ws = Sheets("الفواتير المرحلة")


For i = 15 To 28
  If sh.Range("D" & i).Value <> "" Then
     nm = nm + 1
  End If
Next i

lr = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1

For i = 1 To nm
  ws.Range("a" & lr).Value = sh.Range("f9").Value
  ws.Range("b" & lr).Value = sh.Range("c12").Value
  ws.Range("c" & lr).Value = sh.Range("c13").Value
  ws.Range("d" & lr).Value = sh.Range("i11").Value
  ws.Range("e" & lr).Value = sh.Range("i12").Value
  ws.Range("f" & lr).Value = sh.Range("i13").Value
  ws.Range("g" & lr).Value = sh.Range("d" & i + 14).Value
  ws.Range("h" & lr).Value = sh.Range("f" & i + 14).Value
  ws.Range("i" & lr).Value = sh.Range("g" & i + 14).Value
  ws.Range("j" & lr).Value = sh.Range("f33").Value
  ws.Range("k" & lr).Value = sh.Range("f36").Value
  lr = lr + 1
  
Next i


MsgBox "تم الترحيل بنجاح "

Application.ScreenUpdating = True
End Sub


وان شاء الله اعملك الاستدعاء ورقم الفاتورة


تقبل تحياتى وتقديرى
 



توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


21-12-2018 01:54 صباحا
مشاهدة مشاركة منفردة [7]
محمود ابو الدهب
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 853
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 58
يتابعهم : 6
يتابعونه : 196
قوة السمعة : 3048
الاعجاب : 15
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif تعديل ملف اكسل ورشه سيارات
وهذا كود للاستدعاء 
مع العمل انه يجب ان تكتب رقم الفتورة التى تريد استدعائها في الخلية 

k2

ويمكنك تعديلها من الكود للخلية التى تناسبك ولكن لا تجعلها في f9 حيث ستعرف لماذا بنهاية تعليقي
وهذا هو الكود

Sub abodahab_back()
Dim sh       As Worksheet
Dim ws       As Worksheet
Dim lr       As Long
Dim rw       As Long
Dim x        As Long
Dim i        As Integer
Dim targt    As Integer
Dim myArray


Application.ScreenUpdating = False

Set sh = Sheets("عمل فاتورة")
Set ws = Sheets("الفواتير المرحلة")
    '___________________________________________
    lr = ws.Cells(Rows.Count, 1).End(xlUp).Row    'اخر صف به بيانات
    sh.Range("d15:g28").ClearContents    'مسح نطاق الفتوره القديم
    sh.Range("g29:g32").ClearContents
    targt = sh.Range("k2").Value    'خلية البحث
    myArray = ws.Range("A2:k" & lr)     'نطاق قاعدةالبيانات الذي سيتم البحث فيه
    '____________________________________________
    ReDim Y(1 To lr, 1 To 4)
    For x = 1 To lr - 1
        If Not IsNumeric(targt) Then Exit Sub
        If myArray(x, 1) = targt Then
            If i = 0 Then
                  sh.Range("f9").Value = myArray(x, 1)
                  sh.Range("c12").Value = Format(myArray(x, 2), "yyyy/mm/dd")
                  sh.Range("c13").Value = myArray(x, 3)
                  sh.Range("i11").Value = myArray(x, 4)
                  sh.Range("i12").Value = myArray(x, 5)
                  sh.Range("i13").Value = myArray(x, 6)
                  sh.Range("g29").Value = myArray(x, 10)
                  i = 1
            End If
            rw = rw + 1
            Y(rw, 1) = myArray(x, 7)
            Y(rw, 2) = ""
            Y(rw, 3) = myArray(x, 8)
            Y(rw, 4) = myArray(x, 9)
       End If
    Next x
    If rw > 0 Then sh.Cells(15, 4)(1, 1).Resize(rw, 4).Value = Y()


MsgBox "تم الاستعادة للبيانات بنجاح "

Application.ScreenUpdating = True
End Sub


وبالنسبة لرقم الفتورة في شيت عمل الفتورة يكفيك ان تضع بها معادلة بحيث تتغير اتوماتيكيات ولا يتم ادخال رقمها عن طريق المستخدم ضع المعادلىة التالية الخلية f9
=MAX('الفواتير المرحلة'!A2:A1048576)


وبالنسبة لحذف الصف ساقوم بعملها في وقت اخر
 



توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


21-12-2018 06:46 صباحا
مشاهدة مشاركة منفردة [8]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6326
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 391
قوة السمعة : 17415
الاعجاب : 311
 offline 
look/images/icons/i1.gif تعديل ملف اكسل ورشه سيارات
بارك الله فيك أخي العزيز محمود
يفضل أن تكون الموضوعات لطلب واحد فقط .. لأن المنتدى ليس خدمي إنما يجب أن يكون تعليمي في المقام الأول
للأسف معظم المطروح من موضوعات مسائل شخصية فقط ليس الغرض منها التعلم بقدر ما الغرض منها إنهاء أعمال شخصية وفقط
والله المستعان





21-12-2018 11:08 صباحا
مشاهدة مشاركة منفردة [9]
mmoqry
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 14-11-2017
رقم العضوية : 1594
المشاركات : 9
الجنس : ذكر
تاريخ الميلاد : 31-12-1988
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 0
 offline 
look/images/icons/i1.gif تعديل ملف اكسل ورشه سيارات
بارك الله فيك اخوي محمود على المساعده ورفع الله قدرك ورحم الله والديك
اخي الكريم ياسر
شاكر لك التوضيح
ولكن قسم بالله اني اتعلم من هذي المساعده اكثر من خدمتها لي 
ولكن قلت الخبره تجبرني انزل مشاركتي 
وان كان موضوعي مزعج فأرجو قبول إعتذاري 
وتقبل تحياتي





22-12-2018 09:20 صباحا
مشاهدة مشاركة منفردة [10]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6326
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 391
قوة السمعة : 17415
الاعجاب : 311
 offline 
look/images/icons/i1.gif تعديل ملف اكسل ورشه سيارات
بارك الله فيك أخي الكريم
المفترض أن الأعضاء يتفاعلون في طرح أسئلة والإجابة على أسئلة أعضاء آخرين
فيمكنك المساهمة بما تعلمته في توصيل معلومة للغير ..هذا ما أقصده






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
سلسلة دروس مستفادة عن فيجوال بيزك اكسل_ كاملة محمود الشريف
32 335 amesterdam123
كيفية عمل خطوط كوفى وايات قرانية فى الاكسل مجدى يونس
5 68 مجدى يونس
كيفية كتابة كلمة الله خط كوفى على الاكسل مجدى يونس
3 64 مجدى يونس
فورم الصادر والوارد اكسل مجدى يونس
22 519 مجدى يونس
سؤال بخصوص اكسل 2019 khaled alborene
4 59 YasserKhalil

الكلمات الدلالية
تعديل ، اكسل ، ورشه ، سيارات ،


 







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



الساعة الآن 08:59 مساء

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