dengan maksud memperfaham property Offset -vs-Cells milik si object range;
ini kode mas kid (yg sudah "cool banget"..) dimodif dikittt...
Private Sub CommandButton1001_Click()
Dim Rng As Range, NewRow As Long
Set Rng = Sheets("databes").Cells(1)
NewRow = Rng.CurrentRegion.Rows.Count + 1
Range("b5:b9").Copy
Rng(NewRow, 1).PasteSpecial xlPasteValues, Transpose:=True
Application.CutCopyMode = False
' bisa ditambah: 'hapus RngInput' utk cegah double entry
Range("b5:b9").ClearContents
End Sub
*note:*
* Rng(NewRow, 1) notasi lengkapnya Rng.Cells(NewRow, 1)
* pengadaan variable NewRow, bermaksud memudahkan pemahaman *index baris*
dimana data akan di paste-kan
On Tue, Jun 29, 2010 at 4:01 PM, Mr. Kid <[email protected]> wrote:
> 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
>
