Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Next Row
Hi Everbody
A little help needed with the following I have the following macro on sheet "List2" how would I add another macro that would pick the next row on sheet "List1" I would prefer to add a button on "List2" and by just clicking on it it will go to the next row. Sub Macro1() Dim myCell As Range For Each myCell In Worksheets("LIST1").Range("A2:A2") If myCell.Value < "" Then Worksheets("LIST2").Range("C6").Value = myCell(1, 2).Value Worksheets("LIST2").Range("C7").Value = myCell(1, 3).Value Worksheets("LIST2").Range("C8").Value = myCell(1, 4).Value Worksheets("LIST2").Range("C9").Value = myCell(1, 5).Value Worksheets("LIST2").Range("C10").Value = myCell(1, 6).Value Worksheets("LIST2").Range("F8").Value = myCell(1, 7).Value Worksheets("LIST2").Range("C11").Value = myCell(1, 8).Value Worksheets("LIST2").Range("F9").Value = myCell(1, 9).Value Worksheets("LIST2").Range("F10").Value = myCell(1, 10).Value Worksheets("LIST2").Range("F11").Value = myCell(1, 11).Value Worksheets("LIST2").Range("F12").Value = myCell(1, 12).Value Worksheets("LIST2").Range("F13").Value = myCell(1, 13).Value Worksheets("LIST2").Range("F14").Value = myCell(1, 14).Value Worksheets("LIST2").Range("C4").Value = myCell(1, 15).Value Worksheets("LIST2").Range("E3").Value = myCell(1, 16).Value End If Next myCell End Sub -- Many thanks hazel |