For-Next/Cells Syntax help

[jsolomon]

Hi guys,
I am still trying to grasp the for-each-next logic, but it seems that I am sttill having trouble. The code I am trying to write this time will take the text in rows 16-60 & cols a-h on sheet-Invoice and copy it to the log worksheet. Here is my code. Any help is greatly appreciated.

      For SourceRow = 16 To 60
          Set SourceRange = ActiveWorkbook.Sheets("invoice").Range("Cells(SourceRow,1):Cells(SourceRow,8)")
          ActiveWorkbook.Sheets("log").Range("a1").Value = SourceRange
     Next SourceRow

Thanks,

Joe

 

[Barrie Davidson]

How about?

For SourceRow = 16 To 60
    Set SourceRange = ActiveWorkbook.Sheets("invoice").Range(Cells(SourceRow, 1), Cells(SourceRow, 8))
    SourceRange.Copy _
        Destination:=ActiveWorkbook.Sheets("log").Range("a" + SourceRow - 15)
Next SourceRow

 

[Norie]

Joe

Are you sure you need a loop here?

ActiveWorkbook.Sheets("invoice").Range("A16:H60").Copy
ActiveWorkbook.Sheets("log").Range("a1").PasteSpecial xlPasteValues

 

[jsolomon]

well i was going to put in an if statement becasue some of the rows may be blank.