Bisa dicoba Begini:
Sub pindahan()
Dim BarisTerakhir, BarisTujuan As Integer
Sheets("Sheet Asal").Range("B2:B5").Copy
Sheets("Sheet Tujuan").Select
BarisTerakhir = .cell(.Rows.Count, 1).End(x1up).Row
BarisTujuan = BarisTerakhir + 1
Cells(BarisTujuan, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=True
End Sub
Salam
NangAgus
2014-09-24 11:06 GMT+07:00 Kiki Q [email protected] [belajar-excel] <
[email protected]>:
>
>
> Dear Mr Kid,
>
> Saya masih tidak mengerti, mohon di berikan penjelasan melalui file
> terlampir ,
>
> Atas perhatiannya saya mengucapkan terima kasih
>
> salam
> rizki
>
>
> On Wednesday, September 24, 2014 10:35 AM, "'Mr. Kid' [email protected]
> [belajar-excel]" <[email protected]> wrote:
>
>
>
> Copy paste special values dengan VBA :
> range("alamat range yang mau di-copy").Copy
> range("alamat cell tujuan paste values").pastespecial xlpastevalues
>
> Wassalam,
> Kid.
>
>
> 2014-09-24 4:35 GMT+10:00 Kiki Q [email protected] [belajar-excel] <
> [email protected]>:
>
>
> Dear master Excel,
>
> Mohon Bantuannya, saya mempunyai simulasi, saya mau simulasi ( sheet
> simulasi ) menyimpan otomatis ketika saya clik langsung ke sheet
> penyimpanan, masalahnya sheet simulasi tidak hanya value tapi berupa rumus.
> mohon panduannya bagaimana cara membuat makronya.
>
> Atas perhatian dan bantuannya saya mengucapkan banyak terima kasih
>
> salam
> rizki
>
> Note : untuk lebih jelasnya file terlampir.
>
>
>
>
>
>
