Tecnologia, programação e muito Visual FoxPro.

terça-feira, 6 de setembro de 2011

Bls: ]] XL-mania [[ Satu Form untuk multiple Sheet

 

Pak hapsari yang baik, terima kasih atas bantuannya, mohon maaf sebelumnya karena saya tidak menyertakan file yang sedang saya kerjakan, mohon bantuan ya pak. maklum masih belajar pak... :) senang..
yang saya kehendaki adalah ketika input data di form Nomor semua cell f6 terisi diseluruh sheets yang sudah di kasih nama masing-masing.

mohon pencerahan codenya gimana ya pak, filenya sekarang saya sertakan.
Terima kasih banyak pak hapsari

Salam hormat
Dedi Komarudin
CLiP Ad


Dari: Haps <hapsari.stlizbeth@gmail.com>
Kepada: XL-mania@yahoogroups.com
Dikirim: Senin, 5 September 2011 19:24
Judul: Re: ]] XL-mania [[ Satu Form untuk multiple Sheet

 
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 pencerahan 
bisakah menggunakan satu form untuk banyak sheet dalam sekali input.
Terima kasih 
Salam 
Dedi CliP


__._,_.___
Recent Activity:
+-:: 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              |
+-------------------------------------------------------------------+
MARKETPLACE
A bad score is 598. A bad idea is not checking yours, at freecreditscore.com.

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

.

__,_._,___

Nenhum comentário:

Arquivo do blog