muhammad susanto
Well-known Member
- Joined
- Jan 8, 2013
- Messages
- 2,089
- Office Version
- 365
- 2021
- Platform
- Windows
hello all...
i have macro code, but i dont know it works...i have try but still error..
somebody would help me :
this code :
anyone help me is appreciated...
m.susanto
i have macro code, but i dont know it works...i have try but still error..
somebody would help me :
this code :
Code:
[COLOR=#333333]Private Sub Worksheet_Change(ByVal Target As Range)[/COLOR]<code style="margin: 0px; padding: 0px; font-style: inherit; font-weight: inherit; line-height: 12px;"> Dim r As Range, rcell As Range
Set r = Range("A1, B2, C3, D4")
Application.EnableEvents = False
For Each rcell In r
If rcell.Interior.ColorIndex = 14 Then
rcell = "X"
Else
rcell = ""
End If
Next rcell
Application.EnableEvents = True
</code>End Sub
anyone help me is appreciated...
m.susanto
Last edited: