ibu Himmah,
coba kode berikut yang ditulis dalam sebuah modul VBA, untuk menampilkan
modul tersebut dari lembar kerja Excel tekan tombol F11, klik Insert >>
Module
Option Explicit
' -------------------------- '
' Code by Miss Jan Raisin '
' untuk millis Belajar Excel '
' 13 November 2012 '
' -------------------------- '
' nama prosedur
Sub HLink()
' deklarasikan variabel untuk menyimpan objek data
' FData = data pertama
' rgData = range Data
' cData = cell yang berisi data
' tipe data adalah Range karena yang akan diambil adalah objeknya
(Range-nya)
Dim FData, rgData, cData As Range
' tentukan letak dari data pertama (FData)
' letaknya di sheet dengan nomor index 1 di cell B2
Set FData = Sheet1.Range("b2")
' tentukan letak dari range data (rgData)
' letaknya mulai dari data pertama (FData)
' sampai dengan baris terakhir yang berisi data (FData.End(xlDown)
Set rgData = Range(FData, FData.End(xlDown))
' lakukan Loop untuk setiap cell yang berisi data (cData)
For Each cData In rgData
' lakukan deklarasi untuk menyimpan objek yang akan diuji
HyperLink-nya
' FLink = data pertama yang akan diuji link-nya
' rgLink = range data yang akan diuji link-nya
' cLink = setiap cell yang akan diuji link-nya
Dim FLink, rgLink, cLink As Range
' tentukan posisi data pertama yang akan diuji link-nya
' mulainya dari posisi data pertama
Set FLink = FData
' tentukan posisi range data yang akan diuji link-nya
' posisinya mulai dari data pertama = FLink
' sampai baris terakhir yang berisi data FLink.End(xlDown)
Set rgLink = Range(FLink, FLink.End(xlDown))
' lakukan Loop untuk setiap cell yang akan diuji link-nya
For Each cLink In rgLink
' pengujian dilakukan dengan menggunakan perintah
.Hyperlinks.Count
' jika cell memiliki target tujuan HyperLink maka nilainya
adalah 1
' jika cell tidak memiliki target tujuan HyperLink maka
nilainya adalah 0
If cLink.Hyperlinks.Count = 0 Then
' jika ditemukan cell dengan target tujuan = 0
' maka hapus seluruh baris dalam cell tersebut
cLink.EntireRow.Delete
' ini adalah penutup pemeriksaan cell dengan HyperLink
End If
' lakukan pengujian dengan baris berikutnya
Next cLink
' lakukan pengujian dengan baris berikutnya
Next cData
' ini adalah penutup dari prosedur
End Sub
Best Regard,
Jan Raisin
Pada 13 November 2012 07:31, him mah <[email protected]> menulis:
> **
>
>
> maaf mau tanya: misal saya punya tabel seperti dibawah (terdiri dari 2
> kolom) misal kolom NO dan ALAMAT, untuk kolom alamat terdapat data
> yang mempunyai link dan tidak ada hyperlink
>
> NO ALAMAT
> 1 id.yahoo.com/?p=us
> 2 detik.com
> 3 republika.co.id/
> 4 www.inilah.com/
> 5 gmail.com
> 6 kompas.com
> 7 milis-belajar-excel
>
> yang diinginkan itu adalah menghapus baris yang pada bagian kolom
> ALAMAT tidak ada hyperlink nya, kira-kira VBAnya seperti apa. misal no
> 2 dan nomor 5 tidak ada hyperlinknya maka baris itu akan terhapus
>
> sehingga hasilnya
>
> NO ALAMAT
> 1 id.yahoo.com/?p=us
> 3 republika.co.id/
> 4 www.inilah.com/
> 6 kompas.com
> 7 milis-belajar-excel
>
> saya lampirkan contoh filenya
>
>
