Add vba_code_kotsu_master for Z1 sheet

This commit is contained in:
updsv7
2026-04-13 17:14:43 +09:00
parent 01b5dadb2b
commit 5dfb10ec4a
2 changed files with 365 additions and 1 deletions

View File

@@ -50,6 +50,7 @@ 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
@@ -285,7 +286,7 @@ Sub validateDetailDataButton()
errorCount = 0
For r = 7 To lastRow
Call validateDetailData(ws, r)
If Trim(ws.Cells(r, 19).Value) <> "" Then
If Trim(ws.Cells(r, 17).Value) <> "" Then
errorCount = errorCount + 1
End If
Next r