فوزى فوزى قام بنشر سبتمبر 18, 2022 مشاركة قام بنشر سبتمبر 18, 2022 السلام عليكم ورحمة الله وبركاته استاذة وعباقرة منتدى اوفيسنا نرجو المساعدة فى ادراج اعمدة للشيتات الخاصة ببند الايرادات مثلا اذا كتبت فى العمود C بند ثالث مثلا مواصلات يدرج عمودين فى الشيتات 1 الى الشيت 12 ويكتب موصلات واسفله عمود به قرش وعمود به جنيه بعد اخر بيان مكتوب فى الشيتات وهو كهرباء بعد عمود الكهرباء يدرج عمودان للموصلات به نفس التنسيق وبه ايضا المعادلات ونفس شئ للبند المصروفات اذا كتبنا فى العمود F اى بند يفعل نفس الشئ فى الشيتات م1 الى م12 وهذا نموذج للحل ادامكم الله عونا لنا وللامثالنا ادارج اعمدة.xlsm رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر سبتمبر 25, 2022 مشاركة قام بنشر سبتمبر 25, 2022 وعليكم السلام ورحمة الله وبركاته أخي هل سيتم نسخ القيم الموجودة في عمود القرش والجنيه إلى الشيتات عند إضافة الأعمدة؟ او يتم نسخ رؤوس الأعمدة المذكورة فقط . 1 رابط هذا التعليق شارك More sharing options...
فوزى فوزى قام بنشر سبتمبر 25, 2022 الكاتب مشاركة قام بنشر سبتمبر 25, 2022 شكرا لكم استاذ محمد على المساعدة المطلوب تسخ رؤس الاعمدة وكلمة قرش وجنيه فقط رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد هشام. قام بنشر سبتمبر 25, 2022 أفضل إجابة مشاركة قام بنشر سبتمبر 25, 2022 تفضل اخي جرب ..ملاحظة لكي يشتغل معك الكود دون مشاكل حاول عدم حدف عمود المبلغ من الملف Private Sub Worksheet_Change(ByVal Target As Range) Dim AncValeur, NouvValeur, Cel, Col Dim rRange Application.ScreenUpdating = False If Not Intersect(Target, Range("C5:C15,F5:F15")) Is Nothing And Target.CountLarge = 1 Then Application.EnableEvents = False NouvValeur = Target Application.Undo AncValeur = Target.Value If AncValeur = "" And NouvValeur <> "" Then Target = NouvValeur Set Cel = Sheets("1").Range("3:3").Find("المبلغ") If Not Cel Is Nothing Then Col = Cel.Column For i = 1 To 12 With Sheets("" & i & "") .Activate .Range(.Cells(3, Col - 2), .Cells(15, Col - 1)).Select Selection.Copy Selection.Insert Shift:=xlToRight Application.CutCopyMode = False .Range(.Cells(3, Col), .Cells(3, Col + 1)).Value = Target End With Next i Sheets("المريا").Select End If End If Application.EnableEvents = True End If End Sub -2ادراج الاعمدة.xlsm 1 رابط هذا التعليق شارك More sharing options...
فوزى فوزى قام بنشر سبتمبر 25, 2022 الكاتب مشاركة قام بنشر سبتمبر 25, 2022 تسلم ايدك ياعبقرى على الشغل الجميل ده ربنا يرضيك ويجزيكم خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها