macro pick 100 lines
hi, I have some examples been trying, but cannot get a selection of 100 rows
down, from the current cell, that column only. any help appreciated, thanks. some stuff trying: (with many variations) Sub Copy() 'alt-, (comma) wip: copy column 190 rows down from active cell, pending 'reduce all windows, restore main window, pause conflict with ie, etc. click button does not work 'Rows(ActiveCell.Row).Select Cells(ActiveCell.Cells).Select 'Rows(ActiveCell.Row) Offset(0, 180).Select '.Offset(0, 180).Select 'Selection.Copy 'ActiveWindow.LargeScroll Down:=4 'Columns(ActiveCell.Column).Select 'Rows(ActiveCell.Row).Select 'Selection.Copy End Sub |
macro pick 100 lines
Range(ActiveCell, ActiveCell.Offset(100, 0)).Copy
or Range(ActiveCell, ActiveCell.Offset(100, 0)).Select -- HTH... Jim Thomlinson "MrDave" wrote: hi, I have some examples been trying, but cannot get a selection of 100 rows down, from the current cell, that column only. any help appreciated, thanks. some stuff trying: (with many variations) Sub Copy() 'alt-, (comma) wip: copy column 190 rows down from active cell, pending 'reduce all windows, restore main window, pause conflict with ie, etc. click button does not work 'Rows(ActiveCell.Row).Select Cells(ActiveCell.Cells).Select 'Rows(ActiveCell.Row) Offset(0, 180).Select '.Offset(0, 180).Select 'Selection.Copy 'ActiveWindow.LargeScroll Down:=4 'Columns(ActiveCell.Column).Select 'Rows(ActiveCell.Row).Select 'Selection.Copy End Sub |
macro pick 100 lines
Another one:
Activecell.resize(100,1).copy ... MrDave wrote: hi, I have some examples been trying, but cannot get a selection of 100 rows down, from the current cell, that column only. any help appreciated, thanks. some stuff trying: (with many variations) Sub Copy() 'alt-, (comma) wip: copy column 190 rows down from active cell, pending 'reduce all windows, restore main window, pause conflict with ie, etc. click button does not work 'Rows(ActiveCell.Row).Select Cells(ActiveCell.Cells).Select 'Rows(ActiveCell.Row) Offset(0, 180).Select '.Offset(0, 180).Select 'Selection.Copy 'ActiveWindow.LargeScroll Down:=4 'Columns(ActiveCell.Column).Select 'Rows(ActiveCell.Row).Select 'Selection.Copy End Sub -- Dave Peterson |
macro pick 100 lines
hi, thanks for the replies, they work, trying to get the syntax of what's
happening, still studying, but: hi, the items given worked, am also trying to make a scroll down from any current position, seems to be much faster than page down: thanks faster, but only works to one destination, is there a way to modify this to +100 lines from current cell? ActiveWindow.ScrollRow = 800 works slow: Sub Test() Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveWindow.LargeScroll Down:=4 End Sub Left to right quick, set positon, need same for down for any start pos ActiveWindow.ScrollColumn = 114 "Jim Thomlinson" wrote: Range(ActiveCell, ActiveCell.Offset(100, 0)).Copy or Range(ActiveCell, ActiveCell.Offset(100, 0)).Select -- HTH... Jim Thomlinson "MrDave" wrote: hi, I have some examples been trying, but cannot get a selection of 100 rows down, from the current cell, that column only. any help appreciated, thanks. some stuff trying: (with many variations) Sub Copy() 'alt-, (comma) wip: copy column 190 rows down from active cell, pending 'reduce all windows, restore main window, pause conflict with ie, etc. click button does not work 'Rows(ActiveCell.Row).Select Cells(ActiveCell.Cells).Select 'Rows(ActiveCell.Row) Offset(0, 180).Select '.Offset(0, 180).Select 'Selection.Copy 'ActiveWindow.LargeScroll Down:=4 'Columns(ActiveCell.Column).Select 'Rows(ActiveCell.Row).Select 'Selection.Copy End Sub |
macro pick 100 lines
yep sure u betchya, hours of attempts, and get a start with item right after
I posted, thanks, got: ActiveCell.Offset(100, 0).Select "Jim Thomlinson" wrote: Range(ActiveCell, ActiveCell.Offset(100, 0)).Copy or Range(ActiveCell, ActiveCell.Offset(100, 0)).Select -- HTH... Jim Thomlinson "MrDave" wrote: hi, I have some examples been trying, but cannot get a selection of 100 rows down, from the current cell, that column only. any help appreciated, thanks. some stuff trying: (with many variations) Sub Copy() 'alt-, (comma) wip: copy column 190 rows down from active cell, pending 'reduce all windows, restore main window, pause conflict with ie, etc. click button does not work 'Rows(ActiveCell.Row).Select Cells(ActiveCell.Cells).Select 'Rows(ActiveCell.Row) Offset(0, 180).Select '.Offset(0, 180).Select 'Selection.Copy 'ActiveWindow.LargeScroll Down:=4 'Columns(ActiveCell.Column).Select 'Rows(ActiveCell.Row).Select 'Selection.Copy End Sub |
All times are GMT +1. The time now is 01:55 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com