Iya, terimakasih banyak Mr.Kid atas saran dan jawaban-jawabannya sangat membantu 
Dikirim dari Yahoo Mail pada Android Dari:"'Mr. Kid' [email protected] [belajar-excel]" <[email protected]> Tanggal:Sen, 8 Jun 2015 pada 17:04 Judul:Re: Bls: Bls: [belajar-excel] Fungsi linest pada VBA Excel Hai Nisa, Contoh copy suatu range : > copy dan paste all Sheets("nama sheet asal").range("alamat range yang di-copy").Copy Sheets("nama sheet target").range("alamat range paste") > copy lalu paste values sajah Sheets("nama sheet asal").range("alamat range yang di-copy").Copy Sheets("nama sheet target").range("alamat range paste").pastespecials xlpastevalues ** yang di-bold bisa diganti dengan berbagai opsi paste special (lihat opsi ketika klik kanan paste special) btw, seperti pada baris kode Anda yang ini : Cells(8 + rowNum, 4) = InputBox("masukkan nilai") misalkan kode tersebut untuk menulis ke sheet 'Forecast Linier', maka untuk menulis langsung ke sheet 'Forecast Kuadrat' bisa ditambahkan baris berbunyi : (dilokasi cell yang sama tapi beda sheet) sheets("Forecast Kuadrat").Cells(8 + rowNum, 4).value= sheets("Forecast Linier").Cells(8 + rowNum, 4).value sehingga ada 2 baris kode seperti begini : Cells(8 + rowNum, 4) = InputBox("masukkan nilai") sheets("Forecast Kuadrat").Cells(8 + rowNum, 4).value= sheets("Forecast Linier").Cells(8 + rowNum, 4).value hehehe.... tapi kalau melihat bentuk script yang telah Anda buat, jumlah baris menulis datanya akan menjadi banyak sekali, karena setiap blok kondisi berdasar combobox nya akan berisi banyak baris penulisan nilai ke banyak sheet. Artinya, pilihan combobox yang menjadi kriteria penulisan inputan nilai justru tidak efisien. Logika sederhananya, user meng-input data lebih dulu disuatu tempat atau banyak tempat sekaligus. Lalu user memilih, data yang sudah di-input tersebut akan diproses apa (pilih di combobox, forecast ini, itu, atau unu) tapi, kalau Anda maunya demikian ya silakan... sekedar opsi sajah kok. Malah akan lebih ciamik lagi, kalau inputan user cukup di sebuah sheet saja. Lalu proses forecast ini, itu, unu nya menggunakan data di 1 bijik sheet tadi. Jadi ndak ribet nyalin ke sheet lain dan kelak ndak ribet menjaga kesatuan datanya. Bisa jadi, kalau mau memperhatikan dan mempelajari contoh file tentang regresi tempo lalu yang di-unduh dari sini, justru output hasil semua forecase bisa disusun dalam sebuah tabel tenpat si user meng-input tadi. Hanya butuh menggandakan formulasi array block yang menggunakan fungsi linest saja, menjadi banyak block (kalau ingin 3 macam forecast, berarti di gandakan jadi 3 block). Lalu hasil setiap block digunakan oleh kolom hasil yang berbeda. Jadinya, nanti bisa membandingkan secara langsung dan mudah antar cara forecast. btw sekali lagi, sekedar opsi sajah... pokoke manteb aja jalaninnya, apapun pilihan Anda. Wassalam, Kid 2015-06-08 17:50 GMT+10:00 Nisa Khairunnisa [email protected] [belajar-excel] <[email protected]>: 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"
