Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub Forecast_input()
- ws_output = "Data"
- nextr = Sheets(ws_output).Range("e" & Rows.Count).End(xlUp).Offset(1).Row
- Sheets(ws_output).Cells(nextr, 2).Value = Range("W1FN").Value
- Sheets(ws_output).Cells(nextr, 3).Value = Range("W1FCE").Value
- Sheets(ws_output).Cells(nextr, 4).Value = Range("EW1FCA").Value
- Sheets(ws_output).Cells(nextr, 5).Value = Range("W1WC").Value
- Sheets(ws_output).Cells(nextr, 6).Value = Range("W1PL").Value
- Sheets(ws_output).Cells(nextr, 7).Value = Range("W1FA").Value
- Sheets(ws_output).Cells(nextr + 1, 2).Value = Range("W2FN").Value
- Sheets(ws_output).Cells(nextr + 1, 3).Value = Range("W2FCE").Value
- Sheets(ws_output).Cells(nextr + 1, 4).Value = Range("EW2FCA").Value
- Sheets(ws_output).Cells(nextr + 1, 5).Value = Range("W2WC").Value
- Sheets(ws_output).Cells(nextr + 1, 6).Value = Range("W2PL").Value
- Sheets(ws_output).Cells(nextr + 1, 7).Value = Range("W2FA").Value
- Sheets(ws_output).Cells(nextr + 2, 2).Value = Range("W3FN").Value
- Sheets(ws_output).Cells(nextr + 2, 3).Value = Range("W3FCE").Value
- Sheets(ws_output).Cells(nextr + 2, 4).Value = Range("EW3FCA").Value
- Sheets(ws_output).Cells(nextr + 2, 5).Value = Range("W3WC").Value
- Sheets(ws_output).Cells(nextr + 2, 6).Value = Range("W3PL").Value
- Sheets(ws_output).Cells(nextr + 2, 7).Value = Range("W3FA").Value
- Sheets(ws_output).Cells(nextr + 3, 2).Value = Range("W4FN").Value
- Sheets(ws_output).Cells(nextr + 3, 3).Value = Range("W4FCE").Value
- Sheets(ws_output).Cells(nextr + 3, 4).Value = Range("EW4FCA").Value
- Sheets(ws_output).Cells(nextr + 3, 5).Value = Range("W4WC").Value
- Sheets(ws_output).Cells(nextr + 3, 6).Value = Range("W4PL").Value
- Sheets(ws_output).Cells(nextr + 3, 7).Value = Range("W4FA").Value
- Sheets(ws_output).Cells(nextr + 4, 2).Value = Range("W5FN").Value
- Sheets(ws_output).Cells(nextr + 4, 3).Value = Range("W5FCE").Value
- Sheets(ws_output).Cells(nextr + 4, 4).Value = Range("EW5FCA").Value
- Sheets(ws_output).Cells(nextr + 4, 5).Value = Range("W5WC").Value
- Sheets(ws_output).Cells(nextr + 4, 6).Value = Range("W5PL").Value
- Sheets(ws_output).Cells(nextr + 4, 7).Value = Range("W5FA").Value
- Sheets(ws_output).Cells(nextr + 5, 2).Value = Range("W6FN").Value
- Sheets(ws_output).Cells(nextr + 5, 3).Value = Range("W6FCE").Value
- Sheets(ws_output).Cells(nextr + 5, 4).Value = Range("EW6FCA").Value
- Sheets(ws_output).Cells(nextr + 5, 5).Value = Range("W6WC").Value
- Sheets(ws_output).Cells(nextr + 5, 6).Value = Range("W6PL").Value
- Sheets(ws_output).Cells(nextr + 5, 7).Value = Range("W6FA").Value
- Sheets(ws_output).Cells(nextr + 6, 2).Value = Range("W7FN").Value
- Sheets(ws_output).Cells(nextr + 6, 3).Value = Range("W7FCE").Value
- Sheets(ws_output).Cells(nextr + 6, 4).Value = Range("EW7FCA").Value
- Sheets(ws_output).Cells(nextr + 6, 5).Value = Range("W7WC").Value
- Sheets(ws_output).Cells(nextr + 6, 6).Value = Range("W7PL").Value
- Sheets(ws_output).Cells(nextr + 6, 7).Value = Range("W7FA").Value
- Sheets(ws_output).Cells(nextr + 7, 2).Value = Range("W8FN").Value
- Sheets(ws_output).Cells(nextr + 7, 3).Value = Range("W8FCE").Value
- Sheets(ws_output).Cells(nextr + 7, 4).Value = Range("EW8FCA").Value
- Sheets(ws_output).Cells(nextr + 7, 5).Value = Range("W8WC").Value
- Sheets(ws_output).Cells(nextr + 7, 6).Value = Range("W8PL").Value
- Sheets(ws_output).Cells(nextr + 7, 7).Value = Range("W8FA").Value
- Sheets(ws_output).Cells(nextr + 8, 2).Value = Range("W9FN").Value
- Sheets(ws_output).Cells(nextr + 8, 3).Value = Range("W9FCE").Value
- Sheets(ws_output).Cells(nextr + 8, 4).Value = Range("EW9FCA").Value
- Sheets(ws_output).Cells(nextr + 8, 5).Value = Range("W9WC").Value
- Sheets(ws_output).Cells(nextr + 8, 6).Value = Range("W9PL").Value
- Sheets(ws_output).Cells(nextr + 8, 7).Value = Range("W9FA").Value
- Sheets(ws_output).Cells(nextr + 9, 2).Value = Range("W10FN").Value
- Sheets(ws_output).Cells(nextr + 9, 3).Value = Range("W10FCE").Value
- Sheets(ws_output).Cells(nextr + 9, 4).Value = Range("EW10FCA").Value
- Sheets(ws_output).Cells(nextr + 9, 5).Value = Range("W10WC").Value
- Sheets(ws_output).Cells(nextr + 9, 6).Value = Range("W10PL").Value
- Sheets(ws_output).Cells(nextr + 9, 7).Value = Range("W10FA").Value
- Sheets(ws_output).Cells(nextr + 10, 2).Value = Range("W11FN").Value
- Sheets(ws_output).Cells(nextr + 10, 3).Value = Range("W11FCE").Value
- Sheets(ws_output).Cells(nextr + 10, 4).Value = Range("EW11FCA").Value
- Sheets(ws_output).Cells(nextr + 10, 5).Value = Range("W11WC").Value
- Sheets(ws_output).Cells(nextr + 10, 6).Value = Range("W11PL").Value
- Sheets(ws_output).Cells(nextr + 10, 7).Value = Range("W11FA").Value
- Sheets(ws_output).Cells(nextr + 11, 2).Value = Range("W12FN").Value
- Sheets(ws_output).Cells(nextr + 11, 3).Value = Range("W12FCE").Value
- Sheets(ws_output).Cells(nextr + 11, 4).Value = Range("EW12FCA").Value
- Sheets(ws_output).Cells(nextr + 11, 5).Value = Range("W12WC").Value
- Sheets(ws_output).Cells(nextr + 11, 6).Value = Range("W12PL").Value
- Sheets(ws_output).Cells(nextr + 11, 7).Value = Range("W1FA").Value
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement