Prev: Sum the last 5 numbers in a column
Next: formula
From: enna49 on 3 Mar 2010 21:07
My apologies if I have done this incorrectly.
After closing off a previous post I added to this question.

Is there someway to select and update Multiple Worksheets in a Macro, I have
tried a couple of ways below I have included my latest code.

Sheets(Array("Regional Freight-QNRFA", "Int Retail-QNIMR", "Int
Wholesale-QNIMW", _
"Passenger-PS", "Network-NW", "Infrastructure-IS", "Workshop-WS",
"COMB IS & WS")).Select

Dim d As Date
d = InputBox("Enter the desired date.")
Range("C1").Value = d

This will only update the first sheet
Thanking you
From: Jarek Kujawa on 4 Mar 2010 03:24
Sub Makro1()

Range("C1").Select

Dim d As Date
d = InputBox("Enter the desired date.")

Sheets(Array("Regional Freight-QNRFA", "Int Retail-QNIMR", "Int
Wholesale-QNIMW", "Passenger-PS", "Network-NW", "Infrastructure-IS",
"Workshop-WS","COMB IS & WS")).Select

Selection.FormulaR1C1 = d

End Sub



On 4 Mar, 03:07, enna49 <enn...(a)discussions.microsoft.com> wrote:
> My apologies if I have done this incorrectly.
> After closing off a previous post I added to this question.
>
> Is there someway to select and update Multiple Worksheets in a Macro, I have
> tried a couple of ways below I have included my latest code.
>
>  Sheets(Array("Regional Freight-QNRFA", "Int Retail-QNIMR", "Int
> Wholesale-QNIMW", _
>         "Passenger-PS", "Network-NW", "Infrastructure-IS", "Workshop-WS",
> "COMB IS & WS")).Select
>
>     Dim d As Date
>  d = InputBox("Enter the desired date.")
>  Range("C1").Value = d
>
> This will only update the first sheet
> Thanking you

From: enna49 on 4 Mar 2010 23:05
Thank you, you guys are great.
Works perfectly


"Jarek Kujawa" wrote:

> Sub Makro1()
>
> Range("C1").Select
>
> Dim d As Date
> d = InputBox("Enter the desired date.")
>
> Sheets(Array("Regional Freight-QNRFA", "Int Retail-QNIMR", "Int
> Wholesale-QNIMW", "Passenger-PS", "Network-NW", "Infrastructure-IS",
> "Workshop-WS","COMB IS & WS")).Select
>
> Selection.FormulaR1C1 = d
>
> End Sub
>
>
>
> On 4 Mar, 03:07, enna49 <enn...(a)discussions.microsoft.com> wrote:
> > My apologies if I have done this incorrectly.
> > After closing off a previous post I added to this question.
> >
> > Is there someway to select and update Multiple Worksheets in a Macro, I have
> > tried a couple of ways below I have included my latest code.
> >
> > Sheets(Array("Regional Freight-QNRFA", "Int Retail-QNIMR", "Int
> > Wholesale-QNIMW", _
> > "Passenger-PS", "Network-NW", "Infrastructure-IS", "Workshop-WS",
> > "COMB IS & WS")).Select
> >
> > Dim d As Date
> > d = InputBox("Enter the desired date.")
> > Range("C1").Value = d
> >
> > This will only update the first sheet
> > Thanking you
>
> .
>
 | 
Pages: 1
Prev: Sum the last 5 numbers in a column
Next: formula