Mr. Kid mau tanya kalau inputan datanya di salah satu range supaya otomatis
tercopy ke sheet lain gmn caranya ?? misal kita pertama pilih combo "regresi
linier", terus yg kedua kita pilih "regresi kuadrat" maka data inputan
penjualan otomatis tercopy dari sheet "forecast linier ke "forecast kuadrat"
berlaku sebaliknya. ini saya sdh coba buat utak atik tapi masih ttp error.
Terimakasih sebelumnya maaf nanya2 terus.
Private Sub InputData_Click()
If ComboBox1 = "Regresi Linier" Then
If Sheets("Forecast Kuadrat").Range("D9") = "" Or
Sheets("Forecast Eksponensial").Range("D9") = "" Then
outRow = 5
' Membersihkan bagian output pada worksheet
Rows(outRow + 4 & ":" & outRow + 30).Select
'Selection.Clear
'Selection.ClearContents
outSheet = "Forecast Linier"
Worksheets(outSheet).Activate
Sheets("Forecast Linier").Cells(1, 1) = TxtPeriode.Text
For rowNum = 1 To Cells(1, 1).Value
Cells(8 + rowNum, 4) = InputBox("masukkan nilai")
Cells(8 + rowNum, 4).Select
X = rowNum - 1
Cells(outRow + rowNum + 3, 3).Value = rowNum 'Periode
Cells(outRow + rowNum + 3, 5).Value = X
Next rowNum
MsgBox " Data yang anda masukkan sudah terpenuhi"
Else
If Sheets("Forecast Kuadrat").Range("d9").Cells(1, 1)
Then
For rowNum = 1 To Cells(1, 1).Value
Cells(8 + rowNum, 4).Select
Next rowNum
Else
If Sheets("Forecast Eksponensial").Range("d9").Cells(1,
1) Then
For rowNum = 1 To Cells(1, 1).Value
Cells(8 + rowNum, 4).Select
Next rowNum
End If
End If
End If
Else
If ComboBox1 = "Regresi Kuadrat" Then
outRow = 5
' Membersihkan bagian output pada worksheet
Rows(outRow + 4 & ":" & outRow + 30).Select
' Selection.Clear
'Selection.ClearContents
outSheet = "Forecast Kuadrat"
Worksheets(outSheet).Activate
If Sheets("Forecast Linier").Range("D9") = "" Or
Sheets("Forecast Eksponensial").Range("D9") = "" Then
Sheets("Forecast Kuadrat").Cells(1, 1) =
TxtPeriode.Text
For rowNum = 1 To Cells(1, 1).Value
Cells(8 + rowNum, 4) = InputBox("masukkan nilai")
Cells(8 + rowNum, 4).Select
X = rowNum - 1
Cells(outRow + rowNum + 3, 3).Value = rowNum
'Periode
Cells(outRow + rowNum + 3, 5).Value = X
Cells(outRow + rowNum + 3, 6).Value = X ^ 2
Next rowNum
MsgBox " Data yang anda masukkan sudah terpenuhi"
Else
If Sheets("Forecast Linier").Range("d9").Cells(1, 1) Then
For rowNum = 1 To Cells(1, 1).Value
Cells(8 + rowNum, 4).Select
Next rowNum
MsgBox " Data yang anda masukkan sudah terpenuhi"
