كريم ناصف قام بنشر يوليو 9, 2016 مشاركة قام بنشر يوليو 9, 2016 السلام عليكم عيد مبارك عليكم ويتقبل منا ومنكم صالح الاعمال الملف المرفق لو ينفع يتعمل علية فرومه بحث بالاسم واذا امكن السنه والشهر بس يكون فورمة البحث تظهر في نافذة ويكون فيها مجموع صافي المرتب ولكم جزيل الشكر مرتبات الموظفين.rar رابط هذا التعليق شارك More sharing options...
كريم ناصف قام بنشر يوليو 9, 2016 الكاتب مشاركة قام بنشر يوليو 9, 2016 سبحان الله وبحمدة سبحان الله العظيم رابط هذا التعليق شارك More sharing options...
كريم ناصف قام بنشر يوليو 9, 2016 الكاتب مشاركة قام بنشر يوليو 9, 2016 حبايبنا انا لقيت ملف علي الموقع المتمز فية فورمة بحث تنفع مع الملف بتاعي وجزاة الله خير اللي عملها بس المشكلة انها مش بتعرضلي كل الاعمدة لان تظبيتتها علي ملفها القديم فارجو المساعدة لتكمليتها مع اضافة المجموع لصافي المرتبات فورم بحث - اوفيسنا_A111111.rar رابط هذا التعليق شارك More sharing options...
كريم ناصف قام بنشر يوليو 10, 2016 الكاتب مشاركة قام بنشر يوليو 10, 2016 اللهم يا عالم بحالي ولا حول ولا قوة الا بالله رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر يوليو 11, 2016 مشاركة قام بنشر يوليو 11, 2016 قم بالتعديل على اذهب الى مودال وعدل في نطاق البيانات Option Explicit '====================================================== '====================================================== ' ÇÓã äØÇÞ ÑÄæÓ ÇáÇÚãÏÉ ' Çæ ÚäæÇä ÇáäØÇÞ ãáÍæÞ ÈÇÓã ÇáæÑÞÉ Private Const MyTopColmnRng As String = "ÇáÈíÇäÇÊ!$B$3:$t$3" قم بالتعديل هنا نطاق البيانت '====================================================== Sub KH_FIND() Dim ContRow As Long Dim vRng As Range '========================== On Error GoTo 1 Set vRng = Range(MyTopColmnRng) '========================== With vRng ContRow = .Worksheet.Cells(Rows.Count, .Column).End(xlUp).Row - .Row End With '========================== If ContRow = 0 Then MsgBox "áÇ ÊæÌÏ ÈíÇäÇÊ ÇÚÊãÇÏÇ Úáì ÂÎÑ ÕÝ Ýí ÇáÚãæÏ ÇáÇæá" Else With UserFormSearch .kh_RngSet vRng, vRng.Offset(1, 0).Resize(ContRow) .Show End With End If 1: Set vRng = Nothing End Sub رابط هذا التعليق شارك More sharing options...
كريم ناصف قام بنشر يوليو 12, 2016 الكاتب مشاركة قام بنشر يوليو 12, 2016 اخي العزيز ريان جزاكم الله خير علي الرد والمعلومة بس انا عملت التعديل بس مفيش اي نتيجة اتغيرت وشكرا ليك رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر يوليو 13, 2016 مشاركة قام بنشر يوليو 13, 2016 اي نسخة افيس عندك رابط هذا التعليق شارك More sharing options...
كريم ناصف قام بنشر يوليو 13, 2016 الكاتب مشاركة قام بنشر يوليو 13, 2016 نسخة 2007 رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر يوليو 16, 2016 مشاركة قام بنشر يوليو 16, 2016 جرب recherch.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.