Code: Select all
Sub CopyAsValues()
Dim m As Long
With Worksheets("Main File")
m = .Range("A" & .Rows.Count).End(xlUp).Row
Worksheets("Outputs").Range("A8:C" & m + 6).Value = .Range("C2:E" & m).Value
End With
End Sub
Code: Select all
Sub CopyAsValues()
Dim m As Long
With Worksheets("Main File")
m = .Range("A" & .Rows.Count).End(xlUp).Row
Worksheets("Outputs").Range("A8:C" & m + 6).Value = .Range("C2:E" & m).Value
End With
End Sub
Code: Select all
Function FirstGroup(Condition As String, TheDate As Date) As Variant
FirstGroup = CVErr(xlErrNA)
Application.Volatile
On Error GoTo NiceExit
If Month(TheDate) = 1 And Condition = "OK" Then
FirstGroup = 1000
Else
FirstGroup = vbNullString
End If
NiceExit:
End Function