From d71ac7067799a6405273b0c8572f8e532cc45a0b Mon Sep 17 00:00:00 2001 From: updsv7 Date: Mon, 13 Apr 2026 15:52:59 +0900 Subject: [PATCH] Add G,H,I required check in validateDetailData --- vba_code_kukan_detail_master.txt | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/vba_code_kukan_detail_master.txt b/vba_code_kukan_detail_master.txt index e319195..5fd0d66 100644 --- a/vba_code_kukan_detail_master.txt +++ b/vba_code_kukan_detail_master.txt @@ -295,6 +295,22 @@ Sub validateDetailData(ByVal ws As Worksheet, ByVal rowNum As Long) Exit Sub End If + ' Check G, H, I required and numeric + If Trim(ws.Cells(rowNum, 7).Value) = "" Or Not IsNumeric(ws.Cells(rowNum, 7).Value) Then + ws.Cells(rowNum, 17).Value = "G column is required and must be numeric" + Exit Sub + End If + + If Trim(ws.Cells(rowNum, 8).Value) = "" Or Not IsNumeric(ws.Cells(rowNum, 8).Value) Then + ws.Cells(rowNum, 17).Value = "H column is required and must be numeric" + Exit Sub + End If + + If Trim(ws.Cells(rowNum, 9).Value) = "" Or Not IsNumeric(ws.Cells(rowNum, 9).Value) Then + ws.Cells(rowNum, 17).Value = "I column is required and must be numeric" + Exit Sub + End If + ' Check L-P optional but must be numeric if entered Dim col As Long Dim colName As String