Ganti:
If Not c.Formula Like "*!*"
Menjadi:
If c.Formula Like "*!*"
Sehingga lengkapnya menjadi:
Sub Limrot()
Dim c As Range
For Each c In Selection
If c.Formula Like "*!*" Then c.Interior.Color = vbBlue
Next
End Sub
>semoga bermanfaat
________________________________
From: Limrot <[email protected]>
To: [email protected]
Sent: Thu, August 12, 2010 8:30:52 AM
Subject: Re: ]] XL-mania [[ Cari cell yang tidak di link
terima kasih untuk saudara Anton Suryadi,
kalo misalnya kita mau kebalikannya gimana mas, maksudnya range yang dependent
dengan sheet lain yang berwarna biru. bagaimana caranya?
rgds
Limrot
anton suryadi wrote:
> Coba perbantuan dengan macro:
>
> Taruh di Module1:
> Sub Limrot()
> Dim c As Range
> For Each c In Selection
> If Not c.Formula Like "*!*" Then c.Interior.Color = vbBlue
> Next
> End Sub
>
> Cara mempungsikannya:
> >Sorot range yang berisi formula
> >Tekan Alt+F8
> >Pilih macro-nya kemudian tekan Enter
> >Range yang tidak dependent dengan sheet lainnya akan berwarna biru.
>
> File terlampir
>
>
> >semoga bermanfaat
>
>
>
> ------------------------------------------------------------------------
> *From:* Limrot <[email protected]>
> *To:* [email protected]
> *Sent:* Mon, August 9, 2010 2:56:27 PM
> *Subject:* ]] XL-mania [[ Cari cell yang tidak di link
>
>
> Dear all,
>
> Gimana ya caranya untuk melihat cell mana yang tidak ada link dengan
> worksheet yang lainnya.
>
> Dalam file terlampir cell 'B10" worksheet detail adalah jawabannya.
>
> Tapi bagaimana kita bisa tau dengan cepat bila datanya banyak?
>
> rgds
> Limrot
>
>
>
