ammarhowari

السلام عليكم ياريت تساعدونا بالموضوع  

الفكرة  هي البحث عن  القيم الموجودة بالعمود A      ضمن العمود B   وفي العمود  c نضع الناتج يجب ان يكون رقم الصف او رقم الخلية 

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

لدي ملف  مؤلف من عمودين الاول  يوجد فيه قيم    غير متكررة  والعمود الثاني   عبارة عن دمج بعض  القيم       

المطلوب تحديد تواجد  القيم بالعمود الاول   في العمود االثاني     

مثال  انه يعطيني  قيمة a1   موجودة  في  b1 وb10 و b60  بشكل افقي  بداء من العمود c

Book1.xlsx

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

السلام عليكم ورحمة الله وبركاته

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

كود تذييل للصفحة بناء على محتويات خلية.xlsx

الف  شكر استاذي جزاك الله عنا كل خير   ممنونك

السلام عليكم  ..لدي ١٠ شيتات  ...بشيت اخرى لدي قيمة. عايز  بطريقة او بمعادلة اعرف القيمة   وين موجودة.  بأيا شيت 
لدي ١٠ شيتات  ...بشيت اخرى لدي قيمة. عايز  بطريقة او بمعادلة اعرف القيمة   وين موجودة.  بأيا شيت 

بمعني اخر    لدي 10 شيتات      وبشيت11 لدي قيم متواجة في الشيتات العشرة    بعمود A

عايز اعرف القيمة اللي بالشيت 11  وين موجود    بأيا شيت  من العشرة السابقات   .. كل الودّ

شيتات.xlsx

شكرا الك نحج الكود لكن  في مشكلة انه بيحفظ الملف  في المجلد اللي قبل المجلد المختار  ممكن الافادة 

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

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

لذلك طلبت كود لتحديد مسار الحفظ 

Sub pdfnew()
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then [A1] = .SelectedItems(1)
End With
    Sheets("ISA").Activate
For Each cello In Selection
m = cello.Value
Cells(3, 9).Value = m
Cells(1, 1).Value = n

 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=n & "ISA " & m, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
Cells.Select

Next cello
Sheets("ISA").Select
End Sub

استاذي هي الكود   لكن لا يعمل   ماالمشكلة لو سمحت   ممكن مساعدة

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

Sub pdfgmo()
Sheets("ISA").Activate
For Each cello In Selection
m = cello.Value
Cells(3, 9).Value = m

 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "F:\Rehab\2022\Shelter\pdf Sheet Selter/" & "ISA " & m, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
Cells.Select

Next cello
Sheets("ISA").Select
End Sub

السلام عليكم  تحياتي للجميع ورمضان مبارك ع الجميع الكود  يعمل  omar elhosseini  شكرا الك 

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

تمام شكرا استاذي   لكن انا عايز الرابط تبع الملف  هوا يجيب اسم الملف ويلصقه كرابط 

الكود التالي  لاحضار اسماء الملفات   ممكن يصير تعديل عليه لاحضار اسماء المجلدات ؟  لو تكرمتم

Sub Example1()
    Dim xFSO As Object
    Dim xFolder As Object
    Dim xFile As Object
    Dim xFiDialog As FileDialog
    Dim xPath As String
    Dim I As Integer
    Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFiDialog.Show = -1 Then
        xPath = xFiDialog.SelectedItems(1)
    End If
    Set xFiDialog = Nothing
    If xPath = "" Then Exit Sub
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFSO.GetFolder(xPath)
    For Each xFile In xFolder.Files
        I = I + 1
        ActiveSheet.Hyperlinks.Add Cells(I, 1), xFile.Path, , , xFile.Name
    Next
End Sub

سلمت يداك الله يجزيك الخير 

ممكن شرح =EOMONTH(U3;-1)+1

-1 وبعدين سكرنا القوس  +1

المطلوب حساب  المبالغ التي تم دفعها في الأشهر 

مثلا حساب الدفعة الأولى والدفعة الثانية في شهر دفعات الاشهر.xlsx

شكرا جزيلا  الله يجزيك الخير استاذ محمد 

match.xlsx

المطلوب   طريقة المقارنة  بين الجدول الاول والجدول الثاني  بشرط تطابق البيانات في الاعمدة الثلاثة 

اذا وجد تطابق  يوضع 1 

@lionheart استاذنا الحبيب    عند ادخال قيمة في الخلايا  والنقر في خلية اخر  تنمسح القيمة التي كتبناها 

جزاك الله خيراً

لكن المطلوب بدون قائمة منسدلة  
ممكن لو تنحل عن طريق كود او غير شي   بس بدون قائمة منسدلة 

ممكن طريقة اضافة تسمية توضيحية شفافة لخلية اكسيل  

مقبول او مرفوض.xlsx

جزاك الله خيرا 

السلام عليكم   

استاذنا @قنديل الصياد 

ممكن تفيدني بكود لحفظ ملف وورد  بصيغة pdf  عن طريق اختصار  ctrl+q  بحيث كل مرة اضغط فيها على الاختصار يحفظ الملف باسم جديد بصيغة ال pdf

الله يجزيك الخير  اخي المطلوب


 كود وورد   كل ما اضغ على الاختصار مثلا ctrl+qيحفظ املف الوورد بصيغة pdfوباسماء ارقام متسلسلة 

السلام عليكم تحياتي للجميع لدي ملف وورد عايز كود    كل ما اشغل الكود يحفظلي ملف الوورد 

ملف PDFباسم جديد