Atau sedikit diubah prosedurnya hingga seperti prosedur berikut ini :
Public Sub DeleteNonHyperlink()
Dim rngData As Range, rng As Range
Set rngData = Sheet1.Range("a1").CurrentRegion.Resize(, 1).Offset(1, 1)
For Each rng In rngData
If rng.Hyperlinks.Count < 1 Then
rng.ClearContents
End If
Next rng
rngData.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
Wassalam,
Kid.
2012/11/13 Jan Raisin <[email protected]>
> **
>
>
> ibu Himmah,
>
> selamat ya.. senang rasanya solusi dari saya sesuai dengan yang ibu Himmah
> inginkan.
>
>
> Mas Aji,
>
> deklarasi di dalam Loop dimaksudkan untuk mendapatkan kembali nilai baris
> dari setiap data setelah dilakukan penghapusan terhadap suatu baris
> tertentu di dalam data tersebut.
>
> Jika deklarasi dilakukan di luar Loop, misal dilakukan penghapusan
> terhadap baris nomor 3 yang perintahnya terdapat dalam blok For Each -
> Next, maka setelah baris 3 terhapus maka baris 4 akan berubah menjadi baris
> 3 *(4 >> 3; 5 >> 4; 6 >> 5 dst)* sedangkan Excel akan menyimpan data
> bahwa sebelumnya operasi dilakukan pada baris 3.
>
> Maka pada saat macro kembali dijalankan untuk baris berikutnya (baris 4)
> maka sebetulnya yang sekarang dilakukan adalah operasi untuk baris 5 yang
> sudah menjadi baris 4, dan baris 4 yang sudah berubah menjadi baris 3 tidak
> akan dicek kembali.
>
> Untuk menghindari hak tersebut maka perlu dilakukan deklarasi kembali di
> dalam loop For Each - Next, dengan tujuan untuk mendapatkan kembali range
> data dan nomor baris dari setiap data tersebut.
>
> kira-kira begitu mas Aji, semoga penjelasan saya mudah untuk dimengerti
>
> Best Regard,
>
>
> Jan Raisin
>
> Pada 13 November 2012 10:45, aji mumpung <[email protected]> menulis:
>
> **
>>
>>
>> mbak Jan Raisin,
>>
>> kalo boleh tolong diterangkan kenapa deklarasi variabel ada yang dibuat
>> di dalam Loop ya? karena umumnya deklarasi kan selalu diletakan di baris
>> paling atas
>>
>> terima kasih sebelumnya
>>
>> wassalam,
>>
>> -aji mumpung-
>>
>> Pada 13 November 2012 10:17, Jan Raisin <[email protected]>menulis:
>>
>> **
>>>
>>>
>
