saya bukan pakar vba, sekedar urun coding, mohon dikomentari dan dikoreksi juga
bila ada yang salah atau perlu diperbaiki ^_^
(nerusin algoritma pak hendrik)
kata simbah:
>gunakan "With" jika memungkinkan
>hindari "Select" jika memungkinkan
Sub LacakError2()
On Error GoTo 10
Set x = ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas, xlErrors)
With x
.Interior.Color = vbYellow
.Font.Bold = True
.Font.Color = vbRed
.Select
n = .Count
End With
Set x = Nothing
MsgBox "Jumlah ERROR ada " & n & ", Silakan KOREKSI lalu TEKAN LACAK CLEAR",
vbExclamation, "MELACAK dan MENGHITUNG jumlah ERROR"
10
End Sub
>semoga bermanfaat
.::trouble is a friend::.
________________________________
From: hendrik karnadi <hendrikkarn...@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Sun, April 11, 2010 11:49:10 AM
Subject: [belajar-excel] Tips untuk Melacak dan Menghitung ERROR
Friends,
Dari hasil coba-coba, saya mencoba membuat program MELACAK dan MENGHITUNG
jumlah ERROR dalam suatu sheet, secara OTOMATIS pada saat PINDAH KE SHEET yang
mengandung ERROR atau dengan menekan tombol LACAK ERROR.
Mas Kid, Mbak Siti dan para PAKAR VBA lainnya mungkin dapat menyempurnakannya.
Seperti kata pepatah "Dengan memberi anda akan menerima".
Salam,
Hendrik Karnadi
________________________________
New Email addresses available on Yahoo!
Get the Email name you've always wanted on the new @ymail and @rocketmail.
Hurry before someone else does!
