Related:
- Using VBA code: add Borders if Conditions Met
- Battery reset code - Guide
- Samsung volume increase code - Guide
- How to get whatsapp verification code online - Guide
- Vba case like - Guide
- Cs 1.6 code - Guide
1 response
Figured it out. But, now I would like to extend this to happen every time there is something entered in the next row in columb B. If any help can be given, I would appreciate it.
Thank you,
Josh
_____________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$13" Then
With Range("B14:F14")
If IsEmpty(Target.Value) = False Then
.Merge
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
Range("A14:L14").Borders.LineStyle = xlContinuous
.Select
Else
Range("A14:L14").Borders.LineStyle = xlLineStyleNone
.UnMerge
.Offset(1)(1).Select
End If
End With
End If
End Sub
______________________________________________________
Thank you,
Josh
_____________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$13" Then
With Range("B14:F14")
If IsEmpty(Target.Value) = False Then
.Merge
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
Range("A14:L14").Borders.LineStyle = xlContinuous
.Select
Else
Range("A14:L14").Borders.LineStyle = xlLineStyleNone
.UnMerge
.Offset(1)(1).Select
End If
End With
End If
End Sub
______________________________________________________