av8tordude
04-17-2020, 12:02 AM
Column K with dates indicate the position is closed. I would like to input the following information (below) into column T for the positions that are NOT closed.
Note: The data currently indicated in column T in the attached should be the correct output.
Can anyone assists
Sub OpnPos()
Dim LRow As Long
LRow = Range("A" & Rows.Count).End(xlUp).Row
Range("T7") = WorksheetFunction.CountA(Range("K7:K15" & LRow))
Range("T8") = Format(WorksheetFunction.Sum(Range("J7:J" & LRow)), "$#,0.00")
Range("T9") = Format(WorksheetFunction.Sum(Range("P7:P" & LRow)), "$#,0.00")
End Sub26348
Note: The data currently indicated in column T in the attached should be the correct output.
Can anyone assists
Sub OpnPos()
Dim LRow As Long
LRow = Range("A" & Rows.Count).End(xlUp).Row
Range("T7") = WorksheetFunction.CountA(Range("K7:K15" & LRow))
Range("T8") = Format(WorksheetFunction.Sum(Range("J7:J" & LRow)), "$#,0.00")
Range("T9") = Format(WorksheetFunction.Sum(Range("P7:P" & LRow)), "$#,0.00")
End Sub26348