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

Merge single/multiple cell handling

Browse Source
This commit is contained in:
updsv7
2026-04-13 12:06:36 +09:00
parent f17e228412
commit f29ea2874b
1 changed files with 6 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
vba_code_kukan_detail_master.txt
View File

@@ -20,7 +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
Dim cell As Range Dim cell As Range
For Each cell In Target For Each cell In Target
If Trim(cell.Value) = "" Then If Trim(cell.Value) = "" Then
@@ -29,13 +28,6 @@ Private Sub Worksheet_Change(ByVal Target As Range)
Call FillFromKukanMaster(Me, cell.Row) Call FillFromKukanMaster(Me, cell.Row)
End If End If
Next Next
Else
If Trim(Target.Value) = "" Then
Call ClearRowData(Me, Target.Row)
Else
Call FillFromKukanMaster(Me, Target.Row)
End If
End If
End If End If
End Sub End Sub