From 9aefa61754f28b915f24e4aa94016a7077223070 Mon Sep 17 00:00:00 2001 From: updsv7 Date: Mon, 13 Apr 2026 16:06:04 +0900 Subject: [PATCH] Change duplicate check to GH only --- vba_code_kukan_detail_master.txt | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/vba_code_kukan_detail_master.txt b/vba_code_kukan_detail_master.txt index 758d2c5..743f81e 100644 --- a/vba_code_kukan_detail_master.txt +++ b/vba_code_kukan_detail_master.txt @@ -332,16 +332,14 @@ Sub validateDetailData(ByVal ws As Worksheet, ByVal rowNum As Long) g = Trim(ws.Cells(rowNum, 7).Value) h = Trim(ws.Cells(rowNum, 8).Value) - i = Trim(ws.Cells(rowNum, 9).Value) 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" + Trim(ws.Cells(r, 8).Value) = h Then + ws.Cells(rowNum, 17).Value = "GH combination already exists" Exit Sub End If End If