If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Macro in Excel
I am creating a macro, and need to select the next cell down after the
selected cell, and then to run the entire macro until the end of the data on the sheet. I am new, and would like very basic instructions, please. Thanks, Cristina |
#2
|
|||
|
|||
Macro in Excel
Christina,
Selecting cells is a poor way of doing what you want because it takes time and you can almost certainly achieve what you want without selecting anything. The snippet of code below loops through the used range of column A Sub Christina() Dim MyRange As Range Dim LastRow As Long Set Sht = Sheets("Sheet1") LastRow = Sht.Cells(Cells.Rows.Count, "A").End(xlUp).Row Set MyRange = Sht.Range("A1:A" & LastRow) For Each c In MyRange 'your code Next End Sub -- Mike When competing hypotheses are otherwise equal, adopt the hypothesis that introduces the fewest assumptions while still sufficiently answering the question. "Christina" wrote: I am creating a macro, and need to select the next cell down after the selected cell, and then to run the entire macro until the end of the data on the sheet. I am new, and would like very basic instructions, please. Thanks, Cristina |
#3
|
|||
|
|||
Macro in Excel
Thanks for your answer, but my knowledge is limited. I don't know codes.
What I am doing is copying data next to columns as in the example below. A B C D Vendor ID Brodies Invoice #1 6/3/2010 $10.00 Invoice #2 6/4/2010 $20.00 Invoice #3 6/5/2010 $30.00 Invoice #4 6/6/2010 $40.00 Vendor ID Caladium Invoice #5 6/3/2010 $10.00 Invoice #6 6/4/2010 $20.00 Invoice #7 6/5/2010 $30.00 Invoice #8 6/6/2010 $40.00 I made a macro and have been able to copy the vendor ID next to the invoice Numbers for Brodie, then a search for "vendor ID", and selected the cell above CALADIUM. then would like to move to next cell below and copy the name Caladium next to the invoice number(will copy the codes already in the macro) and continue down the sheet until there is no more data. Thanks, Cristina "Mike H" wrote: Christina, Selecting cells is a poor way of doing what you want because it takes time and you can almost certainly achieve what you want without selecting anything. The snippet of code below loops through the used range of column A Sub Christina() Dim MyRange As Range Dim LastRow As Long Set Sht = Sheets("Sheet1") LastRow = Sht.Cells(Cells.Rows.Count, "A").End(xlUp).Row Set MyRange = Sht.Range("A1:A" & LastRow) For Each c In MyRange 'your code Next End Sub -- Mike When competing hypotheses are otherwise equal, adopt the hypothesis that introduces the fewest assumptions while still sufficiently answering the question. "Christina" wrote: I am creating a macro, and need to select the next cell down after the selected cell, and then to run the entire macro until the end of the data on the sheet. I am new, and would like very basic instructions, please. Thanks, Cristina |
Thread Tools | |
Display Modes | |
|
|