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
<https://app.box.com/s/l5z1gu30gjx9jccf8mk47n3lmx50w82t>, 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"
>
>
>
>
>
>
>
>
>
>
