Selecting a small range of cells to delete
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 -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.a...mming/200802/1 |
Selecting a small range of cells to delete
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" wrote: 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 -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.a...mming/200802/1 |
Selecting a small range of cells to delete
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. FSt1 wrote: 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 -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.a...mming/200802/1 |
Selecting a small range of cells to delete
"Carrie_Loos via OfficeKB.com" wrote: 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. FSt1 wrote: 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 -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.a...mming/200802/1 |
All times are GMT +1. The time now is 02:52 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com