VBA Help

[Shalabh]

Hi,

I want to perform below mentioned action in each of the two sheets but could not succeed. Can you please help.

Cells(6, column1 + 1).Value = "Total1"
Cells(6, column1 + 2).Value = "Total2"
Cells(6, column1 + 3).Value = "Total3"
Cells(6, column1 + 4).Value = "Total4"
Cells(6, column1 + 5).Value = "Total5"
Cells(6, column1 + 6).Value = "Total6"
Cells(6, column1 + 7).Value = "Total7"
Cells(6, column1 + 8).Value = ""Total8"

 

[Michael M]

Try

Sub MM1()
Dim c As Integer
c = 1
Cells(6, c + 1).Value = "Total1"
Cells(6, c + 2).Value = "Total2"
Cells(6, c + 3).Value = "Total3"
Cells(6, c + 4).Value = "Total4"
Cells(6, c + 5).Value = "Total5"
Cells(6, c + 6).Value = "Total6"
Cells(6, c + 7).Value = "Total7"
Cells(6, c + 8).Value = "Total8"
End Sub

 

[Rick Rothstein]

Hi,

I want to perform below mentioned action in each of the two sheets but could not succeed. Can you please help.

Cells(6, column1 + 1).Value = "Total1"
Cells(6, column1 + 2).Value = "Total2"
Cells(6, column1 + 3).Value = "Total3"
Cells(6, column1 + 4).Value = "Total4"
Cells(6, column1 + 5).Value = "Total5"
Cells(6, column1 + 6).Value = "Total6"
Cells(6, column1 + 7).Value = "Total7"
Cells(6, column1 + 8).Value = ""Total8"

In each of what two sheets?

 

[Shalabh]

Hi Rick & Michael,

Thanks for your quick revert. May be I have not explained my query fully. I need to execute above mentioned code in each of the 2 sheets (out of 5 sheets in one workbook) simultaneously.

 

[Michael M]

As Rick asked....which 2 sheets ??

 

[Shalabh]

Sheet names are - Companies, Countries

 

[Rick Rothstein]

Sheet names are - Companies, Countries

These two lines of code should do all the assignments you asked for...

[table="width: 500"]
[tr]
	[td]  Sheets("Companies").Cells(6, column1 + 1).Resize(, 8) = Array("Total1", "Total2", "Total3", "Total4", "Total5", "Total6", "Total7", "Total8")
  Sheets("Countries").Cells(6, column1 + 1).Resize(, 8) = Array("Total1", "Total2", "Total3", "Total4", "Total5", "Total6", "Total7", "Total8")[/td]
[/tr]
[/table]

 

[Shalabh]

Hi Rik,

Thanks a lot. It solved my problem.

Now, let me go a step further. I have 10 lines of code which has to be repeated for both sheets - Companies and countries, is there a way to do it.

Thanks in advance.

Regards
Shalabh