ادراج اعمدة

[فوزى فوزى]

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

ونفس شئ للبند المصروفات اذا كتبنا فى العمود F اى بند يفعل نفس الشئ فى الشيتات م1 الى م12 وهذا نموذج للحل ادامكم الله عونا لنا وللامثالنا

ادارج اعمدة.xlsm

[محمد هشام.]

وعليكم السلام ورحمة الله وبركاته 

أخي هل سيتم نسخ  القيم الموجودة في عمود القرش والجنيه إلى الشيتات عند إضافة الأعمدة؟

او يتم نسخ رؤوس الأعمدة المذكورة فقط .

[فوزى فوزى]

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

[محمد هشام.]

تفضل اخي جرب ..ملاحظة لكي يشتغل معك الكود دون مشاكل حاول عدم حدف عمود المبلغ من الملف

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

[فوزى فوزى]

تسلم ايدك ياعبقرى على الشغل الجميل ده ربنا يرضيك ويجزيكم خير