Scribd
Upload
21 views

New

The document contains VBA code that formats the interior of cell ranges by setting properties like pattern, color, tint, and shade. It also contains a loop that replaces values in column A based on an if/else conditional.

Uploaded by

manseur
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
21 views

New

The document contains VBA code that formats the interior of cell ranges by setting properties like pattern, color, tint, and shade. It also contains a loop that replaces values in column A based on an if/else conditional.

Uploaded by

manseur
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 2

With Selection.

Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent4
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With
Range("7:7,8:8,9:9,10:10,11:11,12:12").Select
Range("A12").Activate
With Selection.Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With
Range("13:13,14:14,15:15,16:16").Select
Range("A16").Activate
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
ActiveWindow.SmallScroll Down:=3
Range("17:17,18:18,19:19,20:20,21:21").Select
Range("A21").Activate
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
ActiveWindow.SmallScroll Down:=9
Range("17:17,18:18,19:19,20:20,21:21,22:22").Select
Range("A22").Activate
With Selection.Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
Range("23:23,24:24,25:25,26:26").Select
Range("A26").Activate
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark2
.TintAndShade = -0.249977111117893
.PatternTintAndShade = 0
End With

Range("A3").Select

For i = 1 To 26
If Cells(i, 1).Value = "A111" Then
Cells(i, 1).Value = "A111_E1C"
ElseIf Cells(i, 1).Value = "A11U" Then
Cells(i, 1).Value = "A11U_E1C"
ElseIf Cells(i, 1).Value = "A211" Then
Cells(i, 1).Value = "A211_E2A"
ElseIf Cells(i, 1).Value = "A212" Then
Cells(i, 1).Value = "A212_E2A"
ElseIf Cells(i, 1).Value = "A21U" Then
Cells(i, 1).Value = "A21U_E2A"
ElseIf Cells(i, 1).Value = "C111" Then
Cells(i, 1).Value = "C111_W2A"
ElseIf Cells(i, 1).Value = "C11U" Then
Cells(i, 1).Value = "C11U_W2A"
ElseIf Cells(i, 1).Value = "C211" Then
Cells(i, 1).Value = "C111_W2A '"
ElseIf Cells(i, 1).Value = "C212" Then
Cells(i, 1).Value = "C112_W2A '"
ElseIf Cells(i, 1).Value = "C21U" Then
Cells(i, 1).Value = "C11U_W2A '"
ElseIf Cells(i, 1).Value = "C311" Then
Cells(i, 1).Value = "C111_W1C"
ElseIf Cells(i, 1).Value = "C31U" Then
Cells(i, 1).Value = "C112_W1C"

End If
Next

End Sub

You might also like