تعديل على الفورم

[sief122]

 

السلام عليكم ورحمة الله وبركاته اخواتي واساتذتي في النتدي برجاء المساعدة في تعديل هذا الملف

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

اولا : اريد اضافة عدد 4 خلايا ادخال اخرى ويظهرو ضمن قائمة البحث ومنهم خليتن لايجوز تكرار الارقام او الاسماء فيهم 

ثانيا : زر لطباعة كشف المدخلات كامل

الباسوورد

admin

1989

منظومة-الشؤون-الادارية.xlsm

[محمد هشام.]

الان, sief122 said:

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

ربما تقصد  4 اعمدة قم باضافتها على الملف لنتمكن من تنفيد طلبك  مع تحديد الاعمدة المرغوب عدم التكرار فيها 

 

[sief122]

تم اضافة الاعمدة وكتر خير حضرتك للاهتمام

منظومة-الشؤون-الادارية.xlsm

[محمد هشام.]

تفضل اخي

userform.New.xlsm

[sief122]

ماشاء الله بارك الله في حضرتك بس حضرتك نسيت تعمل زر طباعه فلو امكن ممكن تعمل زر طباعه للبحث واخر للكشف بالكامل

[محمد هشام.]

Private Sub Print_ws_Click()
Dim answer As Integer, Path As String, folderName As String, WSPrinter As String
Path = ThisWorkbook.Path & "\"
'اسم المجلد
folderName = "ملف الكشف" & " " & Format(Now(), "yyyy-mm-dd")
Set ws = Sheet2
On Error Resume Next
MkDir Path & folderName
Dim fileName As String        ' اسم الملف المستخرج
fileName = folderName & "\" & "DbSheet" & "_" & ".pdf"
ws.ExportAsFixedFormat Type:=xlTypePDF, fileName:=Path & fileName
MsgBox "" & Path & vbLf & vbLf & " " & _
        folderName, _
        vbInformation, " : تم حفظ الملف بنجاح في مجلد"
Application.EnableCancelKey = xlDisabled
WSPrinter = Application.ActivePrinter
ws.Select
answer = MsgBox(" طباعة الملف ؟", vbQuestion + vbYesNo + vbDefaultButton2, "تاكيد")
If answer = vbYes Then
ActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=True, ActivePrinter:="officena"
Application.ActivePrinter = WSPrinter
Else
    End If
    Application.EnableCancelKey = xlInterupt
    On Error GoTo 0
End Sub

 

userform V3.xlsm

[sief122]

بارك الله في حضرتك وزادك من علم انا هجرب الملف واستأزنك لو حدث خطأ ابلغ حضرتك وشكرا علي المجهود العظيم

[sief122]

ماشاء الله علي المجهود العظيم اللى حضرتك بذلته في البرنامج بس كان فيه سؤال هو ليه في قائمة البحث بيجيب البيانات من اليسار الى اليمين هل ينفع انه يأتى بالبيانات من اليمين الي اليسار

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

[محمد هشام.]

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

[sief122]

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