Sub UpdateHistory()
Dim wsH As Worksheet
Dim wsV As Worksheet
Dim lngNextRow As Long
Set wsV = Sheets("V_OUT")
Set wsH = Sheets("HIST_DTA")
With wsH
lngNextRow = .Range("A1048576").End(xlUp).Row + 1
.Cells(lngNextRow, "A") = wsV.Range("A4")
.Cells(lngNextRow, "B") = wsV.Range("B6")
.Cells(lngNextRow, "D") = wsV.Range("B1")
.Cells(lngNextRow, "E") = wsV.Range("A6")
.Cells(lngNextRow, "C") = Format(wsH.Range("E" & lngNextRow) / wsH.Range("D" & lngNextRow) * 100, "00.00")
.Cells(lngNextRow, "C").Interior.Color = vbYellow
' Get rid of green triangle
.Cells(lngNextRow, "C").Errors(xlNumberAsText).Ignore = True
wsV.Range(Cells(6, "C"), Cells(6, wsV.UsedRange.Columns.Count)).Copy Destination:=.Cells(lngNextRow, "G")
End With
End Sub
1) There's no room for the results for more than one number on the V_OUT sheet, and
2) If there were room, how would you decide which ones to move to history?
with find 3 find 2 find 1
but need
enter an list of numbers not one by one
then the output of the multiple list of numbers