فورمة بحث لشيت مرتبات

[كريم ناصف]

السلام عليكم

عيد مبارك عليكم ويتقبل منا ومنكم صالح الاعمال

الملف المرفق لو ينفع يتعمل علية فرومه بحث بالاسم واذا امكن السنه والشهر

بس يكون فورمة البحث تظهر في نافذة ويكون فيها مجموع صافي المرتب

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

مرتبات الموظفين.rar

[كريم ناصف]

سبحان الله وبحمدة سبحان الله العظيم

[كريم ناصف]

حبايبنا

انا لقيت ملف علي الموقع المتمز فية فورمة بحث تنفع مع الملف بتاعي وجزاة الله خير اللي عملها

بس المشكلة انها مش بتعرضلي كل الاعمدة لان تظبيتتها علي ملفها القديم

فارجو المساعدة لتكمليتها مع اضافة المجموع لصافي المرتبات

فورم بحث - اوفيسنا_A111111.rar

[كريم ناصف]

اللهم يا عالم بحالي ولا حول ولا قوة الا بالله

[ريان أحمد]

قم بالتعديل على   اذهب الى مودال  وعدل في نطاق البيانات 

 

 

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

 

[كريم ناصف]

اخي العزيز ريان

جزاكم الله خير علي الرد والمعلومة 

بس انا عملت التعديل بس مفيش اي نتيجة اتغيرت 

وشكرا ليك

[ريان أحمد]

اي نسخة افيس عندك

[كريم ناصف]

نسخة 2007

[ريان أحمد]

جرب

recherch.rar