اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كود للترحيل


الردود الموصى بها

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

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

 

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

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

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

واختار الموديول  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

تقبل تحياتى

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

اخى طاهر

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

 

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

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

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

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

تقبل تحياتى

 

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

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

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

ترحيل جديد.rar

رابط هذا التعليق
شارك

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

اخى طاهر

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

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

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

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

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

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

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

واسم المخزن

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

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

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

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

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

تقبل حياتى

ترحيل1.rar

رابط هذا التعليق
شارك

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

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

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

 

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

رابط هذا التعليق
شارك

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

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

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

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

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

تقبل تحياتى

رابط هذا التعليق
شارك

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

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

اخى طاهر

........

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

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

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

راجع المرفق

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

تقبل تحياتى

ترحيل2.rar

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information