Adding data and delete sheets

Sahil1390 · Jan 6, 2017

Hello friends

I want add data(e.g. =sum(A1:B1) in cell C1) in all the sheets(Naming 1,2,3,....10) selecting from the master sheet containing names of sheets using vba.

Also a program to delete those defined sheets in master.

Thank you

p45cal · Jan 10, 2017

Button labelled Add formulae on Master sheet in attached runs the following macro:

Code:

Sub blah()
With Sheets("Master").Range("A1").CurrentRegion
  For Each cll In .Cells
    Sheets(cll.Text).Range("C1").FormulaR1C1 = "=SUM(RC[-2]:RC[-1])"
  Next cll
  '.Clear 'enable this line to clear the cells containing the sheet names on the Master sheet.
End With
End Sub

Button labelled Delete sheets on Master sheet in attached runs the following macro:

Code:

Sub blah2()
Application.DisplayAlerts = False
For Each cll In Sheets("Master").Range("A1").CurrentRegion.Cells
  Sheets(cll.Text).Delete
Next cll
Application.DisplayAlerts = True
End Sub

Sahil1390 · Jan 11, 2017

Thanks a lot my friend
Thats a big help.

Adding data and delete sheets

Sahil1390

New member

Attachments

p45cal

Super Moderator

Attachments

Sahil1390

New member