Mohon bantuannya, seharian utak atik masih belum ketemu errornya kenapa. Kadang
yang tercopy hanya sebagian kadang sama sekali tidak tercopy, itu kenapa ya ??
:(
Private Sub InputData_Click()
outRow = 5 ' Membersihkan bagian output
pada worksheet
Rows(outRow + 4 & ":" & outRow + 30).Select
Selection.Clear Selection.ClearContents
outSheet = "Forecast Linier" Worksheets(outSheet).Activate
lRow = Cells(1, 1)
Cells(1, 1) = TxtPeriode.Text
Sheets("Forecast Linier").Range("A1").Resize(lRow,
1).Copy Sheets("Forecast Kuadrat").Range("A1")
Sheets("Forecast Linier").Range("A1").Resize(lRow, 1).Copy Sheets("Forecast
Eksponensial").Range("A1")
For rowNum = 1 To Cells(1, 1).Value
Cells(outRow + rowNum + 3, 3).Value = rowNum
Sheets("Forecast Linier").Range("c9").Resize(lRow,
1).Copy Sheets("Forecast Kuadrat").Range("c9")
Sheets("Forecast Linier").Range("c9").Resize(lRow, 1).Copy
Sheets("Forecast Eksponensial").Range("c9")
Cells(8 + rowNum, 4) = InputBox("masukkan nilai")
Cells(8 + rowNum, 4).Select
Sheets("Forecast Linier").Range("D9").Resize(lRow, 1).Copy
Sheets("Forecast Kuadrat").Range("D9")
Sheets("Forecast Linier").Range("D9").Resize(lRow, 1).Copy
Sheets("Forecast Eksponensial").Range("D9")
X = rowNum - 1 Cells(outRow + rowNum + 3, 5).Value = X
Sheets("Forecast
Linier").Range("e9").Resize(lRow, 1).Copy Sheets("Forecast
Eksponensial").Range("e9")
Sheets("Forecast Linier").Range("e9").Resize(lRow, 1).Copy
Sheets("Forecast Kuadrat").Range("e9")
Sheets("Forecast Kuadrat").Cells(outRow + rowNum + 3, 6).Value = X ^ 2
Next rowNum
MsgBox " Data yang anda
masukkan sudah terpenuhi", vbOKOnly Peramalan.Show
End Sub
