ReignEternal
New Member
- Joined
- Apr 11, 2021
- Messages
- 41
- Office Version
- 365
- Platform
- Windows
Hello, I am trying to learn what the text inside Parentheses () means. Because of not knowing what it means, I don't know what to properly call it. Just to clarify, I am not needing help with the VBA, I would like to know what the text within the parentheses is properly referred as. The only thing I could find refers to that as an argument but didn't go into detail. Any understanding is greatly appreciated.
Rich (BB code):
mlHeader1
Call MarkAsNormal(Selection, 1, False)
Call MarkAsHeader(Selection, 1)
Sub MarkAsNormal(ByVal target As Range, ByVal Index As Integer, Formulas As Boolean)
With Sheets("Formulas").Rows(rowNormal).Offset(Index - 1, 0)
For Each rng In target.Areas
If rng.Row < StartLine Then Exit Sub
.Copy
rng.EntireRow.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
rng.EntireRow.PasteSpecial Paste:=xlPasteValidation, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
'Reset all cells with formulas
If Formulas = True Then
Call SetFormulas(rng, Index, False)
'Set Labor Task
For Each r In rng.EntireRow.Rows
Call fLaborTask(Cells(r.Row, colModel), True)
Next
End If
Call MarkAsType(rng, Sheets("Formulas").Range("A30").Offset(Index, 0))
Next rng
End With
target.Select
End Sub
Sub MarkAsHeader(ByVal target As Range, Index As Integer)
With Sheets("Formulas").Cells(20, 1)
For Each rng In target.Areas
Call MarkAsType(rng, .Offset(Index, 0))
For Each c In rng.EntireRow.Range(Cells(1, 1), Cells(rng.Rows.Count, 1)).Cells
If UCase(c.Text) <> "N" Then c.Value = .Offset(Index, 1)
Next c
Next rng
End With
target.Select
End Sub
Sub MarkAsType(ByVal target As Range, H As Range)
Dim R1 As Integer, R2 As Integer, c As Integer
Dim NF As String
R1 = target.Row
R2 = R1 + target.Rows.Count - 1
c = colDesc
With Range(Cells(R1, c), Cells(R2, c))
.HorizontalAlignment = H.HorizontalAlignment
.Font.FontStyle = H.Font.FontStyle
.Font.Color = H.Font.Color
.Interior.Color = H.Interior.Color
.Interior.PatternColorIndex = H.Interior.PatternColorIndex
.Interior.Pattern = H.Interior.Pattern
End With
Sheets(Array("Change Order", "Bill of Materials")).Select
Range(Cells(R1, 3), Cells(R2, 8)).Select
With Selection
.HorizontalAlignment = H.HorizontalAlignment
.Font.FontStyle = H.Font.FontStyle
.Font.Color = H.Font.Color
.Interior.Color = H.Interior.Color
.Interior.PatternColorIndex = H.Interior.PatternColorIndex
.Interior.Pattern = H.Interior.Pattern
End With
Sheets(Array("BOM Without Unit Pricing", "Alternates", "GC CO BOM")).Select
Range(Cells(R1, 3), Cells(R2, 6)).Select
With Selection
.HorizontalAlignment = H.HorizontalAlignment
.Font.FontStyle = H.Font.FontStyle
.Font.Color = H.Font.Color
.Interior.Color = H.Interior.Color
.Interior.PatternColorIndex = H.Interior.PatternColorIndex
.Interior.Pattern = H.Interior.Pattern
End With
Sheets("Cost").Select
End Sub
Last edited by a moderator: