ارجو المساعدة في استكمال هذا الملف للضرورة يا شباب وجزاكم الله خيرا

[عبدالناصر محمود]

قمت بانشاء ملف اكسيل للعمل الجديد وارجو المساعدة من اهل الخير في عمل ربط بين الفاتورة وباقي البيانات والمطلوب المساعدة في الاتي :

1- عمل قائمه منسدلة بالاصناف بالفاتورة

2- ترقيم الفاتورة واستدعائها عند الحاجة للمراجعه او الطباعة

3- خصم الكميات التي يتم بيعها من الفاتورة من ارصدة المخزن

4 - المساعدة في استدعاء كشف حساب العميل

ارجو من حضراتكم المساعدة ولا اريد برامج جاهزة لاني ارغب بالتعلم من اهل العلم وشكرااا

[الصـقر]

أخى الحبيب مرحبا بك اخ جديد لنا فى جامعه اوفيسنا

اللى حضرتك بتطلبه ده معناه عايز برنامج كامل

راجع الرابط التالى

http://www.officena.net/ib/topic/63081-برنامج-ema-المحاسبى/

ربما يفيدك

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

لازم تبدأ خطواتك بنفسك 

تقبل تحياتى

 

تم تعديل سبتمبر 16, 2015 بواسطه الصـقـر

[عبدالناصر محمود]

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

[عبدالناصر محمود]

هذا هو الملف يا شباب

Nasser.rar

[عبدالناصر محمود]

قمت بانشاء ملف اكسيل للعمل الجديد وارجو المساعدة من اهل الخير في عمل ربط بين الفاتورة وباقي البيانات والمطلوب المساعدة في الاتي :

1- عمل قائمه منسدلة بالاصناف بالفاتورة

2- ترقيم الفاتورة واستدعائها عند الحاجة للمراجعه او الطباعة

3- خصم الكميات التي يتم بيعها من الفاتورة من ارصدة المخزن

4 - المساعدة في استدعاء كشف حساب العميل

ارجو من حضراتكم المساعدة ولا اريد برامج جاهزة لاني ارغب بالتعلم من اهل العلم وشكرااا

- تم ارفاق الملف مضغوط واعتذر بالامس لم اتمكن من رفعة

Nasser.rar

[عبدالناصر محمود]

NASSER 2.rar

اول مشاركة لي في المنتدي ولا يوجد اي رد يا جماعة الخير

[ياسر خليل أبو البراء]

أخي الكريم عبد الناصر محمود

راجع رد الأخ الصقر في المشاركة رقم 2

وراجع توجيهات المنتدى في الموضوعات المثبتة في صدر المنتدى ..

وأعتقذ ساعتها ستعرف لما لا يوجد استجابة لموضوعك

من هنا

راجع خصوصاً التوجيه الثالث عشر

تقبل تحياتي

[tahseen]

اخي الكريم 

عند حفظ الفاتورة تظهر رسالة ادخال رقم سري 

[عبدالناصر محمود]

استاذ tahseen
شكراا لمرورك الكريم . اذا كان هناك مشكلة في الملف الاخير ارجو مراجعة هذا الملف
 Nasser.rar

استاذ ياسر شكرااا لتوجيهك بالفعل لم اطلع علي كل قوانين المنتدي . وسنلتزم جميعااا ان شاء الله

[إبراهيم ابوليله]

اخى عبد الناصر

جرب وضع الكود التالى فى حدث الورقه

فاتورة مبيعات

ثم اخبرنى

بالنتيجه

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count <> 1 Then Exit Sub
'--------------------------------------------------------------------
Dim Lr As Long
'--------------------------------------------------------------------

'--------------------------------------------------------------------
LRa = Sheets("ÇáÚãáÇÁ").[a10000].End(xlUp).Row + 1
If Not Intersect(Target, Range("c6:c6")) Is Nothing Then
   Application.ScreenUpdating = False
    Application.DisplayAlerts = False
     Application.EnableEvents = False
      Application.Calculation = xlCalculationManual

For Each cll In Sheets("العملاء").Range("a6:a" & LRa)
If cll.Value = Target.Value Then
Target.Offset(1, 0) = cll.Offset(0, 1)
Target.Offset(2, 0) = cll.Offset(0, 4)
Target.Offset(3, 0) = cll.Offset(0, 7)
  Application.ScreenUpdating = True
   Application.DisplayAlerts = True
    Application.EnableEvents = True
     Application.Calculation = xlCalculationAutomatic
End If
Next
End If


End Sub

تقبل تحياتى

[عبدالناصر محمود]

استاذ ابراهيم جربت الكود وحصل خطأ بالفاتورة لكن اشتغلت تاني علي تعديل كود حضرتك من الشرح وظبطت الاعمدة في صفحة العملاء فظهر عندي اسم وعنوان وهاتف العميل وتم بحمد الله .
الخطوة الثانية اريد كود يقوم بترحيل الفاتورة لصفحة invoice data
كما هو موضح بالملف وارجو القاء نظرة علي ما تم تنفيذه بفضل الله ومساعدتكم
 

alex star 2.rar

[إبراهيم ابوليله]

استاذ ابراهيم جربت الكود وحصل خطأ بالفاتورة لكن اشتغلت تاني علي تعديل كود حضرتك من الشرح وظبطت الاعمدة في صفحة العملاء فظهر عندي اسم وعنوان وهاتف العميل وتم بحمد الله .
الخطوة الثانية اريد كود يقوم بترحيل الفاتورة لصفحة invoice data
كما هو موضح بالملف وارجو القاء نظرة علي ما تم تنفيذه بفضل الله ومساعدتكم
 

