logo

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



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





26-03-2019 01:05 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 26-03-2019
رقم العضوية : 12105
المشاركات : 4
رصيد العضو : 0
الجنس :
تاريخ الميلاد : 19-3-1990
قوة السمعة : 19
الاعجاب : 1
بسم الله الرحمن الرحيم

انا امتلك نموذج بسيط ع الاكسل اريد بعض التعديلات


هو عباره عن فاتوره مبيعات


نظام حفظ الفاتوره يعتمد على الحفظ كل فاتوره فى شيت اخر هل يمكن اضافه ترحيل اخر لبعض البيانات الى صفحه يوميه المبيعات


واريد عمل كشف حساب عميل ايضا


ولكم منى جزيل الشكر


مرفق نموذج العمل

اليوزرنيم : admin
الباسورد : 2105028

 
 
  gedyana (1).rar   تحميل rar مرات التحميل :(13)
الحجم :(404.659) KB


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



look/images/icons/i1.gif اريد عمل ترحيل وعمل كشف حساب عميل
  26-03-2019 06:46 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10535
رصيد العضو : 4
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36776
الاعجاب : 193
السلام عليكم أخي الكريم
يرجى إرفاق ملف غير محمي وليس عليه أي كلمات سر .. كما يرجى أن يكون الموضوع لطلب واحد فقط مع وضع بعض النتائج المتوقعة




look/images/icons/i1.gif اريد عمل ترحيل وعمل كشف حساب عميل
  26-03-2019 10:06 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1766
رصيد العضو : 1
الدولة : مصر
الجنس :
الدعوات : 2
قوة السمعة : 9687
الاعجاب : 26
السلام عليكم استاذنا الكبير ياسر --بالتأكيد بعد اذن حضرتك
تم التعديل على المديول رقم 2 ليصبح بهذا الشكل
CODE
Sub Macro1()
 Dim Arr
        With Sheets("Sheet1")
        Arr = Array(.Range("g2"), .Range("C1"), .Range("E1"), .Range("E3"), .Range("C3"), .Range("H21"), .Range("H22"), .Range("H23"))
    End With
        With Sheets("íæãíå ÇáãÈíÚÇÊ")
        .Range("B" & .Cells(Rows.Count, "B").End(xlUp).Row + 1).Resize(1, UBound(Arr) + 1).Value = Arr
    End With
        MsgBox "Done...", 64
    Range("C6").Select
    ActiveWindow.SmallScroll Down:=-3
    Range("g2").Select
    Sheets("Sheet1").Select
    Sheets("Sheet1").Copy After:=Sheets(1)
    Sheets("Sheet1 (2)").Select
    Sheets("Sheet1 (2)").Name = "Sheet1 (2)"
    Sheets("Sheet1 (2)").Select
    Sheets("Sheet1 (2)").Name = Range("g2").Value
    Range("B11").Select
    ActiveWindow.SmallScroll Down:=-3
    Sheets("Sheet1").Select
    ActiveWindow.SmallScroll Down:=0
    Range("c5:f20").Select
    Selection.ClearContents
    Range("C3").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-18
    Range("g2").Select
    Selection.Copy
    Range("I9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C3").Select
End Sub





وقد تم عمل كل المطلوب ومنها تم عمل كشف حساب العميل بمعادلات المصفوفة
وهذا هو الملف بعد التعديل
gedyana.rar
 
 
  gedyana.rar   تحميل rar مرات التحميل :(112)
الحجم :(435.284) KB




توقيع :ali mohamed ali


{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
الاخرين لوجه الله وان تحتسب له اجر عند الله

look/images/icons/i1.gif اريد عمل ترحيل وعمل كشف حساب عميل
  27-03-2019 11:25 صباحاً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-03-2019
رقم العضوية : 12105
المشاركات : 4
رصيد العضو : 0
الجنس :
تاريخ الميلاد : 19-3-1990
قوة السمعة : 19
الاعجاب : 1
شكرا جزيلا بجد فريق عمل رائع واحلى منتدى




look/images/icons/i1.gif اريد عمل ترحيل وعمل كشف حساب عميل
  30-03-2019 10:12 صباحاً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 30-03-2019
رقم العضوية : 12175
المشاركات : 10
رصيد العضو : 0
الجنس :
تاريخ الميلاد : 1-1-1989
قوة السمعة : 19
الاعجاب : 0
هل تم الحل




look/images/icons/i1.gif اريد عمل ترحيل وعمل كشف حساب عميل
  31-03-2019 11:44 صباحاً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10535
رصيد العضو : 4
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36776
الاعجاب : 193
أحسنت أخي العزيز علي وجزاك الله خيراً




look/images/icons/i1.gif اريد عمل ترحيل وعمل كشف حساب عميل
  08-10-2024 09:55 صباحاً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 25-11-2017
رقم العضوية : 1913
المشاركات : 93
رصيد العضو : 4
الدولة : فلسطين
الجنس :
تاريخ الميلاد : 28-3-1975
قوة السمعة : 83
الاعجاب : 4
جـــــزاك الله كل خيـــــر




اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
ترحيل محمود رمضان السمري
1 100 محمود رمضان السمري
مشكله في كود الترحيل ayoub2007
0 82 ayoub2007
طلب مساعدة في ترحيل غيابات التلاميذ ayoub2007
1 188 ayoub2007
طلب تعديل في ترحيل بيانات بشروط خاصة في الترحيل بكار للأبد
1 170 بكار للأبد
محتاج كودترحيل saad mohamed
0 239 saad mohamed

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









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

الساعة الآن 12:31 PM