Ark68
Well-known Member
- Joined
- Mar 23, 2004
- Messages
- 4,564
- Office Version
- 365
- 2016
- Platform
- Windows
With this code:
The idea is to paste the array or values "CUEDR", "CUEDT", "CUEFR", "CUEFT", "CUECR", "CUECT" starting at the next open cell (nextrow = wshvar.Cells(Rows.Count, "T").End(xlUp).Row + 1) in column T.
This is not happening. Only "CUEDR" is being pasted there. The other values are missing in the column.
Rich (BB code):
If rtarget.Name = "CUEALL" Then
If rtarget.Fill.ForeColor.RGB = RGB(255, 255, 255) Then
MsgBox "Caller: " & rtarget.Name
myDocument.Shapes.Range(Array("CUEDR", "CUEDT", "CUEFR", "CUEFT", "CUECR", "CUECT", "CUEALL")).Fill.ForeColor.RGB = RGB(255, 0, 0)
wshvar.Range("T" & nextrow) = Application.Transpose(Array("CUEDR", "CUEDT", "CUEFR", "CUEFT", "CUECR", "CUECT"))
Else
myDocument.Shapes.Range(Array("CUEDR", "CUEDT", "CUEFR", "CUEFT", "CUECR", "CUECT", "CUEALL")).Fill.ForeColor.RGB = RGB(255, 255, 255) 'ON to OFF
MsgBox "OFF"
End If
ElseIf rtarget.Name = "CULALL" Then
The idea is to paste the array or values "CUEDR", "CUEDT", "CUEFR", "CUEFT", "CUECR", "CUECT" starting at the next open cell (nextrow = wshvar.Cells(Rows.Count, "T").End(xlUp).Row + 1) in column T.
This is not happening. Only "CUEDR" is being pasted there. The other values are missing in the column.