كود للترحيل

[طاهر محمد]

شكرا جزيلا ا/ ابراهيم

قمت بالتعديل كما قلت وزر التعديل تم تفعيلة

ويبقى زر الحذف لا يعمل عند الضغط علية

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

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

اخى طاهر

ممكن ارفاق الملف للعمل عليه

تقبل تحياتى

[طاهر محمد]

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

اليك المرفق ا/ ابراهيم

نموزج فاتورة بدون فورم نهائى.zip

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

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

بالفعل اخى طاهر

 

زر التعديل كان به خطأ

----------------------

اذهب الى محرر الاكواد

واختار الموديول  DELETINV_

قم باستبدال الكود الاتى

Sub DELETINV()
Dim LR As Long
Dim ss As String
Dim StDate As Date
Dim EndDate As Date
Dim LR1 As Long
Dim LR2 As Long
Dim Lr3 As Long
Dim WS As Worksheet
Dim WS1 As Worksheet
Set WS = Worksheets("INVOICE")
Set WS1 = Worksheets("MAT")

On Error GoTo 1
If WS.Range("I6").Value = "" Then: Exit Sub
If WorksheetFunction.CountIf(WS1.[C6:C10800], WS.Range("I6").Value) = 0 Then
MsgBox " ÎØà ÑÞã ÇáÝÇÊæÑå]--åÐå ÇáÝÇÊæÑå ÛíÑ ãÓÌáå ãä ÞÈá] "
Exit Sub
End If
ss = WS.Range("I6").Value
LR1 = WS1.Cells(Rows.Count, 3).End(xlUp).Row + 4
WS1.Range("B5:l5" & LR1).AutoFilter Field:=2, Criteria1:=ss
WS1.Range("B6:l00000" & LR1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
'WS1.Range("B5:l5" & LR1).AutoFilter

Call clear_data
1 End Sub

ب الكود الاتى

Sub DELETINV()
Dim LR As Long
Dim ss As String
Dim StDate As Date
Dim EndDate As Date
Dim LR1 As Long
Dim LR2 As Long
Dim Lr3 As Long
Dim WS As Worksheet
Dim WS1 As Worksheet
Set WS = Worksheets("INVOICE")
Set WS1 = Worksheets("MAT")

On Error GoTo 1
If WS.Range("I6").Value = "" Then: Exit Sub
If WorksheetFunction.CountIf(WS1.[C6:C10800], WS.Range("I6").Value) = 0 Then
MsgBox " ÎØà ÑÞã ÇáÝÇÊæÑå]--åÐå ÇáÝÇÊæÑå ÛíÑ ãÓÌáå ãä ÞÈá] "
Exit Sub
End If
ss = WS.Range("I6").Value
LR1 = WS1.Cells(Rows.Count, 3).End(xlUp).Row + 4
WS1.Range("B5:l5" & LR1).AutoFilter Field:=2, Criteria1:=ss
WS1.Range("B6:l" & LR1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
'WS1.Range("B5:l5" & LR1).AutoFilter

Call clear_data
1 End Sub

تقبل تحياتى

[smh_ezz]

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

[طاهر محمد]

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

شكرا جزيلا على اهتمامك ا/ ابراهيم

برجاء عمل التعديل على المرفق من طرفك لانى قمت بنسخ الاكواد وحاولت التعديل اكثر من مرة فتظهر رسالة خطأ

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

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

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

تفضل اخى طاهر

تقبل تحياتى

نموزج فاتورة بدون فورم نهائى.rar

[طاهر محمد]

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

شكرا جزيلا اخى ابراهيم

تمت تجربة المرفق النهائى والتعديلات المطلوبة انجزت على اكمل وجه

ولكن لوحظ ان خانة اجمالى القيم التى فى اسفل الفاتورة " المجموع " غير مفعلة فبرجاء تفعيلها

وان كان هناك امكانية لاختيار اسم المورد مثل اختيار الصنف فسيكون هذا اكثر دقة من كنابة اسم المورد

"اى نضيف عدد من اسماء الموردين فى صفحة الاكواد وعند الضغط على الخانة التى يكتب فيها اسم المورد يظهر فورم به اسم المورد وكودة

وعند الضغط علية يرحل اسم المورد فى الخانة الخاصة به مع غلق الفورم "

الرجاء شرح اكواد المطلوب الاخير لتعم الفائدة

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

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

اخى طاهر

تم عمل كود البجث باسم العميل

تقبل تحياتى

 

نموزج فاتورة بدون فورم نهائى.rar

[طاهر محمد]

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

ا/ ابراهيم تحية طيبة وبعد

1- بالنسبة لكود البحث باسم العميل هل من الممكن ان يكون الفورم الخاص بة مستقل عن الفورم الخاص بالبحث عن الصنف

لان البحث من خلال التكست بوكس فى الفورم تعطل"اى عندما كنا نكتب اسم الصنف فى التكست بوكس كان هو الذى يظهر فى اليست بوكس "

راجع المرفق السابق للمرفق الاخير

2-برجاءتفعيل خانة جمع القيم فى اسفل الفاتورة حيث انها لايظهر بها المجموع

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

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

اخى طاهر

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

 

تم التعديل على كود البحث باسم العميل

------------------------------------

ارجو تجربة الكود جيدا

------------

تقبل تحياتى

 

نموزج فاتورة بدون فورم نهائى.rar

[طاهر محمد]

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

شكرا جزيلا ا/ ابراهيم

تم انجاز العمل على اكمل وجه تقبل الله منك وجعل هذا العمل فى ميزان حسناتك

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

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

1- اريد اذا كان رقم الاذن مرحل قبل ذلك تظهر رسالة تحذيريه

2- اريد عند الضغط فى خانة كود المورد يظهر فورم به اسم المورد وكودة وعند الضغط عليه يرحل الكود فقط (لكى يجعل المعادلة تعمل ) ويغلق الفورم

3- اريد عند الضغط فى خانة كود المخزن يظهر فورم به اسم المخزن وكودة وعند الضغط عليه يرحل الكود فقط (لكى يجعل المعادلة تعمل ) ويغلق الفورم

                                               هذا فى الجزء العلوى للفاتورة

4-اريد عند الضغط فى خانة كودالصنف يظهر فورم به اسم االصنف وكودة وعند الضغط عليه يرحل الكود فقط (لكى يجعل المعادلة تعمل ) ويغلق الفورم

                                            اى الذى يرحل من الفورم فى الجميع الاكزاد فقط لتجعل المعادلة تعمل

وفى صفحة الترحيل اريد ان يكون تسطير الصفوف تلقائى ( اى الصف الذى به بيانات يسطر)

ترحيل جديد.rar

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

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

اخى طاهر

تم عمل جزء من المطلوب وهو

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

------------------------------------------------

ولكن كنت اتسائل هل يمكن الاستغناء عن المعادلات

الموجوده بالشيت

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

والخاصه باسم العميل

واسم المخزن

دون الحاجه لوجود المعادلات فى الشيت

--------------------------------------------------

ولكل حرية الاختيار

فقط انا فى انتظار ردك

------------------------

تقبل حياتى

ترحيل1.rar

[طاهر محمد]

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

شكرا جزيلا اخى العزيز أ/ ابراهيم

يفضل بقاء المعادلات كما هى لان هذا النموذج سيستخدم فى اكثر من شىء

 

       برجاء شرح اكواد الفورم لو امكن ذلك

[طاهر محمد]

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

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

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

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

اخى طاهر اعزرنى لانشغالى هذه الفتره

ولكن ف القريب العاجل ان شاء الله يتم عمل المطلوب

كل عام وانت بخير

تقبل تحياتى

[طاهر محمد]

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

عيد سعيد على كل اعضاء المنتدى الكريم

وكل عام وانت بخير ياسناذ ابراهيم

[طاهر محمد]

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

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

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

.....................................

اخى طاهر

........

ارجو التماس العزر فى التاخير

فقد كنت مشغولا بشده فى الايام الماضيه

..................................................

راجع المرفق

.................

تقبل تحياتى

ترحيل2.rar

[طاهر محمد]

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

اعانك الله اخى العزيز ا/ ابراهيم واعانك فى جميع حاجاتك

بالنسبة للمرفق الاخير اريد ان يرحل الكود كرقم فقط

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

لان الطريقة التى تم بها عمل المرفق الاخير قامت بمسح المعادلات

برجاء العمل على المرفق الذى فى المشاركة رقم63

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

اخى طاهر

ان شاء الله

يتم التعديل

تقبل تحياتى

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

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

اخى طاهر

هل تقصد هكذا

تقبل تحياتى

ترحيل3.rar

[طاهر محمد]

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

عودة مباركة اخى العزيز أ/ ابراهيم

احيطكم علما بأنى قمت بتجربة المرفق الاخير 

ولكن الفورم لايعمل " اى عند الضغط على الخلية يظهر الفورم وعند الضغط على الشىء المراد ترحيلة الفورم لايعمل "

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

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

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

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

اخى طاهر

هل تقصد هكذا

تقبل تحياتى

ترحيل3.rar

[طاهر محمد]

                     شكرا جزيلا اخى العزيز ا/ ابراهيم 

                       " تم تنفيذ العمل على اكمل وجه "

جزاك الله خيرا وجعلة من العلم المنتفع به وجعلة الله فى ميزان حسناتك