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

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

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




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





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

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



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

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



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



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



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



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



 



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

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







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





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

أثارت هذه المشاركة إعجاب: mmoqry، Eslam Abdullah،


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

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


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





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






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





21-12-2018 01:26 صباحا
مشاهدة مشاركة منفردة [6]
محمود ابو الدهب
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 812
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 6
يتابعونه : 175
قوة السمعة : 2908
الاعجاب : 1067
موقعي : زيارة موقعي
 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


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


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

أثارت هذه المشاركة إعجاب: YasserKhalil، mmoqry، Eslam Abdullah،


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

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


21-12-2018 01:54 صباحا
مشاهدة مشاركة منفردة [7]
محمود ابو الدهب
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 812
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 6
يتابعونه : 175
قوة السمعة : 2908
الاعجاب : 1067
موقعي : زيارة موقعي
 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)


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

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


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

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


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

أثارت هذه المشاركة إعجاب: mmoqry، محمود ابو الدهب، Eslam Abdullah، عبدالله فتحى،




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

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




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

أثارت هذه المشاركة إعجاب: Eslam Abdullah، محمود ابو الدهب، عبدالله فتحى،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تحويل ملف اكسل الى vcf ابو العلاء
16 122 ابو العلاء
دورة ربط الفيجوال بيسك بالاكسل عبدالجيد
12 1378 teguera
لعبة على الاكسل لمركب مجدى يونس
7 90 Yassin50
سلسلة دروس مستفادة عن فيجوال بيزك اكسل_ كاملة محمود الشريف
31 292 yaseraw139
لعبة الشطرنج على الاكسل مجدى يونس
10 110 Avip

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


 







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



الساعة الآن 10:07 مساء

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