deleting that row if the button was pressed, what would be the best
way to write that code?
Thanks in advance for your help,
magmike
Why not simply right-click the row header and choose 'Delete'?
--
Garry
Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion
Because there is a button that adds rows to ensure the formatting and
such remains in tact. Therefore, having a button to delete the
inserted row would maintain the flow I have created. Plus, the
traditional way involves right-click, move mouse to selection, then
left-click which is three moves whereas a macro button is one move.
Did I just admit that I am lazy?
PS: the command button would be on the row in question so if basing
the removal on the selection, it would first need to select the same
row that the button is on, just in case something else was currently
selected.
If you're implying that every formatted row has a delete button.., well
that;s just asking for trouble! Otherwise, how does the button get on
the row?
--
Garry
Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion
trouble?
How many buttons do you think might end up on a single sheet this
template row is copied to? It would be better, IMO, to disguise a
cell in colA to look like a button so when clicked (selected) that
sheet's event code can fire the delete action on that row.
Here's the code...
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
With Target
If .Column = 1 And .Value = "X" Then .EntireRow.Delete
End With 'Target
End Sub
..and the cell is sized square, centered h/v, boldface, dark red, and
has solid border right/bottom.
--
Garry
Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion
Here's the code...
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
With Target
If .Column = 1 And .Value = "X" Then .EntireRow.Delete
End With 'Target
End Sub
..and the cell is sized square, centered h/v, boldface, dark red, and
has solid border right/bottom.
--
Garry
Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion
print?
Here's the code...
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
With Target
If .Column = 1 And .Value = "X" Then .EntireRow.Delete
End With 'Target
End Sub
..and the cell is sized square, centered h/v, boldface, dark red, and
has solid border right/bottom.