Fix compilation errors
This commit is contained in:
@@ -50,7 +50,6 @@ End Sub
|
||||
Sub ClearRowData(ByVal ws As Worksheet, ByVal rowNum As Long)
|
||||
' Clear from D column onwards
|
||||
ws.Range(ws.Cells(rowNum, 4), ws.Cells(rowNum, 15)).ClearContents
|
||||
ws.Cells(rowNum, 6).Validation.Delete
|
||||
ws.Cells(rowNum, 19).ClearContents ' Q column error info
|
||||
End Sub
|
||||
|
||||
@@ -286,7 +285,7 @@ Sub validateDetailDataButton()
|
||||
errorCount = 0
|
||||
For r = 7 To lastRow
|
||||
Call validateDetailData(ws, r)
|
||||
If Trim(ws.Cells(r, 17).Value) <> "" Then
|
||||
If Trim(ws.Cells(r, 19).Value) <> "" Then
|
||||
errorCount = errorCount + 1
|
||||
End If
|
||||
Next r
|
||||
|
||||
Reference in New Issue
Block a user