add reload cache button

This commit is contained in:
updsv7
2026-04-20 19:00:59 +09:00
parent 5c40eb4381
commit 1b851b2224
4 changed files with 34 additions and 5 deletions

View File

@@ -152,6 +152,14 @@ Private Sub Validate(ws As Worksheet, ByVal rowNum As Long, ByVal lastDataRow As
Exit Sub
End If
' Check if M2 uses this M1 kukan code
Dim m2Cache As Object: Set m2Cache = GetM2Cache()
If Not m2Cache.Exists(cValue) Then
ws.Cells(rowNum, errorCol).Value = "The section details are not registered for the corresponding section"
ws.Range("C" & rowNum).Interior.Color = RGB(255, 128, 0)
Exit Sub
End If
' Validation passed - clear error
ws.Cells(rowNum, errorCol).ClearContents
End Sub