Ike Hunter
New Member
- Joined
- Dec 15, 2011
- Messages
- 35
Is there a shorter way of writing VBA to select non-adjacent cells in an active row for the following...
Selecting first empty cell in column A and then selecting the adjacent cells that are in columns B, E, and G and then Filldown the existing formulas.
The following example works however it just seems there could be a better way to write the VBA especially if there are 15 to 20 non adjacent cells on the active row.
[A65000].Select
Selection.End(xlUp)(2, 2).Select
Selection.FillDown
[A65000].Select
Selection.End(xlUp)(2, 5).Select
Selection.FillDown
[A65000].Select
Selection.End(xlUp)(2, 7).Select
Selection.FillDown
Thanks in advance.
Selecting first empty cell in column A and then selecting the adjacent cells that are in columns B, E, and G and then Filldown the existing formulas.
The following example works however it just seems there could be a better way to write the VBA especially if there are 15 to 20 non adjacent cells on the active row.
[A65000].Select
Selection.End(xlUp)(2, 2).Select
Selection.FillDown
[A65000].Select
Selection.End(xlUp)(2, 5).Select
Selection.FillDown
[A65000].Select
Selection.End(xlUp)(2, 7).Select
Selection.FillDown
Thanks in advance.