ipbr21054
Well-known Member
- Joined
- Nov 16, 2010
- Messages
- 5,738
- Office Version
- 2007
- Platform
- Windows
Hi,
I have this code in use
I have added the code shown in Red expecting when i leave the cell in question the Font Size Font Family etc etc to change.
Nothing happens when i leave any cells.
Can you advise / show me what ive missed please
I have this code in use
I have added the code shown in Red expecting when i leave the cell in question the Font Size Font Family etc etc to change.
Nothing happens when i leave any cells.
Can you advise / show me what ive missed please
Rich (BB code):
Private Sub Worksheet_Change(ByVal Target As Range)
' Exit if more than one cell updated at a time
If Target.Count > 1 Then Exit Sub
' Check to see if value updated is in column B or D
If Target.Column = 2 Or Target.Column = 4 Then
Application.EnableEvents = False
If UCase(Cells(Target.Row, "B")) = "REFUND" Then
Cells(Target.Row, "D") = Abs(Cells(Target.Row, "D")) * -1
Else
If Cells(Target.Row, "B") = "" Then Cells(Target.Row, "D").ClearContents
End If
Application.EnableEvents = True
End If
If Not (Application.Intersect(Target, Range("A3:K28")) _
Is Nothing) Then
With Target
If Not .HasFormula Then
Application.EnableEvents = False
.Value = UCase(.Value)
Application.EnableEvents = True
End If
End With
With Range("A1:L33")
.Font.Size = 11
.Font.Bold = True
.Font.Name = "Calibri"
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
Application.EnableEvents = True
End With
End If
End Sub