كيفية جمع كودين أو أكثر بكود واحد

[أبو يوسف النجار]

السلام عليكم .. لابد من التحية عند بدء أى مشاركة ,,السادة الخبراء بالاكسل 

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

جمع كودين أو أكثر.xlsm

[محمد هشام.]

Sub Convert_Formula_To_VBA()
    Dim ws As Worksheet, lr As Long
     
    Set ws = ThisWorkbook.Worksheets("Sheet1")
     
    Application.ScreenUpdating = False
        With ws
                    lr = .Cells(Rows.Count, 2).End(xlUp).Row
                        With .Range("C2:C" & lr)
              
                .Formula = "=COUNTA(A2,B2)"
                 
                .Value = .Value
            End With
        End With
Call Convert_Formula_To_VBA2
    Application.ScreenUpdating = True
    
End Sub

كما يمكنك وضع الكود بهذه الطريقة

Sub Convert_Formula_To_VBA3()
    Dim ws As Worksheet, lr As Long
    Application.ScreenUpdating = False
    Set ws = ThisWorkbook.Worksheets("Sheet1")
        With ws
                    lr = .Cells(Rows.Count, 2).End(xlUp).Row
                        With .Range("C2:C" & lr)
                .Formula = "=COUNTA(A2,B2)"
                .Value = .Value
            End With
        With ws
         With .Range("D2:D" & lr)
        .Formula = "=COUNTA(A2,B2,C2)"
                .Value = .Value
    End With
    End With
    End With
     Application.ScreenUpdating = True
End Sub

[أبو يوسف النجار]

شكرا جزيلا مستر محمد بارك الله فيكم تم بحمد الله