View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.misc
GS[_6_] GS[_6_] is offline
external usenet poster
 
Posts: 1,182
Default How to copy to a specific worksheet?

If you're looking to catch yourself up on using VBA perhaps you might
be interested in grabbing one of John Walkenbach's books...
http://spreadsheetpage.com/.com


Programming 'Best Practice' suggests that every object should have
*fully qualified refs* and so how I'd do this is...

Sub CopyTrackSheetCellsToWalkIndex()
Dim wsSource As Worksheet, wsTarget As Worksheet

Set wsSource = ActiveWorkbook.Sheets("Track Data")
'Or if from the file running the code;
Set wsSource = ThisWorkbook.Sheets("Track Data")

Set wsTarget = _

Workbooks("20160723-Day02-WH-Hoops-J-e560-m6.9.xlsm").Sheets("TEMP")

wsTarget.Range("C16") = wsSource.Range("B5")

Set wsSource = Nothing: Set wsTarget = Nothing
End Sub

You could also take it 1 step further...

Sub CopyTrackSheetCellsToWalkIndex2()
Dim rngSource As Range, rngTarget As Range

Set rngSource = ActiveWorkbook.Sheets("Track Data").Range("B5")
Set rngTarget =
Workbooks("20160723-Day02-WH-Hoops-J-e560-m6.9.xlsm").Sheets("TEMP").Range("C16")

rngTarget = rngSource

Set rngSource = Nothing: Set rngTarget = Nothing
End Sub

...where .Value is the default property of the Range object and so I did
not include it simply for code brevity!

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion