Mohon bantuannya para master, saya kebingungan dengan error unable to set the
formula array property of the range class.sudah dicoba diutak atik tapi ttp
error .hasil dari fungsi linestnya ada di 2 kolom 5 baris. Mohon pencerahannya,
terimakasih.
Dim outRow, rowNum, outSheet
Dim x, y As Integer
Private Sub CommandButton1_Click()
outRow = 5 'Untuk menentukan dimana hasil perhitungan ditampilkan
outSheet = "Forecast Linier"
Worksheets(outSheet).Activate
' Membersihkan bagian output pada worksheet
Rows(outRow + 4 & ":" & outRow + 30).Select
Selection.Clear
Selection.ClearContents
If ComboBox1 = "Regresi Linier" Then
Sheets("Forecast Linier").Cells(1, 1) = TxtPeriode.Text
For y = 1 To Cells(1, 1).Value
Cells(8 + y, 4) = InputBox("masukkan nilai")
Cells(8 + y, 4).Select
Next y
MsgBox " Data yang anda masukkan sudah terpenuhi"
Else
If ComboBox1 = "Regresi Kuadrat" Then
InputPenjualan_kuadrat.Show
Else
If ComboBox1 = "Eksponensial" Then
InputPenjualan_eksponensial.Show
End If
End If
End If
End Sub
Private Sub Hitung_Click()
For rowNum = 1 To Cells(1, 1).Value
x = rowNum - 1
Cells(outRow + rowNum + 3, 3).Value = rowNum 'Periode
Cells(outRow + rowNum + 3, 5).Value = x
Next rowNum
Range("I10:J14").Select
ActiveCell.FormulaR1C1 = "=linest"
Range("I10:J14").Select
Selection.FormulaArray = _
"=LINEST(y,x,1,1)"
End Sub
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Regresi Linier"
.AddItem "Regresi Kuadrat"
.AddItem "Eksponensial"
End With
End Sub
