Terimakasih banyak Ms. Jan atas pencerahannya. Saya coba dulu ya, mhn jgn kapok
jika saya kembali bertanya :)
Semoga Allah membalas kebaikan Ms. Jan & rekan2 disini dg beribu2 kebaikan ..
aamiin ...
Wassalam,
Mulki
----- Original Message -----
From: Jan Raisin
To: belajar-excel@yahoogroups.com
Sent: Thursday, February 20, 2014 1:36 PM
Subject: Re: [belajar-excel] RE: Makro utk refresh & sort data di table
coba copas script ini ke sebuah modul, lalu assign macro ke tombol yang sudah
anda buat sebelumnya:
Sub RefreshData()
Dim rgStuf As Range, xStuf As Range
Dim rgData As Range, rgHelper As Range
Dim lRow As Long
' pasang Helper di kolom A
Range("a3").Value = "Helper" ' judul header Helper
Set rgStuf = Range("l4")
Set rgStuf = Range(rgStuf, rgStuf.End(xlDown)) ' set area sisa Stuffing
For Each xStuf In rgStuf
With xStuf
lRow = .Row ' ambil nomor barisnya
dulu
If .Value >= -2 And .Value <= 0 Then
Cells(lRow, 1).Value = 1 ' ini yang warna merah
ElseIf .Value >= -5 And .Value <= -3 Then
Cells(lRow, 1).Value = 2 ' ini yang warna kuning
ElseIf .Value < -5 Then
Cells(lRow, 1).Value = 3 ' ini yang warna hijau
Else
Cells(lRow, 1).Value = 4 ' ini yang gak diwarnain
End If
End With
Next xStuf
' urutkan datanya
Set rgData = Range("a3").CurrentRegion.Offset(1)
rgData.Sort key1:=Range("a3"), order1:=xlAscending, key2:=Range("k3"),
order2:=xlDescending, Header:=xlYes
' hapus isi kolom helper
Set rgHelper = Range("a3").CurrentRegion.Offset(1).Resize(, 1)
rgHelper.ClearContents
' refresh pivot tablenya
Sheet1.PivotTables("PivotTable1").PivotCache.Refresh
End Sub
Wassalam,
-Miss Jan Raisin-
Pada 20 Februari 2014 13.27, Mulki <mu...@aop.component.astra.co.id> menulis:
Bisa kasih contoh makronya pak summonery ?
Saya blm ada gambaran seperti apa dan blm pernah coba makro jg ?
Sedangkan utk sort berdasarkan warna harapan saya bisa menggunakan makro jg
pak saat tombol REFRESH dipencet.
Jadi tombol REFRESH tesbt bisa utk men-SORT data dan me-REFRESH Graphic
dibawahnya.
Mohon bantuannya pak summonery.
Terimakasih atas pencerahannya.
Wassalam,
Mulki
----- Original Message -----
From: summon...@yahoo.com
To: belajar-excel@yahoogroups.com
Sent: Thursday, February 20, 2014 12:07 PM
Subject: [belajar-excel] RE: Makro utk refresh & sort data di table
Wlkmslm wr wb.
Pak Mulki bisa membuat macro dimulai dengan merekamnya.
Atau dalam hal refresh all bisa menggunakan shortcut key Ctrl+Alt+F5
Untuk sort berdasarkan warna --> Sort by Color --> Custom Sort --> Sort
on Cell Color
>semoga bermanfaat
