Telecom Monthly Billing

[ashish mehra]

Hello everyone,

I have a task in my hand to compute billing for every phone number on a month on month base.

Every month there will be some new activation & decativation, we need to squeeze our data from various list of product.

I am posting sample file for reference, here is 2 months billing & we need to make as shown in master sheet.

Feel free to ask any question.

Regards
AM

 

[PCosta87]

Hi AM

Please try the following (Master File sheet must be active sheet):

Sub test()

    Application.ScreenUpdating = False
   
    Dim lastmonth, i As Integer
   
    lastmonth = ActiveSheet.Index - 1
   
    Columns("A:G").ClearContents
   
    For i = 1 To lastmonth
        Sheets(lastmonth).Columns("A:G").Copy Cells(1, 1)
        Sheets(i).Columns("H").Copy Cells(1, 7 + i)
        Cells(1, 7 + i).Value = "Charges (" & Sheets(i).Name & ")"
    Next i
   
    Application.ScreenUpdating = True

End Sub

Hope it helps