Sub KopiSheet()
* ' TEPATNYA COPY RANGE ANTAR SHEET*
* ' YANG DICOPY BUKAN SHEET PAK !!!!*
* ' iHaps*
* ' --------------------------------*
Dim Sumber As Range
Set Sumber = Worksheets("SUMBER").Cells(5, 1).CurrentRegion
Application.ScreenUpdating = False
With Worksheets("HASIL")
Sumber.Offset(0, 0).Resize(, 1).Copy:
.Range("B5").PasteSpecial xlPasteValuesAndNumberFormats
Sumber.Offset(0, 2).Resize(, 1).Copy:
.Range("D5").PasteSpecial xlPasteValuesAndNumberFormats
Sumber.Offset(0, 1).Resize(, 1).Copy:
.Range("F5").PasteSpecial xlPasteValuesAndNumberFormats
Sumber.Offset(0, 4).Resize(, 1).Copy:
.Range("G5").PasteSpecial xlPasteValuesAndNumberFormats
.UsedRange.EntireColumn.AutoFit
.Activate
.Cells(1).Activate
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
*
*
*2012/2/1 guru muda <mudag...@yahoo.com>*
>
> *Mohon bantuan kepada para rekan milis.
> Saya coba tulis code VBA (CODE ini hasil reparasi teman milis ini juga)
> agar bisa mengcopy nilai atau isi dari suatu sheet ke sheet lain pake
> tombol. Tetapi hasilnya tidak sesuai dengan harapan karena jika suatu cell
> berisi formula maka yg dicopy formulanya, padahal saya mau mengcopy isinya
> (tampilannya).
>
> Mohon Code VBA diprbaiki.
> Keterangan selengkapnya dapat dilihat pada lampiran.
> Atas pelajarannya, saya ucapkan terima kasih.
>
> *
>
guru tua mengCopy Sheet Otomatis Pake Tombol.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
