pt/VBA
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

rework the coloring a bit

Browse Source
This commit is contained in:
pt 2020-11-06 14:48:49 -05:00
parent 9dcf8ac310
commit 0143a891bb
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
FL.bas
View File

@ -1215,6 +1215,7 @@ Sub extract_price_matrix_r2()
Dim sql As String
Dim error As String
Dim orig As Range
Dim ini As Range
Dim cms_pl() As String
Dim pw As String
Dim new_sh As Worksheet
@ -1223,7 +1224,7 @@ Sub extract_price_matrix_r2()
'------------------------------------selection-------------------------------------------------
Set orig = Application.Selection
Set ini = Application.Selection
Selection.CurrentRegion.Select
@ -1366,13 +1367,17 @@ Sub extract_price_matrix_r2()
Select Case cms_pl(i, 14)
Case ""
orig.Worksheet.Cells(orig.row + cms_pl(i, 12) - 1, orig.column + cms_pl(i, 13) - 1).Interior.ThemeColor = xlThemeColorAccent6
Case "no unit conversion"
Case "No UOM Conversion"
If orig.Worksheet.Cells(orig.row + cms_pl(i, 12) - 1, orig.column + cms_pl(i, 13) - 1).Interior.ThemeColor <> xlThemeColorAccent6 Then
orig.Worksheet.Cells(orig.row + cms_pl(i, 12) - 1, orig.column + cms_pl(i, 13) - 1).Interior.Color = RGB(255, 255, 161)
End If
Case "no part number"
Case "Inactive"
If orig.Worksheet.Cells(orig.row + cms_pl(i, 12) - 1, orig.column + cms_pl(i, 13) - 1).Interior.ThemeColor <> xlThemeColorAccent6 Then
orig.Worksheet.Cells(orig.row + cms_pl(i, 12) - 1, orig.column + cms_pl(i, 13) - 1).Interior.Color = RGB(255, 255, 161)
orig.Worksheet.Cells(orig.row + cms_pl(i, 12) - 1, orig.column + cms_pl(i, 13) - 1).Interior.Color = RGB(255, 20, 161)
End If
Case "No SKU"
If orig.Worksheet.Cells(orig.row + cms_pl(i, 12) - 1, orig.column + cms_pl(i, 13) - 1).Interior.ThemeColor <> xlThemeColorAccent6 Then
orig.Worksheet.Cells(orig.row + cms_pl(i, 12) - 1, orig.column + cms_pl(i, 13) - 1).Interior.Color = RGB(20, 255, 161)
End If
End Select
'if the current row/column is OK, advance to the next row/column
@ -1411,6 +1416,9 @@ Sub extract_price_matrix_r2()
Set x = Nothing
ini.Select
End Sub
Sub go_to_price_issue()