abdelfattahbadawy

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

تسلم أخى الكريم نفع الله بكم وزادكم من علمه

عاوز أخد مجموعة بيانات من شيت للشيت تانى ويعمل لهم لصق transpose ويكون اللصق link أنا جربت الكود ده بس مش ظابط معايا Sub Macro3() ' Macro1 Macro Sheets("2nd").Select ActiveWindow.SmallScroll Down:=-12 Range("H19:O19").Select Selection.Copy Sheets("Sheet1").Select ' Range("J16").Select ' Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ ' :=False, Transpose:=False ' Application.CutCopyMode = False ' Selection.Style = "Percent" ' Selection.Copy Range("J17").Select Selection.Paste Link:=True, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True End Sub مرفق الملف Dar Data Base.xlsm

نفع الله بكم أخى عمر وزادكم فى العلم والفهم ووسع لكم فى رزقكم

هل يمكن بمجرد الضغط على أى خلية فى العمود C والعمود E يظهر يوزرفوم أختار منه التاريخ مع العلم أنى أستخدم إكسيل 2019 -64 بت DATE.xlsm

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

أحتاج كود لإختيار الخلايا التى قيمتها 15% فى ورقة العمل وإعطائها Define name (rng_15) مثلاً وأنا أقوم بباقى العمل Book1.xlsm

مشكور أخى الكريم تم بفضل مجهود حضرتك استاذى الكريم

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

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

مشكور أخى نزار الكود الأول ما ظبط معى الكود الثانى شغال فى تقسيم الصفحة على حسب عدد الصفوف التى يتم إدخالها ...... لكن هل توجد طريقة لمنع المستخدم من تعديل فواصل الطباعة ؟

أريد تثبيت مثلاً من الصف 1 وحتى الصف عشرين لطباعتهم فى صفحة ومن 21 ل37 لطباعتهم فى الصفحة الثانية وهكذا بحيث لايقوم المستخدم بتعديل فواصل الطباعة test_print.xlsm

بارك الله فيك أخى عمر وزادك من علمه ونفع بك

عندى مجموعة من الخلايا بها نسب مئوية أريد الخلايا تقبل نسب مابين 0% و15.3% حاولت أعملها بالData validation بس ما عرفت وجزاكم الله خيراً test01.xlsx

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

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

Sub ProtectSheets101() Dim wsheet As Worksheet For Each wsheet In ActiveWorkbook.Worksheets wsheet.Protect "s2021", True, True Next wsheet End Sub Sub unprotectsheets102() Dim wsheet As Worksheet For Each wsheet In ActiveWorkbook.Worksheets wsheet.Unprotect password:="s2021" Next wsheet End Sub

غفر الله لك ولوالديك وزادك من علمه وبسط عليك من واسع رزقه

عندى Sheet1 به قيم وشيت Sheet2 به قيم أخرى أريد مقارنة القيم مع بعضها ولو وجد القيمية للخلية فى Sheet1 تساوى القيمةللخلية فى Sheet2 يقوم بتلوينها باللون الأصفر ولو أقل باللون الأحمر ولو أكبر باللون الأخضر TEST.xlsx

الملف لا يعمل عند تسطيبة يقوم بإظهار رسالة خطأ