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

Simplify Worksheet_Change for C column

Browse Source
This commit is contained in:
updsv7
2026-04-13 12:04:57 +09:00
parent 18212af6ba
commit 1f94a53a58
1 changed files with 0 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
vba_code_kukan_detail_master.txt
View File

@@ -20,21 +20,6 @@ Private Sub Worksheet_Change(ByVal Target As Range)
' === Fill D, E when C column changes === ' === Fill D, E when C column changes ===
If Target.Column = 3 And Target.Row >= 7 Then If Target.Column = 3 And Target.Row >= 7 Then
If Target.Count > 1 Then
' Handle multiple cells
Dim cell As Range
For Each cell In Target
If cell.Column = 3 And cell.Row >= 7 Then
If Trim(cell.Value) = "" Then
Call ClearRowData(Me, cell.Row)
Else
Call FillFromKukanMaster(Me, cell.Row)
End If
End If
Next cell
Exit Sub
End If
If Trim(Target.Value) = "" Then If Trim(Target.Value) = "" Then
Call ClearRowData(Me, Target.Row) Call ClearRowData(Me, Target.Row)
Else Else