Barrakooda
Board Regular
- Joined
- Feb 3, 2012
- Messages
- 75
Hi all
Bit stumped & seeking assistance, vba isnt my thing.
I have a work book with several sheets in it. I am trying to copy the data from M2 on each sheet & paste it into Column C but in the next blank cell.
At the end of running the macro i would like to refresh a pivot table = PivotTable1
Help would be appreciated
So far i have
&
Bit stumped & seeking assistance, vba isnt my thing.
I have a work book with several sheets in it. I am trying to copy the data from M2 on each sheet & paste it into Column C but in the next blank cell.
At the end of running the macro i would like to refresh a pivot table = PivotTable1
Help would be appreciated
So far i have
Code:
Sub RefreshGraphs()
'
' RefreshGraphs Macro
'
'
Sheets("PIVOT").Select
Range("D10").Select
ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh
Sheets("MTD Trending").Select
End Sub
&
Code:
Worksheets("TRUCKS").Range("M2").Copy _
Destination:=Worksheets("TRUCKS").Cells(Worksheets("TRUCKS").Rows.Count, "C").End(xlUp).Offset(1, 0)
Worksheets("EX2600").Range("M2").Copy _
Destination:=Worksheets("EX2600").Cells(Worksheets("EX2600").Rows.Count, "C").End(xlUp).Offset(1, 0)
Worksheets("WA500").Range("M2").Copy _
Destination:=Worksheets("WA500").Cells(Worksheets("WA500").Rows.Count, "C").End(xlUp).Offset(1, 0)
Worksheets("WA600").Range("M2").Copy _
Destination:=Worksheets("WA600").Cells(Worksheets("WA600").Rows.Count, "C").End(xlUp).Offset(1, 0)
Worksheets("WA600LC").Range("M2").Copy _
Destination:=Worksheets("WA600LC").Cells(Worksheets("WA600LC").Rows.Count, "C").End(xlUp).Offset(1, 0)
Worksheets("992K").Range("M2").Copy _
Destination:=Worksheets("992K").Cells(Worksheets("992K").Rows.Count, "C").End(xlUp).Offset(1, 0)
Worksheets("16M").Range("M2").Copy _
Destination:=Worksheets("16MK").Cells(Worksheets("16M").Rows.Count, "C").End(xlUp).Offset(1, 0)
Worksheets("D10T").Range("M2").Copy _
Destination:=Worksheets("D10T").Cells(Worksheets("D10T").Rows.Count, "C").End(xlUp).Offset(1, 0)