ahmedgenedy

ارجو الرد

السلام عليكم ورحمه الله وبركاته اريد ادارج اكثر من صوره فى شيت اكسل واحد حاولت ادراج الصوره Vlook_pic ولكن لصوره واحده . . المطلوب انى لو كتبت رقم الموظف تظهر صوره بطاقته وصورته الشخصيه فى نفس الوقت وثيقه تعارف للعاملين2.rar

الاستاذ / وليد فتحى بارك الله لك فى علمك وزادك الله من فضله

بصراحه يا استاذى الفاضل مرفق مش بالضبط المطلوب فى المرفق مره اخرى اريد جعل الارقام بعكس ما حضرتك عملتها نموذج نقل عاملين الى فروع المنشأه - معدل_33.rar

الاخ وليد فتحى شاكر لكم مجهودك بارك الله فيك

استاذنا الجموعى اعتزر ولكن المرفق هو الملف الاصلى بدون تعديل الاستاذ / وليد فتحى شاكر ليك مجهودك العظيم استاذى ومعلمى الاستاذ / جمال عبدالسميع تحياتى لكم دائما نعم العون لى وفى اسرع وقت ( مرفق لسيادتكم الملف مره اخرى اريد لارقام طبقا للمرفق وليس العكس اريد جعل الخانات بها الارقام من اليمين والخانات الفارغه على اليسار ) نموذج نقل عاملين الى فروع المنشأه.rar

الساده الكرام مرفق لسياتكم ملف استعملت معه MID ولكنه يجلب الارقام من اليسار الى اليمين وليس العكس مرفق مثال على ذلك نموذج نقل عاملين الى فروع المنشأه - Copy.rar

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

الساده الافاضل اريد فصل الارقام والتواريخ طبقا للملف المرفق ضرورى اريد مساعده.rar

استخدم ده والاحمر ده الباث باع الصور عندك على الجهاز Function VLOOK_Pic1(PicName) Dim CurrentCel As Range, Pic As Shape PicName = PicName: MyPath = ThisWorkbook.Path & "\StaffPhotos\": PicName = MyPath & PicName: ChkPic = Array(".jpg", ".bmp", ".gif", ".png") Set CurrentCel = Application.Caller For Each Pic In ActiveSheet.Shapes If Pic.Type = msoLinkedPicture Then If Pic.Top >= CurrentCel.Top And Pic.Top < CurrentCel.Top + CurrentCel.Height Then Pic.Delete Exit For End If End If Next For X = LBound(ChkPic) To UBound(ChkPic) If Not Dir(PicName & ChkPic(X), vbDirectory) = vbNullString Then Set Pic = ActiveSheet.Shapes.AddPicture(PicName & ChkPic(X), True, False, CurrentCel.Left, CurrentCel.Top, CurrentCel.Width, CurrentCel.Height): VLOOK_Pic1 = "" Exit For Else VLOOK_Pic1 = "áÇ ÊæÌÏ ÕæÑÉ" End If Next End Function

بارك الله استاذنا

بارك الله فيك واعانك

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

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

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