abdelfattahbadawy

السلام عليكم كيف يمكن عمل رابط لكل صفحة فى button مثل هذا الذى فى الصورة وجدت هذه الطريقة فى الرابط التالى ولكننى لم أجد الكود https://www.extendoffice.com/documents/excel/2879-excel-create-button-to-open-sheet.html

السلام عليكم إذا كان أحد الإخوة الكرام يستطيع المساعدة أريد كود يقوم بإلغاء دمج الخلايا من كل الشيت ثم يقوم بدمج كل صفين مع بعض وإنشاء صفحة جديدة ووضع البنود المدموجة فيها لتكون كالشكل التالى وهكذا لباقى البنود(يوجد شرح لما هو مطلوب داخل الملف أيضاً) تجميع.xlsm

لازم تحط ملف وتقول اللى انت عاوزه فيه ياغالى عشان ميحصلش تخمين

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

ممكن أخى شرح الكود الذى أضفت لو تكرمت Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo 1 If Target.Column <> 5 Then Exit Sub ActiveSheet.Unprotect Password:="123" If Target.Offset(1, 0).Value <> "" And Target.Offset(-1, 0).Value <> "" Then Exit Sub If Target.Column <> 5 Then Exit Sub Application.EnableEvents = False If Target.Value <> "" Then Target.Offset(1).EntireRow.Insert Target.EntireRow.Copy Target.Offset(1).EntireRow On Error Resume Next Target.Offset(1).EntireRow.SpecialCells(xlConstants).ClearContents Target.Offset(1, -5).Select ActiveSheet.Protect Password:="123" End If On Error GoTo 0 Application.EnableEvents = True 1 End Sub

شوف الموضوع ده يا أخى ممكن يساعدك

بارك الله فى عملك

مشكور أخى حسونة على التوضيح فالغريب أعمى ولو كان بصيراً. ومشكور أخى عبدالفتاح على هذا الكود وعلى هذا المجهود ربنا يجعله فى ميزان حسناتكم والإخوة الكرام القائمين على هذا المنتدى

لدى فولدر به عدة فولدرات فرعية كل فولدر فيها يحتوى على ملفات إكسل وورد pdf أبحث عن كود يقوم بنسخ ملفات الpdf فقط من كل فولدر ووضعها فى فولدر جديد مثلاً بحثت ووجدت هذا الكود لكنه لا يعمل على الفولدرات الفرعية Sub MovePDFsToAnotherFolder() Dim FSO As Object, sourcePath As String, destPath As String Dim Fldr As Object, f As Object, ct As Long sourcePath = "C:\Users\Administrator\Downloads\nnnn\" 'Change path and folder name to suit destPath = "C:\Users\Administrator\Downloads\mmm\" 'Change path and folder name to suit Set FSO = CreateObject("Scripting.FileSystemObject") Set Fldr = FSO.GetFolder(sourcePath).Files For Each f In Fldr If f.Name Like "*.pdf*" Or f.Name Like "*PDF*" Then ct = ct + 1 f.Move destPath End If Next f If ct > 0 Then MsgBox ct & " pdf files have been moved" Else MsgBox "No pdf files found in the source folder" End If End Sub مرفق صورة للتوضيح

بارك الله لك فى علمك وزادك من فضله

نفع الله بكم وزادكم من علمه

نفع الله بكم وزادكم من علمه وفهمه

أ ضاحى جزاك الله خيراً على هذا العمل لو تكرمت بنعدل مسار الملف الورد فى أى مكان فى الكود ؟

أكرمكم الله ونفع بكم ووفقكم لكل خير

بارك الله فيك

ممتاز نجحت معى الطريقة جزاكم الله خيراً

نفس المشكلة تم التنزيل ومايفتح

ربنا يوفقك ويسددك

ألف مبروك تستاهل كل خير

أقف على الملف ثم خصائص ثم جرب هذا

عندى شيت اسمه cum به عمود اسمه Activity ID وعندى شيتات كل سيت له اسم عاوز أعمل دالة vlookup بالماكرو بحيث انه يمر على كل شيت من الشتات ويجيب القيمة فى العمود المقابل المعادلة معمولة فى أول صف للتوضيح حاولت بتسجيل الماكرو Sub Macro6() ' ' Macro6 Macro ' ' ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],'T-B3C1'!C[-2]:C[3],6,0)/100" Range("C3").Select Selection.AutoFill Destination:=Range("C3:C237") Range("C3").Select End Sub VLOOKUP.xlsm

Sub test3() Dim a: Dim i& With Sheet1 For i = 11 To Cells(Rows.Count, 4).End(xlUp).Row If .Cells(i, 4) = -1 Then .Cells(i, 3) = "متسرب" Next End With End Sub

مشكور أخى الكريم وكل من ساهم فى الرد سابقاً نجحت الفكرة جزاكم الله عنا خيراً جميعاً

عند إستخدام نفس الكود لجعل الخلايا لاتقبل قيمة أكبر من 8.2% تحدث مشكلة هى تقبل حتى 8.19 مثلاً إنما قيمة 8.2 لا تقبلها