ipbr21054
Well-known Member
- Joined
- Nov 16, 2010
- Messages
- 5,832
- Office Version
- 2007
- Platform
- Windows
Ive only done tables in one column.
I have some customers details as follows.
Column CV Name
Column CX Address
Column CZ Grass Paid
Column DB Grass Mileage
I needed to delete a customer so right click delete rows only deleted there name leaving the other 3 cells to the right filled.
I then relised that no table was here.
Please can you advise how i make a table for more than 1 column.
Each column has a header in row 1
Also let me tell you the below info should it make any difference or stop working etc so just a heads up realy.
I use the below macro to sort the above details.
On a worksheet in the same workbook i also select a customers name in column B and then using VLOOKUP column C, D & E are populated.
This info is taken from the columns CV CX CZ DB mentioned above.
My goal for this request is so i can delete a row should a customer no longer require me etc.
I have some customers details as follows.
Column CV Name
Column CX Address
Column CZ Grass Paid
Column DB Grass Mileage
I needed to delete a customer so right click delete rows only deleted there name leaving the other 3 cells to the right filled.
I then relised that no table was here.
Please can you advise how i make a table for more than 1 column.
Each column has a header in row 1
Also let me tell you the below info should it make any difference or stop working etc so just a heads up realy.
I use the below macro to sort the above details.
Code:
Sub SortGrassList()'
' SortCV Macro
'
'
Dim LR As Long
Sheets("INFO").Activate
LR = Cells(Rows.Count, "CV").End(xlUp).Row
Range("CV1:DB" & LR).Select
ActiveWorkbook.Worksheets("INFO").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("INFO").Sort.SortFields.Add Key:=Range("CV2:CV" & LR) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("INFO").Sort
.SetRange Range("CV1:DB" & LR)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("CV2").Select
End Sub
On a worksheet in the same workbook i also select a customers name in column B and then using VLOOKUP column C, D & E are populated.
This info is taken from the columns CV CX CZ DB mentioned above.
My goal for this request is so i can delete a row should a customer no longer require me etc.