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