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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
khaled alborene Eslam Abdullah-- لا تميز خلال هذه الفترة 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
المشاركات : 872
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 58
يتابعهم : 6
يتابعونه : 200
قوة السمعة : 3104
الاعجاب : 43
موقعي : زيارة موقعي
 Online 
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
المشاركات : 872
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 58
يتابعهم : 6
يتابعونه : 200
قوة السمعة : 3104
الاعجاب : 43
موقعي : زيارة موقعي
 Online 
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
المشاركات : 872
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 58
يتابعهم : 6
يتابعونه : 200
قوة السمعة : 3104
الاعجاب : 43
موقعي : زيارة موقعي
 Online 
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
المشاركات : 6582
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 400
قوة السمعة : 18172
الاعجاب : 620
 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
المشاركات : 6582
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 400
قوة السمعة : 18172
الاعجاب : 620
 offline 
look/images/icons/i1.gif تعديل ملف اكسل ورشه سيارات
بارك الله فيك أخي الكريم
المفترض أن الأعضاء يتفاعلون في طرح أسئلة والإجابة على أسئلة أعضاء آخرين
فيمكنك المساهمة بما تعلمته في توصيل معلومة للغير ..هذا ما أقصده






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
مساعدة في بناء كود داخل ملف الاكسل MrSeen
0 18 MrSeen
سؤال في اكسل فائز
5 97 محمود ابو الدهب
قاموس دالات الاكسل 2019 Eslam Abdullah
11 740 محمد أبو عبدو
شرح طريقة عمل الباركود قارئ الملفات على الاكسل مجدى يونس
4 56 مجدى يونس
تحويل ملف الاكسل الى ملف تنفيذي روان روان
1 46 روان روان

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


 







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



الساعة الآن 03:16 صباحا

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