updsv7/vba
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix compilation errors

Browse Source
This commit is contained in:
updsv7
2026-04-13 17:04:04 +09:00
parent 07f7a916d0
commit 1746dc4b57
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
vba_code_kukan_detail_master.txt
View File

@@ -50,7 +50,6 @@ End Sub
Sub ClearRowData(ByVal ws As Worksheet, ByVal rowNum As Long) Sub ClearRowData(ByVal ws As Worksheet, ByVal rowNum As Long)
' Clear from D column onwards ' Clear from D column onwards
ws.Range(ws.Cells(rowNum, 4), ws.Cells(rowNum, 15)).ClearContents 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 ws.Cells(rowNum, 19).ClearContents ' Q column error info
End Sub End Sub
@@ -286,7 +285,7 @@ Sub validateDetailDataButton()
errorCount = 0 errorCount = 0
For r = 7 To lastRow For r = 7 To lastRow
Call validateDetailData(ws, r) Call validateDetailData(ws, r)
If Trim(ws.Cells(r, 17).Value) <> "" Then If Trim(ws.Cells(r, 19).Value) <> "" Then
errorCount = errorCount + 1 errorCount = errorCount + 1
End If End If
Next r Next r