ارجوا المساعدة بفاتورة تحوي صورة الصنف مع استراد البيانات من شيت اخر

[AL-ZEER]

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

 

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

 

وتحوي على صورة الصنف اضافة الى ان الترقيم التسلسلي للفاتورة يبدأ من 7 ارقام ، وهل يوجد طريقة بحيث لو 

 

اصدرت فاتورة يتم الخصم من الرصيد الفعلي من الشيت الاخر .

 

تقبلوا خالص تحياتي ... وجعل اعمالكم في ميزان حساناتكم

 

أخوكم

ALZEER

فاتورة مبيعات بصورة الصنف.rar

[عبدالله باقشير]

السلام عليكم

 

تم استخدام دالة معمولة بالكود kh_AddPicture

 

تجد شرحها في الرابط

 

http://www.officena.net/ib/index.php?showtopic=40613

 

المعادلة موجودة في العمود  C  في شيت الاصناف

والعمود N في شيت الفاتورة

Option Explicit
Option Compare Text
'=============================================
'=============================================
'           اسم مجلد الصور
' اذا كان مجلد الصور في نفس مجلد ملف الاكسل
'           اكتب اسمه فقط
'        والا اكتب المسار كاملا
' "D:\MyDocument\MyFunction\photo"

Private Const kh_pic As String = "MyImeg"
'=============================================
'  امكانية تحرير اي نوع من الصور لديك ادناه
Private Const MyTyp As String = ".jpg,.bmp,.gif,.png,.tif"
'=============================================
'=============================================


Function kh_AddPicture(MyRng As Range, iName As String)
Dim Tp
Dim MyShap As Shape
Dim MyFile As String, MyPath As String
Dim ibo As Boolean
'-----------------------------------------
On Error Resume Next
Set MyShap = MyRng.Worksheet.Shapes(iName)
If iName = "" Or Err Then Err.Clear: GoTo 1
'-----------------------------------------
MyShap.Fill.Solid
If Not InStr(kh_pic, ":") Then MyPath = ThisWorkbook.Path
MyFile = MyPath & "\" & kh_pic & "\" & CStr(MyRng)
'-----------------------------------------
For Each Tp In Split(MyTyp, ",")
    If Not Dir(MyFile & Trim(Tp), vbDirectory) = vbNullString Then
        MyShap.Fill.UserPicture MyFile & Trim(Tp)
        ibo = True
        Exit For
    End If
Next
'-----------------------------------------
1:
Set MyShap = Nothing
kh_AddPicture = ibo
End Function

شاهد المرفق 2010

فاتورة مبيعات بصورة الصنف.rar

[جمال عبد السميع]

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

[عبدالله باقشير]

السلام عليكم

اكرمك الله اخي الحبيب جمال عبد السميع

تقبلوا تحياتي وشكري

[حمادة عمر]

الاستاذ القدير العلامة الخبير / عبدالله باقشير

 

بارك الله فيك

والله دائما انتظر ردودك ومشاركاتك في المواضيع المختلفة

لانه من الاكيد اننا سنتعلم شيئا جديدا مع كل مشاركة او كود او رد او موضوع لك

زادك الله من فضله ومن علمه

جزاك الله خيرا

[عبدالله باقشير]

السلام عليكم

اخي الحبيب /حمادة....حفظكم الله

جزاكم الله خيرا

تقبلوا تحياتي وشكري

[AL-ZEER]

أخي العزيز والمبدع / عبدالله باقشير

لا ادري ماذا أقول لكن أختصرها بقول " جعل الله مساعيكم للخير تمطر عليكم بالحسنات " لكم ولوالديكم والمسلمين أجمعين " اللهم أمين "

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

تحياتي

[عبدالله باقشير]

جزاكم الله خيرا