Iya mr.kid
1. ketika di masukan periode peramalan, misal 10 maka yg terisi di kolom penjualan 10, maka x otomatis terisi juga dari 0 - 9 trs isian ini semua otomatis tercopy di 3 sheets. tambhan u/ di sheet yg kedua ada input otomatis X^2 Jadi yg terisi kolom d9,e9 di 3 sheets Dan f9 khusus di satu sheet 2. di form yg berbeda ada proses perhitungan forecast, dan errornya Dikirim dari Yahoo Mail pada Android Dari:"'Mr. Kid' [email protected] [belajar-excel]" <[email protected]> Tanggal:Jum, 12 Jun 2015 pada 7:42 Judul:Re: [belajar-excel] Copy data range antar sheet VBA Excel 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
