copy cell from sheet 2 to sheet 3 macro

slipperyjim · #1 02-17-2010, 09:20 PM

hi all, new to macroing for word 07. i am trying to accomplish running a macro from a check box that copies the contents of cell 2 in column one of my table to column 1 cell 11 on page 3. i have found some code on the net, can anyone help me modify it to suit?

p.s. i need the code to step to the next free cell.

Code:

Sub TransferOfData()
'
' TransferOfData Macro
'
Dim NextCol As Integer
  NextCol = Sheets(2).Cells(1, Columns.Count).End(xlToLeft).Column + 1
   Sheets(2).Range("L19:L26").Copy
    With Sheets(3).Cells(11, NextCol)
     .PasteSpecial Paste:=xlPasteValues
    End With
End Sub

this looks suspiciously like excel code, again, totally new to word coding.

thanks for any help.

slipperyjim · #2 02-18-2010, 01:31 AM

any thoughts

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Template for Noting Sheet.	Goldenbird	Word	8	05-25-2009 05:48 AM
Compare data in different columns in an Excel sheet	kgfendi	Excel	5	05-16-2009 05:42 PM
Setting up Analysis Sheet when data does not exist, yet.	burnoutdetective	Excel	0	10-13-2008 05:57 AM
sheet linking, sorting	nickbfe	Excel	0	05-19-2006 11:00 AM
Enter Number on any sheet one time only.	paulrm906	Excel	1	04-28-2006 07:35 AM