Bisa !
Misal
~ data yg akan diinput ada di Sheet1 cell A1 (atau mungkin textbox1 di suatu userform)
~ tempat yg akan menjadi Output ada di 5 cell yaitu
Cell F4 di Sheet2, sampai Sheet6
With Sheet1.Range("A1")
Sheet2.Range("F4").Value = .Value
Sheet3.Range("F4").Value = .Value
Sheet4.Range("F4").Value = .Value
Sheet5.Range("F4").Value = .Value
Sheet6.Range("F4").Value = .Value
End With
Mungkin yg pak Dedi Kom maksudkan adalah: pengisian akan terus berlanjut
ke bawah setiap kali ada INPUT BARU
Jika demikian, seperti biasanya, harus ada proses mencari BARIS TERAKHIR
di KOLOM F pada tiap Sheet2 sampai Sheet6 lebih dulu
Misa, khusus di sheet2
Pencarian Row Kosong pertama (salah satu cara dari banyak cara)
R = Sheet2.Range("F" & Cells.Count).End(xlUp).Row + 1
Pengisian di row tsb (Kolom F)
Sheet2.Range("F" & R).Value = Sheet1.Range("A1").Value
akan lebih jelas jika Bapak datang tidak bertangan kosong, tapi bawa sheet data contoh..
-Hapsari-
2011/9/5 Dedi Komarudin <dedikom81@yahoo.co.id>
Dear pakar Xl-Mania mohon pencerahanbisakah menggunakan satu form untuk banyak sheet dalam sekali input.Terima kasih
SalamDedi CliP
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| selamat idul fitri, mohon maaf lahir dan batin... |
| www.linkedin.com/company/xl-mania |
| ayo pesan buku "mengapa boss benci chart anda" :D :D :D |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
| selamat idul fitri, mohon maaf lahir dan batin... |
| www.linkedin.com/company/xl-mania |
| ayo pesan buku "mengapa boss benci chart anda" :D :D :D |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
MARKETPLACE
.
__,_._,___
Nenhum comentário:
Postar um comentário