hehehe.... mbak Nisa punya gak catatan urutan prosesnya seperti apa ? Di shared dimari dong urutan proses tersebut... (kalo boleh n mau) Contoh catatan urutan proses : 1. hapus area input data di sheet A, sheet B, dan sheet C 2. tulis isian user tentang nilai sesuatu ke range beralamat di A1 di masing-masing sheet, yaitu sheet A, B, C 3. dst 4. dst
Supaya jadi mudah gitu... Wassalam, Kid On Fri, Jun 12, 2015 at 5:32 AM, Nisa Khairunnisa [email protected] [belajar-excel] <[email protected]> wrote: > > > 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 > > > >
