نجوم المشاركات

ولك بالمثل اخي لقد لاحظت ان الاعمدة الاخيرة تتضمن روابط المقاطع على اليوتيوب والفايس اليك تحديث الكود لتتمكن من نسخ Hyperlinks المواقع والانتقال اليها عبر الوورد Public Property Get n() As Worksheet: Set n = Worksheets("WordCopy") End Property Sub Copy_Transfer_WORD1() Dim arr() As String: Dim cnt() As String Dim lastRow As Long: Dim rngA As Variant: Dim rngB As Variant Dim OneRng As Range: Dim tmp As Range: Dim Ary As Variant Dim i As Long: Dim r As Integer: Dim x As Long: Dim j As Range Application.DisplayAlerts = False Application.ScreenUpdating = False Set WS = Worksheets("Sheet1") n.Visible = xlSheetVisible: n.Cells.UnMerge n.Range("A1:J" & n.Rows.Count).Clear lige = 7 lastRow = WS.Range("A" & WS.Rows.Count).End(xlUp).Row cnt() = Split("I-H,J-I", ",") rngA = Array(1, 3, 4, 5, 6, 7, 8) rngB = Array(1, 2, 3, 4, 5, 6, 7) For i = 0 To UBound(rngA) With WS Set OneRng = .Range(.Cells(lige, _ rngA(i)), .Cells(lastRow, rngA(i))).SpecialCells(xlCellTypeVisible) OneRng.Copy n.Cells(1, _ rngB(i)).PasteSpecial Paste:=xlPasteValuesAndNumberFormats End With Next i For r = 0 To UBound(cnt): arr = Split(cnt(r), "-") WS.Range(arr(0) & "8:" & arr(0) & lastRow).Copy Destination:=n.Cells(2, arr(1)) Next r lr = n.Cells(n.Rows.Count, "A").End(xlUp).Row Set tmp = n.Range("A1:J" & n.Rows.Count) Set a = n.Rows(1): Set b = n.Rows(2): Set d = n.[A1:I1]: Set E = n.Range("A3:I" & lr) a.RowHeight = 75: a.Font.Bold = True: b.RowHeight = 40: b.Font.Bold = True: b.Font.Size = 14: d.Font.Size = 24 d.Merge: d.Interior.Color = RGB(192, 192, 192): n.[A2:I2].Interior.Color = RGB(215, 238, 247) With E .Font.Name = "AdvertisingBold": .Font.Size = 13 .WrapText = True: .MergeCells = False End With F = n.Cells(2, n.Columns.Count).End(xlToLeft).Column n.Range(n.Cells(2, 1), n.Cells(lr, F)).Borders.Weight = xlThin Ary = Array(5, 15, 38, 38, 38, 15, 15, 15, 15) For x = 0 To UBound(Ary) n.Columns(x + 1).ColumnWidth = Ary(x) Next x Set Irow = n.Range("A3", n.Cells(n.Rows.Count, "A").End(xlUp)) For Each j In Irow.Rows If j.RowHeight < 20 Then: j.RowHeight = 35: Else j.EntireRow.AutoFit Next With tmp .EntireColumn.HorizontalAlignment = xlCenter .EntireColumn.VerticalAlignment = xlCenter End With With n.Range("A3:A" & n.Cells(Rows.Count, "B").End(xlUp).Row) .Value = Evaluate("ROW(" & .Address & ")-2") End With WS.Activate: ExcelToWordSheet1 n.Visible = xlSheetVeryHidden Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub 2024 final V3.xlsm

شكرا جزيلا أخي الفاضل

ليه اكتر من يوم متغيب عن المنتدى ودا مش من عادته أن شاء الله خير

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

تفضل stock4.rar

3D_IMG_BooK_V1.rar شنو الاكواد الي بتخليهم في موديول؟

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

السلام عليكم ورحمة الله وبركاته سيدي الفاضل M.Abd Allah المحترم الذي حققته لي اكثر مما اتمناه . بارك الله لك في جهود لن تضيع، أسأل الله أن يزيدك إحسانًا وأن يكتبك من الصالحين الأبرار، ويرفع عنك الحزن والهم، وان يكتب لك سعة الرزق في الحياة، والجنة في الآخرة . اشعرتنا بأن الحياة لا تزال بخير، شكرًا على معروفك معي .

ولا يهمك اتفضل المرفق بعد التعديل 17 june_2.rar

