salimhebboul

تعديل الكود ليصبح البحث من خلال ثلاث خانات ان امكن طباعة النتائج بصيغة PDF وعن طريق الطابعة Private Sub TextBox1_Change() Application.ScreenUpdating = False Range("A2:A1884").Interior.ColorIndex = 2 ListBox1.Clear If TextBox1 <> "" Then For ligne = 2 To 1884 If Cells(ligne, 1) Like "*" & TextBox1 & "*" Then Cells(ligne, 1).Interior.ColorIndex = 43 ListBox1.AddItem Cells(ligne, 1) End If Next End If End Sub اوفيسنا.xlsm

طباعة الفورم.xlsm

لا يوجد ملف العمل

المصنف1.xlsx البحث باي حرف في مربع سرد وتحرير حتى لوكان داخل الكلمة

تفضل كود حماية الخلايا 123تقسيط.xlsx

هناك طريقة اخرى باستعمال index match وذلك للتمكن من تغيير ترتيب الجدول في الصفحة بحث عن مثلا قم بكتابة تاريخ الميلاد بدل رقم الملف سيتغير الناتج الى قيمة تاريخ الميلاد في العمود واضفنا له فورم ادخال من اجل مساعدتك في ادخال المستلزمات البحث بالرقم القومى1.xlsm

=INDEX(صور;MATCH(رقموظيفي;الرقم;0);0) نقوم يتسمية عمود الرقم الوظيفي ب الرقم نقوم بتسمية عمود الصور ب صور نقوم بتسمية الرقم الوظيفي ب رقموظيفي ثم نستعمل الدالتين لجلب الصورة ثم من الصيغ نقوم بتحديد المعادلة =INDEX(صور;MATCH(رقموظيفي;الرقم;0);0) باسم photo نقوم بجلب اي صورة بعد الظغط في شريط الصيغة =photo يمكنك تغيير التسميات كما تشاء بروف.xlsx

هل لديك ملف به قائمة البلديات ورموزها ام لا

عمل رائع شكرا لك

الف شكر لك استاذي

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

الكود من عمل الاستاذ الرائد اريد من خلاله طباعة 3 اوراق عمل فقط الى pdf وليس كل الصفحات لتعذر حذف بعض الثفحات Sub pdfcopy2() Application.Calculation = xlCalculationAutomatic Application.DisplayStatusBar = False Application.EnableEvents = False Dim wsA As Worksheet Dim wbA As Workbook Dim strName As String Dim strPath As String Dim strFile As String Dim strPathFile As String Dim myFile As Variant Dim lOver As Long On Error GoTo errHandler Set wbA = ActiveWorkbook Set wsA = ActiveSheet strPath = ThisWorkbook.Path If strPath = "" Then strPath = Application.DefaultFilePath End If strPath = strPath & "\" For i = 1 To Sheets.Count If i <> "" Then strName = i & "-" & Sheets(i).Name & "-" & ActiveSheet.Range("b3").Value strFile = strName & ".pdf" strPathFile = strPath & strFile If bFileExists(strPathFile) Then lOver = MsgBox("الملف موجود مسبقا.هل تريد استبداله؟", _ vbQuestion + vbYesNo, "ملف موجود") If lOver <> vbYes Then myFile = Application.GetSaveAsFilename _ (InitialFileName:=strPathFile, _ FileFilter:="PDF Files (*.pdf), *.pdf", _ Title:="إختيار مجلد الحفظ") If myFile <> "False" Then strPathFile = myFile Else GoTo exitHandler End If End If End If wsA.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=strPathFile, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False End If Next i MsgBox "تم إنشاء الملف بإسم المعني: " & vbCrLf & strPathFile errHandler: Resume exitHandler exitHandler: Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True Application.DisplayStatusBar = True Application.EnableEvents = True End Sub 17.xlsm

بعض الاوراق لا يمكن حذفها لانها تختوي عللى واجهة البرنامح واخري على قاعدة بيانات ولا رايد طباعتها كل مرة هي 6 اوراق عمل اللي اريد طباعتها هل يمكن تحديدها داخل الكود -sheet2 -sheet3-

اجابتك كانت اكثرمن رائعة الف شكر لك فقط لو استطعنا اضافة اسم الورقة للمتغير salim ومن بين كل الاوراق قد احتاج الى مجموعة محددة مثلا 6 اوراق فقط

17.xlsxنريد طباعة مجموعهة الأوراق المحددة مثلا 2 3 4 5 في ملفات بي دي اف منفصلة يكون تسميتها بالقيمة التي في الخلية B3 و اسم الصفحة مثل SALIM 1- SALIM 2