| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Dynamic Listing
Hey guys,
Its been a while. Hope everyone is doing well. Anyway here is what I need. I need a code that will look in cell AA3, AJ3, AS3, BB1, etc... (this is every other 9th cell going towards the right until the end of the spreadsheet). I need the code to look in all these cells and then list the cell values in a vertical range starting in cell Y4. Thank you Todd Huttenstine |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Dynamic Listing
Sub Copy9th()
Set rng = Range("AA3") Set rng1 = Range("y4") For i = 0 To 25 rng1.Offset(i, 0).Value = _ rng.Offset(0, i * 9).Address Next End Sub -- Regards, Tom Ogilvy "todd Huttenstine" wrote in message ... Hey guys, Its been a while. Hope everyone is doing well. Anyway here is what I need. I need a code that will look in cell AA3, AJ3, AS3, BB1, etc... (this is every other 9th cell going towards the right until the end of the spreadsheet). I need the code to look in all these cells and then list the cell values in a vertical range starting in cell Y4. Thank you Todd Huttenstine |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Dynamic Listing
Thanx.
-----Original Message----- Sub Copy9th() Set rng = Range("AA3") Set rng1 = Range("y4") For i = 0 To 25 rng1.Offset(i, 0).Value = _ rng.Offset(0, i * 9).Address Next End Sub -- Regards, Tom Ogilvy "todd Huttenstine" wrote in message ... Hey guys, Its been a while. Hope everyone is doing well. Anyway here is what I need. I need a code that will look in cell AA3, AJ3, AS3, BB1, etc... (this is every other 9th cell going towards the right until the end of the spreadsheet). I need the code to look in all these cells and then list the cell values in a vertical range starting in cell Y4. Thank you Todd Huttenstine . |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Dynamic Listing
Change Address to value - that was for testing
Sub Copy9th() Set rng = Range("AA3") Set rng1 = Range("y4") For i = 0 To 25 rng1.Offset(i, 0).Value = _ rng.Offset(0, i * 9).value Next End Sub -- Regards, Tom Ogilvy "Todd Huttenstine" wrote in message ... Thanx. -----Original Message----- Sub Copy9th() Set rng = Range("AA3") Set rng1 = Range("y4") For i = 0 To 25 rng1.Offset(i, 0).Value = _ rng.Offset(0, i * 9).Address Next End Sub -- Regards, Tom Ogilvy "todd Huttenstine" wrote in message ... Hey guys, Its been a while. Hope everyone is doing well. Anyway here is what I need. I need a code that will look in cell AA3, AJ3, AS3, BB1, etc... (this is every other 9th cell going towards the right until the end of the spreadsheet). I need the code to look in all these cells and then list the cell values in a vertical range starting in cell Y4. Thank you Todd Huttenstine . |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Dynamic Listing
hey Tom
What is the significance of 25 in the 0 to 25 part of the code? And also I dont unmderstand the (0, i * 9) in the below part of the code. Can you please tell me how this works? rng1.Offset(i, 0).Value = _ Rng.Offset(0, i * 9).Value -----Original Message----- Sub Copy9th() Set rng = Range("AA3") Set rng1 = Range("y4") For i = 0 To 25 rng1.Offset(i, 0).Value = _ rng.Offset(0, i * 9).Address Next End Sub -- Regards, Tom Ogilvy "todd Huttenstine" wrote in message ... Hey guys, Its been a while. Hope everyone is doing well. Anyway here is what I need. I need a code that will look in cell AA3, AJ3, AS3, BB1, etc... (this is every other 9th cell going towards the right until the end of the spreadsheet). I need the code to look in all these cells and then list the cell values in a vertical range starting in cell Y4. Thank you Todd Huttenstine . |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Dynamic Listing
0 to 25 takes you from AA3 to IR3 (can't go past that)
you want count by 9 going across the columns, so i*9 does that. Regards, Tom Ogilvy "Todd Huttenstine" wrote in message ... hey Tom What is the significance of 25 in the 0 to 25 part of the code? And also I dont unmderstand the (0, i * 9) in the below part of the code. Can you please tell me how this works? rng1.Offset(i, 0).Value = _ Rng.Offset(0, i * 9).Value -----Original Message----- Sub Copy9th() Set rng = Range("AA3") Set rng1 = Range("y4") For i = 0 To 25 rng1.Offset(i, 0).Value = _ rng.Offset(0, i * 9).Address Next End Sub -- Regards, Tom Ogilvy "todd Huttenstine" wrote in message ... Hey guys, Its been a while. Hope everyone is doing well. Anyway here is what I need. I need a code that will look in cell AA3, AJ3, AS3, BB1, etc... (this is every other 9th cell going towards the right until the end of the spreadsheet). I need the code to look in all these cells and then list the cell values in a vertical range starting in cell Y4. Thank you Todd Huttenstine . |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Dynamic Listing
Hi
try Sub foo() Dim index As Integer For index = 0 To 25 Cells(4 + index, "Y").Value = _ Cells(3, 27 + (9 * index)).Value Next End Sub -- Regards Frank Kabel Frankfurt, Germany todd Huttenstine wrote: Hey guys, Its been a while. Hope everyone is doing well. Anyway here is what I need. I need a code that will look in cell AA3, AJ3, AS3, BB1, etc... (this is every other 9th cell going towards the right until the end of the spreadsheet). I need the code to look in all these cells and then list the cell values in a vertical range starting in cell Y4. Thank you Todd Huttenstine |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Dynamic pivot table linked to dynamic excel spreadsheets | Excel Worksheet Functions | |||
| Dynamic chart pasted to a new workbook in report can't be dynamic | Charts and Charting in Excel | |||
| Help with copying dynamic column selected based on remote cell value and dynamic formula fill | Charts and Charting in Excel | |||
| Dynamic Range with unused formula messing up x axis on dynamic graph | Charts and Charting in Excel | |||
| sum and listing | Excel Discussion (Misc queries) | |||
Hybrid Mode
