Script pada event klik si tombol :
Dim rng As Range
Set rng = Sheets("databes").Range("a1")
Range("b5:b9").Copy
rng.Offset(rng.CurrentRegion.Rows.Count).PasteSpecial xlPasteValues,
Transpose:=True
Regards.
Kid.
On Tue, Jun 29, 2010 at 2:34 PM, Contract Mining Assistant, Asam-Asam <
[email protected]> wrote:
>
>
> Selamat Sore teman2.
> mau nanya nich, pertanyaan ada pada file terlampir.
>
>
> Terima kasih yaaa.
>
> Salam, Rasyid
> Disclaimer - This message including any attachments and information
> contained
> herein ("Message" ) may contain privileged information or otherwise is
> protected
> from disclosure. Any unauthorized use of this Message by any person may
> lead to
> legal consequences. If you receive this Message in error, or if the
> recipient
> of this Message is not the intended recipient or the employee or agent
> authorized
> for delivering this Message to the intended recipient you are hereby
> notified that
> any disclosure, dissemination, distribution or copying of this Message
> or let or
> cause this Message to be disclosed,disseminated, distributed, or copied is
> strictly
> prohibited, and please notify the sender by return message and
> immediately delete
> this Message from your system. Incoming and outgoing communications
> using this
> electronic mail may be monitored by PT Arutmin Indonesia,as permitted by
> applicable
> law and regulations. Unless it is made by the authorized person,any views
> expressed
> in this Message are those of the individual sender and may not necessarily
> reflect
> the views of PT Arutmin Indonesia.
> You should check attachments for viruses and defects before opening or
> using them.
> We are not liable to recover any injuries caused by virused or defected
> attachments.
>
>
