excelnoobhere
Board Regular
- Joined
- Mar 11, 2019
- Messages
- 61
Hello all,
I have the following code that creates some type of tags, it duplicates the same tag that is on the left to the right side.
I would like this code to duplicate the first page and put in under the first page and then duplicate the second page and put it under the the third page
so it would be first page on pages (1 and 2)
second page on pages (3 and 4)
third page on pages (5 and 6) and so on till the last one.......
any help would be appreciated and thank you in advance.
I have the following code that creates some type of tags, it duplicates the same tag that is on the left to the right side.
I would like this code to duplicate the first page and put in under the first page and then duplicate the second page and put it under the the third page
so it would be first page on pages (1 and 2)
second page on pages (3 and 4)
third page on pages (5 and 6) and so on till the last one.......
any help would be appreciated and thank you in advance.
VBA Code:
Sub Create_tags()
'cdx: Captive Key Location
' cdx = 1 --> Tags with Captive Key Location
' cdx = 0 --> Tags without Captive Key Location
'idx: Vertical number in line of tag
'jdx: Color code
'kdx: Single/Double sided tags;
' Double sided --> kdx=2
' Single sided --> kdx=0 1st tag on left
' Single sided --> kdx=1 2nd tag on right
'wdx: wdx=1 --> Tags with Action & Verify
' wdx=2 --> Tags Only
' wdx=3 --> Tags with Source Desc, Action & Verify
Dim i, idx, idx2, jdx, kdx, mdx, wdx, idum, cdx, y As Integer
Dim ch, tag_name, TransFold, g_path, g_file_s, PlacID, version, e_file_s As String
Dim ndx As Boolean
Dim x, lastRow As Long
Dim ws As Worksheet
Application.ScreenUpdating = False
'TagFont_Size.Show
Sheets("Lock Tags").Select
idx = 1r
idx2 = idx
kdx = 2
wdx = 1
cdx = 1
g_path = Sheets("file").Cells(2, 1).Value
g_file_s = Sheets("file").Cells(1, 1).Value
PlacID = Sheets("BG").Cells(11, 22).Value
version = Sheets("Main").Cells(37, 2).Value
'Starts Status Bar
x = 0.001
ufProgress.LabelProgress.Width = 0
ufProgress.Show
Call FractionComplete(x)
x = 0
Sheets("BG").Cells(10, 35).Value = x
If (Sheets("BG").Cells(9, "J").Value = True Or _
Sheets("BG").Cells(11, "J").Value = True Or _
Sheets("BG").Cells(13, "J").Value = True) Then
kdx = 1
End If
If (Sheets("BG").Cells(10, "J").Value = True Or _
Sheets("BG").Cells(11, "J").Value = True) Then
wdx = 2
ElseIf (Sheets("BG").Cells(12, "J").Value = True Or _
Sheets("BG").Cells(13, "J").Value = True) Then
wdx = 3
tag_name = Sheets("BG").Cells(13, "V").Value
End If
If Sheets("BG").Cells(5, "J").Value = False Then
cdx = 0
End If
y = 2
Do Until (Sheets("D").Cells(y, "A").Value = "")
y = y + 1
Loop
lastRow = (y - 2) * 13 + (Sheets("BG").Cells(20, 30).Value) * (y - 2)
Sheets("BG").Cells(11, 35).Value = lastRow
Do Until (Sheets("D").Cells(idx2 + 1, "A").Value = "")
ch = Left(Sheets("D").Cells(idx2 + 1, "A").Value, 1)
If (ch <> "D") Then
If (kdx = 1) Then
kdx = 0
ElseIf (kdx = 0) Then
kdx = 1
End If
If (kdx = 2) Then
mdx = idx
ElseIf (kdx = 0) Then
mdx = (idx + 1) / 2
ElseIf (kdx = 1) Then
mdx = idx / 2
End If
If (wdx = 1) Then
If ((mdx Mod 2) = 1) Then
ndx = True
Else
ndx = False
End If
ElseIf (wdx = 2) Then
If ((mdx Mod 3) = 1) Then
ndx = True
Else
ndx = False
End If
ElseIf (wdx = 3) Then
ndx = True
End If
If (ch = "E") Then
jdx = 1
ElseIf (ch = "A") Then
jdx = 2
ElseIf (ch = "G") Then
jdx = 3
ElseIf (ch = "W") Then
jdx = 4
ElseIf (ch = "C") Then
jdx = 5
ElseIf (ch = "H") Then
jdx = 6
ElseIf (ch = "N") Then
jdx = 7
ElseIf (ch = "R") Then
jdx = 8
ElseIf (ch = "M") Then
jdx = 9
ElseIf (ch = "S") Then
jdx = 10
ElseIf (ch = "T") Then
jdx = 11
End If
Call lock_format(idx2, mdx, jdx, kdx, ndx, wdx, tag_name, idx, kdx, cdx)
If (Sheets("D").Cells(idx2 + 1, "P").Value = True) Then
If (kdx <> 2) Then
Call lock_star(mdx, kdx + 1, wdx, idx2, cdx)
Else
Call lock_star(mdx, 1, wdx, idx2, cdx)
Call lock_star(mdx, 2, wdx, idx2, cdx)
End If
End If
If (kdx <> 2) Then
' Call black_arc(mdx, kdx + 1, wdx)
Else
' Call black_arc(mdx, 1, wdx)
' Call black_arc(mdx, 2, wdx)
End If
idx = idx + 1
End If
idx2 = idx2 + 1
lastRow = Sheets("BG").Cells(11, 35).Value
x = Sheets("BG").Cells(10, 35).Value
x = x + (13 / lastRow)
Sheets("BG").Cells(10, 35).Value = x
Call FractionComplete(x)
Loop
Application.CutCopyMode = False
ActiveWindow.Zoom = 75
ActiveWindow.Zoom = 100
ActiveWindow.Zoom = 75
ActiveWindow.Zoom = 55
ActiveWindow.Zoom = 75
If (wdx = 1) And (kdx = 2) Then
range("A1:J" & CStr((idx - 1) * 15)).Select
ActiveSheet.PageSetup.PrintArea = "A1:J" & CStr((idx - 1) * 15)
ElseIf (wdx = 1) And (kdx <> 2) Then
range("A1:J" & CStr((idx - kdx) / 2 * 15)).Select
ActiveSheet.PageSetup.PrintArea = "A1:J" & CStr((idx - kdx) / 2 * 15)
ElseIf (wdx = 2) And (kdx = 2) Then
range("A1:J" & CStr((idx - 1) * 9)).Select
ActiveSheet.PageSetup.PrintArea = "A1:J" & CStr((idx - 1) * 9)
ElseIf (wdx = 2) And (kdx <> 2) Then
range("A1:J" & CStr((idx - kdx) / 2 * 9)).Select
ActiveSheet.PageSetup.PrintArea = "A1:J" & CStr((idx - kdx) / 2 * 9)
ElseIf (wdx = 3) And (kdx = 2) And (cdx = 1) Then
range("A1:J" & CStr((idx - 1) * 16)).Select
ActiveSheet.PageSetup.PrintArea = "A1:J" & CStr((idx - 1) * 16)
ElseIf (wdx = 3) And (kdx <> 2) And (cdx = 1) Then
range("A1:J" & CStr((idx - kdx) / 2 * 16)).Select
ActiveSheet.PageSetup.PrintArea = "A1:J" & CStr((idx - kdx) / 2 * 16)
ElseIf (wdx = 3) And (kdx = 2) And (cdx = 0) Then
range("A1:J" & CStr((idx - 1) * 13)).Select
ActiveSheet.PageSetup.PrintArea = "A1:J" & CStr((idx - 1) * 13)
ElseIf (wdx = 3) And (kdx <> 2) And (cdx = 0) Then
range("A1:J" & CStr((idx - kdx) / 2 * 13)).Select
ActiveSheet.PageSetup.PrintArea = "A1:J" & CStr((idx - kdx) / 2 * 13)
End If
i = idx - 1
Sheets("BG").Cells(10, 40).Value = i
'Re-inserted, will need to test
If Sheets("BG").Cells(3, 30).Value = True Or Sheets("BG").Cells(4, 30).Value = True _
Or Sheets("BG").Cells(5, 30).Value = True Or Sheets("BG").Cells(6, 30).Value = True _
Or Sheets("BG").Cells(7, 30).Value = True Or Sheets("BG").Cells(8, 30).Value = True _
Or Sheets("BG").Cells(9, 30).Value = True Then
Call TranslateLockTags(i)
End If
'Re-inserted ^^
On Error Resume Next
If Sheets("BG").Cells(2, 30).Value = True Then
Application.DisplayAlerts = False
Workbooks.Add
'ActiveWorkbook.SaveAs Filename:=g_path & "\gPlac_" & PlacID & "_LockTags_ENGLISH_" & Format(Date, "YYMMDD")
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Worksheets("file").Cells(41, 1).Value
e_file_s = ActiveWorkbook.Name
Application.DisplayAlerts = True
Workbooks(g_file_s).Activate
For Each ws In ActiveWorkbook.Worksheets
'If ws.Name = "Lock Tags" Or ws.Name = "Sign" Then
If ws.Name = "Lock Tags" Then
ws.Copy _
Before:=Workbooks(e_file_s).Sheets("Sheet1")
End If
Workbooks(g_file_s).Activate
Next ws
Workbooks(e_file_s).Activate
For Each ws In Workbooks(g_file_s).Worksheets
If ws.Name = "Lock Tags" Then
ws.Copy _
Before:=Workbooks(e_file_s).Sheets("Sheet1")
End If
Next ws
Application.DisplayAlerts = False
Sheets("Sheet1").Delete
Sheets("Sheet2").Delete
Sheets("Sheet3").Delete
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.DisplayAlerts = True
Workbooks(g_file_s).Activate
End If
Unload ufProgress
If (idx = 1) Then
MsgBox ("There is no tag created since you did not select anything.")
Else
MsgBox (CStr(idx - 1) & " tag(s) had been created based on what you selected.")
End If
Application.ScreenUpdating = True
'Sheets("Main").Activate
End Sub
Sub lock_star(i, j, wdx, idx2, cdx)
Dim x, y As Double
Dim no As Integer
Application.ScreenUpdating = False
x = 173 + (j - 1) * 250
If (wdx = 1) Then
y = 20 + (i - 1) * 350.27
ElseIf (wdx = 2) Then
y = 22 + (i - 1) * 188.3
ElseIf (wdx = 3 And cdx = 1) Then
y = 12 + (i - 1) * 392.3
ElseIf (wdx = 3 And cdx = 0) Then
y = 12 + (i - 1) * 351.75
End If
ActiveSheet.Shapes.AddShape(msoShape5pointStar, x, y, 40, 38).Select
Select Case Sheets("D").Cells(idx2 + 1, "s").Value
'chooses yellow
Case True
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
'chooses black
Case False
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 0
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 1
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.ObjectThemeColor = msoThemeColorBackground1
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Case Else: MsgBox ("star color not found")
End Select
With Selection
.Placement = xlMove
.PrintObject = True
End With
End Sub
Sub lock_format(i, m, j, k, new_page, wdx, tag_name, idx, kdx, cdx)
Dim iline, interior_color, font_color As Integer
Dim nb, nc, nd As Integer
Dim lng1, lng2 As Integer
Dim a, b, c As String
Dim x As String * 1
Application.ScreenUpdating = False
font_color = 1
If (j = 1) Then
interior_color = 45
ElseIf (j = 2) Then
interior_color = 41
font_color = 2
ElseIf (j = 3) Then
interior_color = 1
font_color = 2
ElseIf (j = 4) Then
interior_color = 10
font_color = 2
ElseIf (j = 5) Then
interior_color = 6
ElseIf (j = 6) Then
interior_color = 9
font_color = 2
ElseIf (j = 7) Then
interior_color = 7
ElseIf (j = 8) Then
interior_color = 13
font_color = 2
ElseIf (j = 9) Then
interior_color = 40
ElseIf (j = 10) Then
interior_color = 15
ElseIf (j = 11) Then
interior_color = 10
font_color = 2
End If
If (k = 0 Or k = 2) Then
nb = 2
nc = 3
nd = 4
ElseIf (k = 1) Then
nb = 7
nc = 8
nd = 9
End If
If (wdx = 1) Then
iline = (m - 1) * 15 + 1
ElseIf (wdx = 2) Then
iline = (m - 1) * 8 + 1
ElseIf (wdx = 3 And cdx = 1) Then
iline = (m - 1) * 16 + 1
ElseIf (wdx = 3 And cdx = 0) Then
iline = (m - 1) * 13 + 1
End If
If (m = 1 And i = 1) Then
Cells(1, 1).ColumnWidth = 0
Cells(1, 2).ColumnWidth = 2.14
Cells(1, 3).ColumnWidth = 34.86
Cells(1, 4).ColumnWidth = 2.14
Cells(1, 5).ColumnWidth = 2.57
Cells(1, 6).ColumnWidth = 2.57
Cells(1, 7).ColumnWidth = 2.14
Cells(1, 8).ColumnWidth = 34.86
Cells(1, 9).ColumnWidth = 2.14
Cells(1, 10).ColumnWidth = 2.57
Columns("E:E").Select
Selection.Borders(xlEdgeRight).LineStyle = xlDash
Columns("J:J").Select
Selection.Borders(xlEdgeRight).LineStyle = xlDash
End If
If (k = 0 Or k = 2) Then
If (new_page = True) Then
If (wdx = 1) Then
Cells(iline, 1).RowHeight = 10
Cells(iline + 1, 1).RowHeight = 10
Cells(iline + 2, 1).RowHeight = 59.25
Cells(iline + 3, 1).RowHeight = 18
Cells(iline + 4, 1).RowHeight = 18
Cells(iline + 5, 1).RowHeight = 18
Cells(iline + 6, 1).RowHeight = 5.5
Cells(iline + 7, 1).RowHeight = 18
Cells(iline + 8, 1).RowHeight = 72
Cells(iline + 9, 1).RowHeight = 5.5
Cells(iline + 10, 1).RowHeight = 18
Cells(iline + 11, 1).RowHeight = 72
Cells(iline + 12, 1).RowHeight = 7.5
Cells(iline + 13, 1).RowHeight = 10
Cells(iline + 14, 1).RowHeight = 10
Cells(iline + 15, 1).RowHeight = 10
Cells(iline + 16, 1).RowHeight = 10
Cells(iline + 17, 1).RowHeight = 59.25
Cells(iline + 18, 1).RowHeight = 18
Cells(iline + 19, 1).RowHeight = 18
Cells(iline + 20, 1).RowHeight = 18
Cells(iline + 21, 1).RowHeight = 5.5
Cells(iline + 22, 1).RowHeight = 18
Cells(iline + 23, 1).RowHeight = 72
Cells(iline + 24, 1).RowHeight = 5.5
Cells(iline + 25, 1).RowHeight = 18
Cells(iline + 26, 1).RowHeight = 72
Cells(iline + 27, 1).RowHeight = 7.5
Cells(iline + 28, 1).RowHeight = 10
Cells(iline + 29, 1).RowHeight = 10
Rows(iline + 14).Select
Selection.Borders(xlEdgeBottom).LineStyle = xlDash
Rows(iline + 29).Select
Selection.Borders(xlEdgeBottom).LineStyle = xlDash
ElseIf (wdx = 2) Then
Cells(iline, 1).RowHeight = 10
'Cells(iline + 1, 1).RowHeight = 72
Cells(iline + 1, 1).RowHeight = 10
Cells(iline + 2, 1).RowHeight = 59.25
Cells(iline + 3, 1).RowHeight = 31
Cells(iline + 4, 1).RowHeight = 31
Cells(iline + 5, 1).RowHeight = 31
Cells(iline + 6, 1).RowHeight = 7.5
Cells(iline + 7, 1).RowHeight = 10
Cells(iline + 8, 1).RowHeight = 10
'Cells(iline + 9, 1).RowHeight = 72
Cells(iline + 9, 1).RowHeight = 10
Cells(iline + 10, 1).RowHeight = 59.25
Cells(iline + 11, 1).RowHeight = 31
Cells(iline + 12, 1).RowHeight = 31
Cells(iline + 13, 1).RowHeight = 31
Cells(iline + 14, 1).RowHeight = 7.5
Cells(iline + 15, 1).RowHeight = 10
Cells(iline + 16, 1).RowHeight = 10
'Cells(iline + 17, 1).RowHeight = 72
Cells(iline + 17, 1).RowHeight = 10
Cells(iline + 18, 1).RowHeight = 59.25
Cells(iline + 19, 1).RowHeight = 31
Cells(iline + 20, 1).RowHeight = 31
Cells(iline + 21, 1).RowHeight = 31
Cells(iline + 22, 1).RowHeight = 7.5
Cells(iline + 23, 1).RowHeight = 10
Rows(iline + 7).Select
Selection.Borders(xlEdgeBottom).LineStyle = xlDash
Rows(iline + 15).Select
Selection.Borders(xlEdgeBottom).LineStyle = xlDash
Rows(iline + 23).Select
Selection.Borders(xlEdgeBottom).LineStyle = xlDash
ElseIf (wdx = 3 And cdx = 1) Then
Cells(iline, 1).RowHeight = 9
Cells(iline + 1, 1).RowHeight = 59.25
Cells(iline + 2, 1).RowHeight = 38
Cells(iline + 3, 1).RowHeight = 18
Cells(iline + 4, 1).RowHeight = 18
Cells(iline + 5, 1).RowHeight = 5
Cells(iline + 6, 1).RowHeight = 18
Cells(iline + 7, 1).RowHeight = 18
Cells(iline + 8, 1).RowHeight = 5
Cells(iline + 9, 1).RowHeight = 18
Cells(iline + 10, 1).RowHeight = 69
Cells(iline + 11, 1).RowHeight = 5
Cells(iline + 12, 1).RowHeight = 18
Cells(iline + 13, 1).RowHeight = 69
Cells(iline + 14, 1).RowHeight = 18
Cells(iline + 15, 1).RowHeight = 9
Rows(iline + 15).Select
Selection.Borders(xlEdgeBottom).LineStyle = xlDash
ElseIf (wdx = 3 And cdx = 0) Then
Cells(iline, 1).RowHeight = 9
Cells(iline + 1, 1).RowHeight = 59.25
Cells(iline + 2, 1).RowHeight = 38
Cells(iline + 3, 1).RowHeight = 18
Cells(iline + 4, 1).RowHeight = 18
Cells(iline + 5, 1).RowHeight = 5
Cells(iline + 6, 1).RowHeight = 18
Cells(iline + 7, 1).RowHeight = 69
Cells(iline + 8, 1).RowHeight = 5
Cells(iline + 9, 1).RowHeight = 18
Cells(iline + 10, 1).RowHeight = 69
Cells(iline + 11, 1).RowHeight = 18
Cells(iline + 12, 1).RowHeight = 9
Rows(iline + 12).Select
Selection.Borders(xlEdgeBottom).LineStyle = xlDash
End If
End If
End If
If (wdx = 1) Then
range(Cells(iline + 2, nb), Cells(iline + 2, nd)).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = True
.MergeCells = True
End With
With Selection.Font
.Name = "Arial"
.FontStyle = "Bold"
If (Sheets("BG").Cells(25, "J").Value = True) Then
.Size = 72
ElseIf (Sheets("BG").Cells(24, "J").Value = True) Then
.Size = 64
ElseIf (Sheets("BG").Cells(23, "J").Value = True) Then
.Size = 56
Else
.Size = 48
End If
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = font_color
End With
With Selection.Interior
.ColorIndex = interior_color
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
range(Cells(iline + 3, nb), Cells(iline + 3, nd)).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = True
.MergeCells = True
End With
With Selection.Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 18
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = font_color
End With
With Selection.Interior
.ColorIndex = interior_color
End With
range(Cells(iline + 3, nb), Cells(iline + 3, nd)).Select
Selection.Copy
Cells(iline + 4, nb).Select
ActiveSheet.Paste
Cells(iline + 5, nb).Select
ActiveSheet.Paste
Cells(iline + 6, nb).Select
ActiveSheet.Paste
range(Cells(iline + 3, nb), Cells(iline + 6, nd)).Select
Application.CutCopyMode = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
range(Cells(iline + 7, nb), Cells(iline + 12, nb)).Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = True
.MergeCells = True
End With
Selection.Interior.ColorIndex = interior_color
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
range(Cells(iline + 7, nd), Cells(iline + 12, nd)).Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = True
.MergeCells = True
End With
Selection.Interior.ColorIndex = interior_color
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Cells(iline + 9, nc).Select
Selection.Interior.ColorIndex = interior_color
Cells(iline + 12, nc).Select
Selection.Interior.ColorIndex = interior_color
Cells(iline + 7, nc).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = True
.MergeCells = False
End With
With Selection.Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Cells(iline + 8, nc).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = True
.MergeCells = False
End With
With Selection.Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Cells(iline + 12, nc).Select
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
range(Cells(iline + 7, nc), Cells(iline + 8, nc)).Select
Selection.Copy
Cells(iline + 10, nc).Select
ActiveSheet.Paste
Cells(iline + 2, nb).Value = Sheets("D").Cells(i + 1, "A").Value
Cells(iline + 3, nb).Value = Sheets("D").Cells(i + 1, "D").Value
Cells(iline + 4, nb).Value = Sheets("D").Cells(i + 1, "C").Value
Cells(iline + 5, nb).Value = Sheets("D").Cells(i + 1, "B").Value
'Cells(iline + 7, nc).Value = "PERFORM ACTION:"
If Sheets("D").range("BI11").Value <> "" Then
Cells(iline + 7, nc).Value = Sheets("D").range("BI12").Value & ":"
Else
Cells(iline + 7, nc).Value = "PERFORM ACTION:"
End If
'end of ML
Cells(iline + 8, nc).Value = Sheets("D").Cells(i + 1, "G").Value
'Cells(iline + 10, nc).Value = "YOU MUST VERIFY:"
If Sheets("D").range("BI12").Value <> "" Then
Cells(iline + 10, nc).Value = Sheets("D").range("BI13").Value & ":"
Else
Cells(iline + 10, nc).Value = "YOU MUST VERIFY:"
End If
'end of ML
If Sheets("D").Cells(i + 1, "H").Value = "" Then
Cells(iline + 11, nc).Value = Sheets("D").Cells(i + 1, "H").Value
Else
a = Sheets("D").Cells(i + 1, "H").Value
lng1 = Len(a) + 2
b = "LOCK BOX LOC AT: " & Sheets("BG").Cells(62, "V").Value
lng2 = Len(b)
Cells(iline + 11, nc).Value = a & Chr(10) & b
Cells(iline + 11, nc).Characters(Start:=lng1, Length:=lng2).Font.Color = -4165632
Cells(iline + 11, nc).Characters(Start:=lng1, Length:=lng2).Font.Size = 9
Cells(iline + 11, nc).Characters(Start:=lng1, Length:=lng2).Font.Bold = True
End If
If (k = 2) Then
range("B" & CStr(iline + 2) & ":D" & CStr(iline + 12)).Select
Selection.Copy
range("G" & CStr(iline + 2)).Select
ActiveSheet.Paste
End If
If (k <> 0) Then
Cells(iline + 15, "K").Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
End If
ElseIf (wdx = 2) Then
range(Cells(iline + 2, nb), Cells(iline + 2, nd)).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = True
.MergeCells = True
End With
With Selection.Font
.Name = "Arial"
.FontStyle = "Bold"
If (Sheets("BG").Cells(25, "J").Value = True) Then
.Size = 72
ElseIf (Sheets("BG").Cells(24, "J").Value = True) Then
.Size = 64
ElseIf (Sheets("BG").Cells(23, "J").Value = True) Then
.Size = 56
Else
.Size = 48
End If
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = font_color
End With
With Selection.Interior
.ColorIndex = interior_color
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
range(Cells(iline + 3, nb), Cells(iline + 3, nd)).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = True
.MergeCells = True
End With
With Selection.Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 20
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = font_color
End With
With Selection.Interior
.ColorIndex = interior_color
End With
range(Cells(iline + 3, nb), Cells(iline + 3, nd)).Select
Selection.Copy
Cells(iline + 4, nb).Select
ActiveSheet.Paste
Cells(iline + 5, nb).Select
ActiveSheet.Paste
range(Cells(iline + 3, nb), Cells(iline + 5, nd)).Select
Application.CutCopyMode = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
range(Cells(iline + 6, nb), Cells(iline + 6, nd)).Select
With Selection.Interior
.ColorIndex = interior_color
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Cells(iline + 2, nb).Value = Sheets("D").Cells(i + 1, "A").Value
Cells(iline + 3, nb).Value = Sheets("D").Cells(i + 1, "D").Value
Cells(iline + 4, nb).Value = Sheets("D").Cells(i + 1, "C").Value
Cells(iline + 5, nb).Value = Sheets("D").Cells(i + 1, "B").Value
If (k = 2) Then
range("B" & CStr(iline) & ":D" & CStr(iline + 6)).Select
Selection.Copy
range("G" & CStr(iline)).Select
ActiveSheet.Paste
End If
If (k <> 0) Then
Cells(iline + 16, "K").Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
End If
ElseIf (wdx = 3 And cdx = 1) Then
range(Cells(iline + 1, nb), Cells(iline + 1, nd)).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = True
.MergeCells = True
End With
With Selection.Font
.Name = "Arial"
.FontStyle = "Bold"
If (Sheets("BG").Cells(25, "J").Value = True) Then
.Size = 72
ElseIf (Sheets("BG").Cells(24, "J").Value = True) Then
.Size = 64
ElseIf (Sheets("BG").Cells(23, "J").Value = True) Then
.Size = 56
Else
.Size = 48
End If
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = font_color
End With
With Selection.Interior
.ColorIndex = interior_color
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
range(Cells(iline + 2, nb), Cells(iline + 14, nb)).Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = True
.MergeCells = True
End With
Selection.Interior.ColorIndex = interior_color
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
range(Cells(iline + 2, nd), Cells(iline + 14, nd)).Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = True
.MergeCells = True
End With
Selection.Interior.ColorIndex = interior_color
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Cells(iline + 2, nc).Select
Selection.Interior.ColorIndex = interior_color
Selection.Font.ColorIndex = font_color
Cells(iline + 5, nc).Select
Selection.Interior.ColorIndex = interior_color
Cells(iline + 8, nc).Select
Selection.Interior.ColorIndex = interior_color
Cells(iline + 11, nc).Select
Selection.Interior.ColorIndex = interior_color
Cells(iline + 14, nc).Select
Selection.Interior.ColorIndex = interior_color
Selection.Font.ColorIndex = font_color
Selection.Borders(xlEdgeBottom).Weight = xlThin
Cells(iline + 2, nc).Select
Selection.Font.FontStyle = "Bold"
Selection.Font.Size = 10
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
Cells(iline + 3, nc).Select
Selection.Font.FontStyle = "Bold"
Selection.Font.Size = 14
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
Selection.Borders(xlEdgeLeft).Weight = xlThin
Selection.Borders(xlEdgeTop).Weight = xlThin
Selection.Borders(xlEdgeBottom).Weight = xlThin
Selection.Borders(xlEdgeRight).Weight = xlThin
Cells(iline + 4, nc).Select
Selection.WrapText = True
Selection.Font.FontStyle = "Regular"
Selection.Font.Size = 12
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
Selection.Borders(xlEdgeLeft).Weight = xlThin
Selection.Borders(xlEdgeTop).Weight = xlThin
Selection.Borders(xlEdgeBottom).Weight = xlThin
Selection.Borders(xlEdgeRight).Weight = xlThin
Cells(iline + 6, nc).Select
Selection.Font.FontStyle = "Bold"
Selection.Font.Size = 14
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
Selection.Borders(xlEdgeLeft).Weight = xlThin
Selection.Borders(xlEdgeTop).Weight = xlThin
Selection.Borders(xlEdgeBottom).Weight = xlThin
Selection.Borders(xlEdgeRight).Weight = xlThin
Cells(iline + 7, nc).Select
Selection.WrapText = True
Selection.Font.FontStyle = "Regular"
Selection.Font.Size = 12
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
Selection.Borders(xlEdgeLeft).Weight = xlThin
Selection.Borders(xlEdgeTop).Weight = xlThin
Selection.Borders(xlEdgeBottom).Weight = xlThin
Selection.Borders(xlEdgeRight).Weight = xlThin
Cells(iline + 9, nc).Select
Selection.Font.FontStyle = "Bold"
Selection.Font.Size = 14
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
Selection.Borders(xlEdgeLeft).Weight = xlThin
Selection.Borders(xlEdgeTop).Weight = xlThin
Selection.Borders(xlEdgeBottom).Weight = xlThin
Selection.Borders(xlEdgeRight).Weight = xlThin
Cells(iline + 10, nc).Select
Selection.WrapText = True
Selection.Font.FontStyle = "Regular"
Selection.Font.Size = 12
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
Selection.Borders(xlEdgeLeft).Weight = xlThin
Selection.Borders(xlEdgeTop).Weight = xlThin
Selection.Borders(xlEdgeBottom).Weight = xlThin
Selection.Borders(xlEdgeRight).Weight = xlThin
Cells(iline + 12, nc).Select
Selection.Font.FontStyle = "Bold"
Selection.Font.Size = 14
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
Selection.Borders(xlEdgeLeft).Weight = xlThin
Selection.Borders(xlEdgeTop).Weight = xlThin
Selection.Borders(xlEdgeBottom).Weight = xlThin
Selection.Borders(xlEdgeRight).Weight = xlThin
Cells(iline + 13, nc).Select
Selection.WrapText = True
Selection.Font.FontStyle = "Regular"
Selection.Font.Size = 12
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
Selection.Borders(xlEdgeLeft).Weight = xlThin
Selection.Borders(xlEdgeTop).Weight = xlThin
Selection.Borders(xlEdgeBottom).Weight = xlThin
Selection.Borders(xlEdgeRight).Weight = xlThin
Cells(iline + 14, nc).Select
Selection.Font.FontStyle = "Regular"
Selection.Font.Size = 10
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
Selection.NumberFormat = "m/d/yy"
Cells(iline + 15, nc).Select
Selection.Font.FontStyle = "Regular"
Selection.Font.Size = 10
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
Cells(iline + 1, nb).Value = Sheets("D").Cells(i + 1, "A").Value
Cells(iline + 2, nc).Value = Sheets("D").Cells(i + 1, "D").Value & Chr(10) & _
Sheets("D").Cells(i + 1, "C").Value & Chr(10) & _
Sheets("D").Cells(i + 1, "B").Value
' 'Cells(iline + 3, nc).Value = "SOURCE DESCRIPTION:"
' If Sheets("D").Range("BI10").value <> "" Then
' Cells(iline + 3, nc).value = Sheets("D").Range("BI10").value
' Else
' Cells(iline + 3, nc).value = "Fed By:"
' 'Cells(iline + 3, nc).Value = "Primary Energy Source:"
' End If
'Fix so the Lock Tag always receives Fed By: instead of source description
Cells(iline + 3, nc).Value = "Fed By:"
'end of ML
Cells(iline + 4, nc).Value = Sheets("D").Cells(i + 1, "I")
If Sheets("D").range("BI27").Value <> "" Then
Cells(iline + 6, nc).Value = Sheets("D").range("BI27").Value
Else
Cells(iline + 6, nc).Value = "Captive Key Location:"
End If
'end of ML
Cells(iline + 7, nc).Value = Sheets("BG").Cells(7, "V").Value
If Sheets("D").range("BI1").Value <> "" Then
Cells(iline + 9, nc).Value = Sheets("D").range("BI12").Value & ":"
Else
Cells(iline + 9, nc).Value = "PERFORM ACTION:"
End If
'end of ML
Cells(iline + 10, nc).Value = Sheets("D").Cells(i + 1, "G").Value
If Sheets("D").range("BI13").Value <> "" Then
Cells(iline + 12, nc).Value = Sheets("D").range("BI13").Value & ":"
Else
Cells(iline + 12, nc).Value = "YOU MUST VERIFY:"
End If
'end of ML
Cells(iline + 13, nc).Value = Sheets("D").Cells(i + 1, "H").Value
Cells(iline + 14, nc).Value = Sheets("BG").Cells(8, "V").Value
If (tag_name <> "") Then
Cells(iline + 15, nc).Value = tag_name
End If
If (k = 2) Then
range("B" & CStr(iline + 1) & ":D" & CStr(iline + 12)).Select
Selection.Copy
range("G" & CStr(iline + 1)).Select
ActiveSheet.Paste
End If
If (k <> 0) And (idx Mod 2 = 1) And (kdx = 2) Then
Cells(iline + 32, "K").Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
ElseIf (k <> 0) And (idx Mod 4 = 2) And (kdx <> 2) Then
Cells(iline + 32, "K").Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
End If
ElseIf (wdx = 3 And cdx = 0) Then
range(Cells(iline + 1, nb), Cells(iline + 1, nd)).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = True
.MergeCells = True
End With
With Selection.Font
.Name = "Arial"
.FontStyle = "Bold"
If (Sheets("BG").Cells(25, "J").Value = True) Then
.Size = 72
ElseIf (Sheets("BG").Cells(24, "J").Value = True) Then
.Size = 64
ElseIf (Sheets("BG").Cells(23, "J").Value = True) Then
.Size = 56
Else
.Size = 48
End If
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = font_color
End With
With Selection.Interior
.ColorIndex = interior_color
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
range(Cells(iline + 2, nb), Cells(iline + 11, nb)).Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = True
.MergeCells = True
End With
Selection.Interior.ColorIndex = interior_color
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
range(Cells(iline + 2, nd), Cells(iline + 11, nd)).Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = True
.MergeCells = True
End With
Selection.Interior.ColorIndex = interior_color
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Cells(iline + 2, nc).Select
Selection.Interior.ColorIndex = interior_color
Selection.Font.ColorIndex = font_color
Cells(iline + 5, nc).Select
Selection.Interior.ColorIndex = interior_color
Cells(iline + 8, nc).Select
Selection.Interior.ColorIndex = interior_color
Cells(iline + 11, nc).Select
Selection.Interior.ColorIndex = interior_color
Selection.Font.ColorIndex = font_color
Selection.Borders(xlEdgeBottom).Weight = xlThin
Cells(iline + 2, nc).Select
Selection.Font.FontStyle = "Bold"
Selection.Font.Size = 10
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
Cells(iline + 3, nc).Select
Selection.Font.FontStyle = "Bold"
Selection.Font.Size = 14
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
Selection.Borders(xlEdgeLeft).Weight = xlThin
Selection.Borders(xlEdgeTop).Weight = xlThin
Selection.Borders(xlEdgeBottom).Weight = xlThin
Selection.Borders(xlEdgeRight).Weight = xlThin
Cells(iline + 4, nc).Select
Selection.WrapText = True
Selection.Font.FontStyle = "Regular"
Selection.Font.Size = 12
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
Selection.Borders(xlEdgeLeft).Weight = xlThin
Selection.Borders(xlEdgeTop).Weight = xlThin
Selection.Borders(xlEdgeBottom).Weight = xlThin
Selection.Borders(xlEdgeRight).Weight = xlThin
Cells(iline + 6, nc).Select
Selection.Font.FontStyle = "Bold"
Selection.Font.Size = 14
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
Selection.Borders(xlEdgeLeft).Weight = xlThin
Selection.Borders(xlEdgeTop).Weight = xlThin
Selection.Borders(xlEdgeBottom).Weight = xlThin
Selection.Borders(xlEdgeRight).Weight = xlThin
Cells(iline + 7, nc).Select
Selection.WrapText = True
Selection.Font.FontStyle = "Regular"
Selection.Font.Size = 12
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
Selection.Borders(xlEdgeLeft).Weight = xlThin
Selection.Borders(xlEdgeTop).Weight = xlThin
Selection.Borders(xlEdgeBottom).Weight = xlThin
Selection.Borders(xlEdgeRight).Weight = xlThin
Cells(iline + 9, nc).Select
Selection.Font.FontStyle = "Bold"
Selection.Font.Size = 14
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
Selection.Borders(xlEdgeLeft).Weight = xlThin
Selection.Borders(xlEdgeTop).Weight = xlThin
Selection.Borders(xlEdgeBottom).Weight = xlThin
Selection.Borders(xlEdgeRight).Weight = xlThin
Cells(iline + 10, nc).Select
Selection.WrapText = True
Selection.Font.FontStyle = "Regular"
Selection.Font.Size = 12
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
Selection.Borders(xlEdgeLeft).Weight = xlThin
Selection.Borders(xlEdgeTop).Weight = xlThin
Selection.Borders(xlEdgeBottom).Weight = xlThin
Selection.Borders(xlEdgeRight).Weight = xlThin
Cells(iline + 11, nc).Select
Selection.Font.FontStyle = "Regular"
Selection.Font.Size = 10
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
Selection.NumberFormat = "m/d/yy"
Cells(iline + 12, nc).Select
Selection.Font.FontStyle = "Regular"
Selection.Font.Size = 10
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
Cells(iline + 1, nb).Value = Sheets("D").Cells(i + 1, "A").Value
Cells(iline + 2, nc).Value = Sheets("D").Cells(i + 1, "D").Value & Chr(10) & _
Sheets("D").Cells(i + 1, "C").Value & Chr(10) & _
Sheets("D").Cells(i + 1, "B").Value
Cells(iline + 3, nc).Value = "Fed By:"
'end of ML
Cells(iline + 4, nc).Value = Sheets("D").Cells(i + 1, "I")
If Sheets("D").range("BI1").Value <> "" Then
Cells(iline + 6, nc).Value = Sheets("D").range("BI12").Value & ":"
Else
Cells(iline + 6, nc).Value = "PERFORM ACTION:"
End If
'end of ML
Cells(iline + 7, nc).Value = Sheets("D").Cells(i + 1, "G").Value
If Sheets("D").range("BI13").Value <> "" Then
Cells(iline + 9, nc).Value = Sheets("D").range("BI13").Value & ":"
Else
Cells(iline + 9, nc).Value = "YOU MUST VERIFY:"
End If
'end of ML
Cells(iline + 10, nc).Value = Sheets("D").Cells(i + 1, "H").Value
Cells(iline + 11, nc).Value = Sheets("BG").Cells(8, "V").Value
If (tag_name <> "") Then
Cells(iline + 12, nc).Value = tag_name
End If
If (k = 2) Then
range("B" & CStr(iline + 1) & ":D" & CStr(iline + 12)).Select
Selection.Copy
range("G" & CStr(iline + 1)).Select
ActiveSheet.Paste
End If
If (k <> 0) And (idx Mod 2 = 1) And (kdx = 2) Then
Cells(iline + 26, "K").Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
ElseIf (k <> 0) And (idx Mod 4 = 2) And (kdx <> 2) Then
Cells(iline + 26, "K").Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
End If
End If
Cells(iline + 3, 1).Select
End Sub