diff --git a/vba_code_kukan_detail_master.txt b/vba_code_kukan_detail_master.txt index 21da881..e082825 100644 --- a/vba_code_kukan_detail_master.txt +++ b/vba_code_kukan_detail_master.txt @@ -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