Selecting a small range of cells to delete

[Carrie_Loos via OfficeKB.com]

This is a portion of code where I am using a listbox selection to find a
person in a list. The last line here is where I keep getting stuck. After I
find the person and move to the right, I want to select the cell I am on plus
two cells to the right so I can delete them. I've looked up as much as I can
in help and examples here but nothing seems to work for me. Can anyone assist?



Private Sub CommandButton3_Click()
Dim Remove As Object

'Remove on Employee Training Sheet

Set Remove = Worksheets("Keys").Range("L19")

If Remove <> "" Then
Range("L19").Select
Selection.Copy
Range("B3").Select
Cells.Find(What:=Remove, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Else
MsgBox ("No one is selected")
End If

ActiveCell.Offset(0, -1).Select
Range(ActiveCell.Offset(0, 3)).Select

 

[FSt1]

hi
Range(ActiveCell, ActiveCell.Offset(0, 2)).Select
Selection.Delete

but if you want to delete, rolled it up to one line. no select needed...

Range(ActiveCell, ActiveCell.Offset(0, 2)).Delete shift:=xlUp

regards
FSt1

 

[Carrie_Loos via OfficeKB.com]

Gosh - I knew it was just that easy. I guess I don't get the syntax of the
"double" ActiveCell. Apparently you have to reference the cell you are on
then plus more cells? Thanks so much.

hi
Range(ActiveCell, ActiveCell.Offset(0, 2)).Select
Selection.Delete

but if you want to delete, rolled it up to one line. no select needed...

Range(ActiveCell, ActiveCell.Offset(0, 2)).Delete shift:=xlUp

regards
FSt1

This is a portion of code where I am using a listbox selection to find a
person in a list. The last line here is where I keep getting stuck. After I

[quoted text clipped - 22 lines]

ActiveCell.Offset(0, -1).Select
Range(ActiveCell.Offset(0, 3)).Select

 

[FSt1]

Gosh - I knew it was just that easy. I guess I don't get the syntax of the
"double" ActiveCell. Apparently you have to reference the cell you are on
then plus more cells? Thanks so much.

hi
Range(ActiveCell, ActiveCell.Offset(0, 2)).Select
Selection.Delete

but if you want to delete, rolled it up to one line. no select needed...

Range(ActiveCell, ActiveCell.Offset(0, 2)).Delete shift:=xlUp

regards
FSt1

This is a portion of code where I am using a listbox selection to find a
person in a list. The last line here is where I keep getting stuck. After I

[quoted text clipped - 22 lines]

ActiveCell.Offset(0, -1).Select
Range(ActiveCell.Offset(0, 3)).Select