استاذي القدير @محمد هشام. وحضرتك طيب وبخير يارب العالمين والله ماعارف اشكر حضرتك ازاي ؟ حضرتك بالفعل شديد الكرم ربما جعل ما تفعله في ميزان حسناتك يارب العالمين جزيل الشكر والتقدير لشخصك الكريم

لا ولا يهمك طيب استأذنك افتح الملف ده وشوف التغيرات وجرب كده تعدل اي بيانات للكشوفات العياده22.mdb استأذنك جرب كده اللي انت عايزه من خلال نفس القاعده الجديده اللي بعتهالك وقولى رايك

تفضل استاذ @2saad طلبك حسب مافهمت اليك الشرح والمرفق .ووافني بالرد . noha-1.rar

لا مو Ezril ؟!!! هذا من تأثير البرق 😂 انا جمعة مكتابتي العامره من استاذي @ابو جودي❤️❤️ واكثر و @Moosak و Ezril و عبدالغفار و @Ahmos واجنبي 😇 الكل لهم الشكر والامتنان وانا كنت احاولة الاختصار وتعرف العيد يبيله تجهيزات شكله مرفقي شحنته مضروبة 😂 استاذي @ابو جودي ❤️🌹 هل يوجد دالة تعيد رقم التلقائي للعلاقة IDD رقم 😇 وكل سنة جديده من غير تنشيط + وانا بعدل ؟! نسيت شغلة لعرض مكتبة الصور واضافة دالة @Ahmos جلب الصور في ملفين ملف للعرض تكون الصوره متطابق الارتفاع والعرض = تمديد الصورة ❤️🌹🌹

هذا الكود يعمل للشهر الحالي والشهر السابق ، ولكني تذكرت بأن الشهر مكتوب عندك في حقل آخر ، لذا سنحتاج الى بيانات لتجربتها (عند شهر يناير (1) ، فنحتاج تصحيح الناتج) 🙂 مبدئيا جرب: A2: (Select Sum([m_price]) From Qry_UNION_MOKHTABER Where date_R between DateSerial(Year(Date()),[myMonth]-1,27)) And DateSerial(Year(Date()),[myMonth],26) حيث [myMonth] هو اسم حقل "كود الشهر". جعفر

وانتم في صحة وسلامة، والى الله اقرب 🙂

======================================= تحميل App_IMG_BooK V1.part1.rar App_IMG_BooK V1.part2.rar App_IMG_BooK V1.part3.rar

جرب احدى المعادلات التالية 1) =IFERROR(INDEX($C$5:$C$10000;MATCH(2;1/($C$5:$C$10000<>"")));"") 2) =IFERROR(LOOKUP(2;1/($C$5:$C$1000<>"");$C$5:$C$1000);"") 3)قيمة رقمية =IFERROR(LOOKUP(9E+307;C:C);"") mdrrsah.xlsx

لا الأخ فوكش ١٩٦٠ متواجد والحمد لله، لانه جاوب على سوالي البارحة، تحياتي لهم كلهم و دمتم في رعاية العالي الكبير 🌹🌹❤️❤️

الحمد لله أنه بخير شكرا لحضرتك جزاكم الله خيرا على اهتمام حضرتك

الحمد لله لقد تم السؤال عن استاذنا الفاضل / FOKSh وافادنى بنفسه بانه فى اتم صحة فقط مشغول ببعض الاعمال والاشغال وخصوص قبل العيد تكثر الاشغال والاعمال لديه وهو يتأسف لنا جمعيا عن غيابة وبعد فراغه من العمل سوف يعود لنا نحمد الله على سلامته وعودته لنا ان شاء الله جزاكم الله خيرا على السؤال

سوف اسأل عنه واقوم باخباركم ان شاء الله وهذه ملوحظة تستحقين عليها الشكر والامتنان

السلام عليكم ورحمة الله فعلا اختي الكريمة فقد لفت نظري عدم تواجد اخوانا FOKSh فقد كان شعلة نشاط في هذا المنتدى العامر فلعل المانع خيراً إن شاء الله. فمعظم الخبراء غير متواجدين في المنتدى مثل اخونا الكبير kkhalifa1960 بارك الله فيهم جميعا ورزقهم الخير حيث كانو وفرج عنهم الكرب ووقاهم الله كل شر ... امين وجزاهم الله خير الجزاء. فهم عون حقيقي لكل تائه و هم دائما سباقون للخير ومساعدة الناس. فشكرا جزيلا لكل خبراء المنتدى الذين لا نعرفهم شخصياً ولكن نعرف الخير والعون الذي قدموه لنا.