7th February 2012, 10:06 AM
|
|
Member
|
|
Join Date: Jan 2012
Posts: 282
|
|
Today's Race list
There are 3 sheets
1: with only horse and trots
2: horse-trots-greys
3: all races on card
the all races on card sheet, the overseas racetimes may show past midnight so effectively it is not in true time order.
The code I use to delete a race row goes something like:
add a sheet and call it: DAYSRACELIST
USE THE ONE POSTED HERE AS A BACK-UP, COPY AND PASTE FROM BACKUP TO DAYSRACELIST, THEN YOU NEVER LOSE THE ORIGINAL.
Quote:
Sub DELETE_RACE()
Application.Calculation = xlAutomatic
Application.ScreenUpdating = False
Sheets("DAYSRACELIST").Select
Sheets("DAYSRACELIST").Rows("3:3").Delete Shift:=xlUp
Sheets("DAYSRACELIST").Range("C1:I1").Value = _
Sheets("DAYSRACELIST").Range("C3:I3").Value
'----------------------------------------------------
Sheets("DAYSRACELIST").Range("A1").FormulaR1C1 = _
"=RC[5]&""/""&RC[6]&""/""&RC[7]&""/""&RC[2]&""/""&RC[3]"
Sheets("DAYSRACELIST").Range("A1").Value = _
Sheets("DAYSRACELIST").Range("A1").Value
'-----------------------------------------------------
ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub
|
Puntz |