diff --git a/vba_code_kukan_detail_master.txt b/vba_code_kukan_detail_master.txt index 5fd0d66..2daa033 100644 --- a/vba_code_kukan_detail_master.txt +++ b/vba_code_kukan_detail_master.txt @@ -334,20 +334,18 @@ Sub validateDetailData(ByVal ws As Worksheet, ByVal rowNum As Long) h = Trim(ws.Cells(rowNum, 8).Value) i = Trim(ws.Cells(rowNum, 9).Value) - If g <> "" And h <> "" And i <> "" Then - lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row - - For r = 7 To lastRow - If r <> rowNum And Trim(ws.Cells(r, 3).Value) = Trim(ws.Cells(rowNum, 3).Value) Then - If Trim(ws.Cells(r, 7).Value) = g And _ - Trim(ws.Cells(r, 8).Value) = h And _ - Trim(ws.Cells(r, 9).Value) = i Then - ws.Cells(rowNum, 17).Value = "GHI combination already exists" - Exit Sub - End If + lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row + + For r = 7 To lastRow + If r <> rowNum And Trim(ws.Cells(r, 3).Value) = Trim(ws.Cells(rowNum, 3).Value) Then + If Trim(ws.Cells(r, 7).Value) = g And _ + Trim(ws.Cells(r, 8).Value) = h And _ + Trim(ws.Cells(r, 9).Value) = i Then + ws.Cells(rowNum, 17).Value = "GHI combination already exists" + Exit Sub End If - Next r - End If + End If + Next r ' Validation passed ws.Cells(rowNum, 17).ClearContents