autofilter/cell selection problems
Hello,
I have a little program that needs to run on a sheet that has multiple user information on it. The users go in and use the auto filter funtion so that they only view the information important to them. When this program runs and they select the cells they want (They often drag the mouse over a range that may have hidden ranges within it) the program selects hidden cells aswell. Is there a way that it will only select the ranges that are selected and viewable: Here is the code I'm using for this section of the program: Dim rCells As Range Dim rRange As Range Dim rstart As Range Dim ireply As Integer Dim strStart As String On Error Resume Next 'Let the user choose the cells with the drawings that will appear on the Draw. Ack. Set rCells = Application.InputBox _ (Prompt:="Select the drawings you wish to appear on the Drawing Acknowledgement", _ Title:="Create Drawing Acknowledgement", Left:=558, Type:=8) For Each rRange In rCells... Thanks, Jordan |
autofilter/cell selection problems
I think you want to use:
Selection.SpecialCells(xlCellTypeVisible).Select -- steveB Remove "AYN" from email to respond "Jordan" wrote in message ... Hello, I have a little program that needs to run on a sheet that has multiple user information on it. The users go in and use the auto filter funtion so that they only view the information important to them. When this program runs and they select the cells they want (They often drag the mouse over a range that may have hidden ranges within it) the program selects hidden cells aswell. Is there a way that it will only select the ranges that are selected and viewable: Here is the code I'm using for this section of the program: Dim rCells As Range Dim rRange As Range Dim rstart As Range Dim ireply As Integer Dim strStart As String On Error Resume Next 'Let the user choose the cells with the drawings that will appear on the Draw. Ack. Set rCells = Application.InputBox _ (Prompt:="Select the drawings you wish to appear on the Drawing Acknowledgement", _ Title:="Create Drawing Acknowledgement", Left:=558, Type:=8) For Each rRange In rCells... Thanks, Jordan |
autofilter/cell selection problems
Thanks Steve, thats what I needed.
"STEVE BELL" wrote: I think you want to use: Selection.SpecialCells(xlCellTypeVisible).Select -- steveB Remove "AYN" from email to respond "Jordan" wrote in message ... Hello, I have a little program that needs to run on a sheet that has multiple user information on it. The users go in and use the auto filter funtion so that they only view the information important to them. When this program runs and they select the cells they want (They often drag the mouse over a range that may have hidden ranges within it) the program selects hidden cells aswell. Is there a way that it will only select the ranges that are selected and viewable: Here is the code I'm using for this section of the program: Dim rCells As Range Dim rRange As Range Dim rstart As Range Dim ireply As Integer Dim strStart As String On Error Resume Next 'Let the user choose the cells with the drawings that will appear on the Draw. Ack. Set rCells = Application.InputBox _ (Prompt:="Select the drawings you wish to appear on the Drawing Acknowledgement", _ Title:="Create Drawing Acknowledgement", Left:=558, Type:=8) For Each rRange In rCells... Thanks, Jordan |
autofilter/cell selection problems
Jordan,
You're welcome... keep on Exceling... -- steveB Remove "AYN" from email to respond "Jordan" wrote in message ... Thanks Steve, thats what I needed. "STEVE BELL" wrote: I think you want to use: Selection.SpecialCells(xlCellTypeVisible).Select -- steveB Remove "AYN" from email to respond "Jordan" wrote in message ... Hello, I have a little program that needs to run on a sheet that has multiple user information on it. The users go in and use the auto filter funtion so that they only view the information important to them. When this program runs and they select the cells they want (They often drag the mouse over a range that may have hidden ranges within it) the program selects hidden cells aswell. Is there a way that it will only select the ranges that are selected and viewable: Here is the code I'm using for this section of the program: Dim rCells As Range Dim rRange As Range Dim rstart As Range Dim ireply As Integer Dim strStart As String On Error Resume Next 'Let the user choose the cells with the drawings that will appear on the Draw. Ack. Set rCells = Application.InputBox _ (Prompt:="Select the drawings you wish to appear on the Drawing Acknowledgement", _ Title:="Create Drawing Acknowledgement", Left:=558, Type:=8) For Each rRange In rCells... Thanks, Jordan |
All times are GMT +1. The time now is 07:53 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com