Pak cheivory_bridge.
tolog lampirkan contoh file nya .
yang lengkap ya.
Salam
Lukman.
NB : Ada waktu luang dikit .
On Wed, Mar 22, 2017 at 3:26 PM, hendrik karnadi hendrikkarn...@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Coba tambahkan 2 perintah berikut ini:
>
> Set rngGabung = Sheets("Gabung").Range("A2").CurrentRegion
>
> rngGabung.Value = rngGabung.value
>
> seblm Application.CutCopyMode = False
>
> Salam,
> HK
>
>
> Sent from Yahoo Mail on Android
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>
>
>
> Yth. Pakar Excel
>
>
> Mohon bantuannya ,
>
>
> Saya dapat barisan code macro berikut (dari milis ini juga) :
>
>
> Sub Gabung()
>
> Dim rngGabung As Range
>
> Dim sh As Worksheet
>
> Dim rngsh As Range
>
> Dim brs As Long
>
> Set rngGabung = Sheets("Gabung").Range("A2").CurrentRegion
>
> Set rngGabung = rngGabung.Offset(1, 0).Resize(rngGabung.Rows.Count - 1)
>
> Application.ScreenUpdating = False
>
>
>
> rngGabung.ClearContents
>
>
>
> For Each sh In Worksheets
>
> If sh.Name <> "Gabung" Then
>
> If sh.Name <> "nim_nama" Then
>
> If sh.Name <> "a2" Then
>
> If sh.Name <> "pivot_table" Then
>
> Set rngsh = sh.Range("A2").CurrentRegion
>
> Set rngsh = rngsh.Offset(1,
> 0).Resize(rngsh.Rows.Count - 1)
>
> brs = WorksheetFunction.CountA(
> Sheets("Gabung").Columns("A:A"))
>
> rngsh.Copy Sheets("Gabung").Range("A" & brs + 1)
>
> End If
>
> End If
>
> End If
>
> End If
>
> Next sh
>
>
>
> Application.CutCopyMode = False
>
> Application.ScreenUpdating = True
>
> End Sub
>
>
> Barisan code macro tersebut jika diterapkan hasilnya "copy paste" ..
>
> keinginan saya bagaimana biar hasilnya "copy VALUE" saja, mohon bantuannya
> merevisi barisan code macro tersebut ..
>
>
> Terima kasih
>
>
> ari
>
>
>
>