alex star 2.rar

بردو فيه مشكله

ممكن تخاطب الاداره

[عبد العزيز البسكري]

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

أخي الغالي عبد الناصر محمود لاحظت في ملفك تناقض بين شيت الأصناف و الفاتورة .. وما طلبتَه أنتَ منّي .. فقمت بمراسلتك و كانت إجابتك بالقبول حول الأعمدة التي تريد أن تراها في اليوزرفورم ..

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

     فائق احتراماتي

 

 

 

 

 

 

 

عبد الناصر محمود.rar

تم تعديل سبتمبر 19, 2015 بواسطه عبد العزيز البسكري

[عبدالناصر محمود]

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

the code in the project must be updated for use on 64 bit systems

 

 

 

[عبدالناصر محمود]

استاذ ابراهيم جربت الكود وحصل خطأ بالفاتورة لكن اشتغلت تاني علي تعديل كود حضرتك من الشرح وظبطت الاعمدة في صفحة العملاء فظهر عندي اسم وعنوان وهاتف العميل وتم بحمد الله .
الخطوة الثانية اريد كود يقوم بترحيل الفاتورة لصفحة invoice data
كما هو موضح بالملف وارجو القاء نظرة علي ما تم تنفيذه بفضل الله ومساعدتكم
 

alex star 2.rar

بردو فيه مشكله

ممكن تخاطب الاداره

بعتلك رسالة علي الخاص 

[إبراهيم ابوليله]

واضح ان المشكله

كانت من عندى ولا ايه

دلوقتى قدرت احمل الملف

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

[إبراهيم ابوليله]

اخى عبد الناصر

استخدم هذا الكود

Sub trs_invoice()
' Ýì åÐÇ ÇáßæÏ íÊã ÇáÊÑÍíá Ýì ÍÇáÉ æÌæÏ ÇÓØÑ ÝÇÑÛå
Application.ScreenUpdating = False
Dim LR As Long, LR1 As Long
Dim WS As Worksheet
Dim WS1 As Worksheet
Set WS = Worksheets("INVOICE")
Set WS1 = Worksheets("INVOICE DATA")
LR1 = WS1.Range("c55555").End(xlUp).Row + 1
Dim FR
       For r = 3 To LR1
        If WS1.Cells(r, 3) = WS.Range("f6") Then MsgBox "This invoice already exist, No shift will done": Exit Sub
    Next
For FR = 16 To 37
If WS.Cells(FR, 2) = "" Then GoTo 7
WS1.Cells(LR1, 2) = WS.Range("d4").Value
WS1.Cells(LR1, 3) = WS.Range("f2").Value
WS1.Cells(LR1, 4) = WS.Range("f6").Value
WS1.Cells(LR1, 5) = WS.Range("d8").Value
WS1.Cells(LR1, 6) = WS.Range("h8").Value
WS1.Cells(LR1, 7) = WS.Range("d10").Value
WS1.Cells(LR1, 16) = WS.Range("d12").Value

WS1.Cells(LR1, 12) = WS.Range("h8").Value

WS.Range("c" & FR & ":i" & FR).Copy
WS1.Range("i" & LR1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
LR1 = LR1 + 1
7 Next FR
Application.CutCopyMode = False
WS.Select
Application.ScreenUpdating = True
End Sub

تقبل تحياتى

[عبد العزيز البسكري]

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

the code in the project must be updated for use on 64 bit systems

 

 

 

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

the code in the project must be updated for use on 64 bit systems

 

 

 

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

تفضّل أخي عبد الناصر محمود هذا المرفق ربما يفي بالغرض ..معذرة عن الرابط الخارجي لم أتمكن من الرفع من على " أوفيسنا " :

خالص احتراماتي

http://www.gulfup.com/?hJOHxP

 

 

[عبدالناصر محمود]

الف شكر استاذ عبدالعزيز لكن ارجو المساعدة في تلافي هذة الرسالة عندما اضغط علي اليوزر فورم تظهر عندي
the code in the project must be updated for use on 64 bit systems

[عبدالناصر محمود]

استاذ ابراهيم هل هذا الكود للترحيل ؟؟؟؟

[KHMB]

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

الاخ عبدالناصر

Private Declare Ptrsafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

اذهب إلي  Module3  وروح البداية فوق ستلاقي هذه الاربعة اسطر

قم بإضافة الكلمة المعلمة باللون الاسود بالسطر الاول لباقي الاسطر بعد كلمة  Declare  ثم مسافة حسب الموضح بالسطر الاول

 

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

بعد إذن أخي الاستاذ ابراهيم

الاخ عبد الناصر نعم هذا كود الترحيل من الفاتورة إلي بيانات الفواتير  Invoice Data

تم تعديل سبتمبر 19, 2015 بواسطه KHMB

[عبدالناصر محمود]

شكرا استاذ KHMB
بالفعل اتظبط بعد اضافة الكلمة شكراا جزيلا علي المشاركة الطيبة

 

[عبدالناصر محمود]

شكرااااا استاذ ابراهيم عملت كود الترحيل وربطة بزر الترحيل ربنا يباركلكم

[عبدالناصر محمود]

عبد الناصر محمود 3.rar

[عبد العزيز البسكري]

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

أخي الكريم عبد الناصر محمود تم بفضل الله إضافة ما طلبته للفورم .. لاحظ المرفق لو سمحت :

 

 

عبد الناصر محمود 2.rar