![]() |
Send Keys
maybe is an Excel 2000+ feature, because, when I copy the
current region of a filetered data then I paste only the visible data Francisco Mariscal fcomariscal at hotmail dot com -----Original Message----- Pancho, When I copy the current region and paste, I get everything. Even the hidden cells. That is why I select only the visible cells. -- sb "pancho" wrote in message ... When I need to do this I prefer to copy the data, create a temporary sheet and then paste the data on it (It will be only the filtered data dat you have pasted on that sheet) The following code will do that: Dim sh as Worksheet Selection.CurrentRegion.Select Selection.Copy set sh=Sheets.Add sh.Paste Application.CutCopyMode = False (here you can use your filtered data) and finnaly you can delete the temporary sheet with: Application.DisplayAlerts = False sh.Delete Application.DisplayAlerts = true I hope this can be useful. Francisco Mariscal fcomariscal at hotmail dot com -----Original Message----- I have a large list of data; on which I have applied automatic filtering. Thereafter, I use filter conditions on one of the columns only to show selected records. Thereafter I want to automatically run down this column and do specific actions for each value in this column. I am able to do everything I want EXCEPT run down this column. The ACTIVECELL.OFFSET(1,0) obviously gives the physically next record; and so is not useful. I tried SENDKEYS "{DOWN}" to simulate pressing the down key; but for some strange reason it takes me to the last item in that column !! I tried SENDKEYS "{ENTER}" to simulate pressing the ENTER key. But nothing happens. Thus, currently I have to manually press enter every time before triggering off my macro. Any help will be useful. I do not want to write a FIND routine because eventually in my filter I may set filter conditions on several fields and then run down a column; in which case my FIND routines may not be that reliable or scalable. Many thanks . . |
Send Keys
Pancho,
Could be. I'm still in the "dark ages" with 97 (can't update until all my users update - what a ?@#@#!) -- sb "pancho" wrote in message ... maybe is an Excel 2000+ feature, because, when I copy the current region of a filetered data then I paste only the visible data Francisco Mariscal fcomariscal at hotmail dot com -----Original Message----- Pancho, When I copy the current region and paste, I get everything. Even the hidden cells. That is why I select only the visible cells. -- sb "pancho" wrote in message ... When I need to do this I prefer to copy the data, create a temporary sheet and then paste the data on it (It will be only the filtered data dat you have pasted on that sheet) The following code will do that: Dim sh as Worksheet Selection.CurrentRegion.Select Selection.Copy set sh=Sheets.Add sh.Paste Application.CutCopyMode = False (here you can use your filtered data) and finnaly you can delete the temporary sheet with: Application.DisplayAlerts = False sh.Delete Application.DisplayAlerts = true I hope this can be useful. Francisco Mariscal fcomariscal at hotmail dot com -----Original Message----- I have a large list of data; on which I have applied automatic filtering. Thereafter, I use filter conditions on one of the columns only to show selected records. Thereafter I want to automatically run down this column and do specific actions for each value in this column. I am able to do everything I want EXCEPT run down this column. The ACTIVECELL.OFFSET(1,0) obviously gives the physically next record; and so is not useful. I tried SENDKEYS "{DOWN}" to simulate pressing the down key; but for some strange reason it takes me to the last item in that column !! I tried SENDKEYS "{ENTER}" to simulate pressing the ENTER key. But nothing happens. Thus, currently I have to manually press enter every time before triggering off my macro. Any help will be useful. I do not want to write a FIND routine because eventually in my filter I may set filter conditions on several fields and then run down a column; in which case my FIND routines may not be that reliable or scalable. Many thanks . . |
All times are GMT +1. The time now is 04:57 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com