The Great SrH
Board Regular
- Joined
- Jan 16, 2015
- Messages
- 179
Hi guys,
I'm really struggling to code / piece together a code that factors in the situations I require. I'll piece it together below:
---------
The range:
I need it to apply the formula based on the last piece of information in column A - but the cells it will be applied to begin in K5 and end in column BM
---------
The formula:
I need the changes to only happen based on the above formula. This was originally from a conditional format, however, I need this to be VBA as the sheet wont stay static.
---------
The changes:
Any help piecing this together will be great!
Thanks
I'm really struggling to code / piece together a code that factors in the situations I require. I'll piece it together below:
---------
The range:
Code:
.Range(K5:BM" & .Cells(.Rows.Count, "A").End(xlUp).Row)
I need it to apply the formula based on the last piece of information in column A - but the cells it will be applied to begin in K5 and end in column BM
---------
The formula:
Code:
=AND($E5>=K$2,$D5<L$2)
I need the changes to only happen based on the above formula. This was originally from a conditional format, however, I need this to be VBA as the sheet wont stay static.
---------
The changes:
Code:
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ThemeColor = 1
.TintAndShade = -0.14996795556505
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ThemeColor = 1
.TintAndShade = -0.14996795556505
.Weight = xlThin
End With
With Selection.Interior
.Pattern = xlSolid
.PatternThemeColor = xlThemeColorAccent1
.Color = 5287936
.TintAndShade = 0
.PatternTintAndShade = 0.799951170384838
End With
Any help piecing this together will be great!
Thanks