Bir tıklamayla kurulan köprüleri yıkmak

[vurkan]

Arkadaşlar merhaba.
Daha önceki bir çalışmamda Sayın muygun tarafından yazılan, tek düğmeye atanan ve C sütunundaki öğretmen isimlerine A sütunundaki sınıf adlarına göre KÖPRÜler kuran :

Sub link()
For i = 3 To Sheets("SINIF").Range("A65536").End(xlUp).Row
ActiveSheet.Hyperlinks.Add Anchor:=Range("c" & i), Address:="", SubAddress:= _
"'" & Sheets("SINIF").Range("A" & i).Value & "'!A1"
Next i
End Sub

kodlarıyla kurduğum köprüleri başka bir düğmeye atayacağım hangi kodlarla tek seferde kaldırabilirim acaba?
Veya bunun kısa bir yolu var mıdır?
Şimdiden teşekkürler.

 

[Muzaffer Ali]

MErhaba.

Aktif sayfadaki tüm köprüleri kaldırmak için.

Cells.Hyperlinks.Delete

Sadece aktif sayfanın C kolonundaki köprüleri kaldırmak için

Range("c:c").Hyperlinks.Delete

 

[vurkan]

Sayın dalgalikur hızlı ve isabetli cevabınız için teşekkür ederim. Sağolun.

 

[vurkan]

Arkadaşlar Merhaba. Sayın dalgalikur'un vermiş olduğu kod ile

Sub köprüleri_kaldır()
Range("c:c").Hyperlinks.Delete
'Cells.Hyperlinks.Delete
End Sub

C sütunundaki köprüleri kaldırıyorum. Gayet güzel çalışıyor. Ancak köprüleri kaldırırken hızını alamayıp hücre kenarlıklarının alt çizgisini de kaldırıyor. Bunu nasıl engelleyebilirim. Teşekkürler.

 

[çıtır]

Aşağıdaki şekikde deneyiniz.

Sub köprüleri_kaldır()
Range("c:c").ClearHyperlinks
Range("c:c").Font.Underline = xlUnderlineStyleNone
End Sub

 

[Muzaffer Ali]

Arkadaşlar Merhaba. Sayın dalgalikur'un vermiş olduğu kod ile

Sub köprüleri_kaldır()
Range("c:c").Hyperlinks.Delete
'Cells.Hyperlinks.Delete
End Sub

C sütunundaki köprüleri kaldırıyorum. Gayet güzel çalışıyor. Ancak köprüleri kaldırırken hızını alamayıp hücre kenarlıklarının alt çizgisini de kaldırıyor. Bunu nasıl engelleyebilirim. Teşekkürler.

Oradaki alt çizgi hücre kenarlığının değil linkin alt çizgisi. Link kaldırılınca link alt çizgisi de otomatik olarak kaldırılıyor.
Eğer metnin altında alt çizgi olmasını istiyorsanız sayın @cıtır'ın vermiş olduğu kodu kullanabilirsiniz.

 

[vurkan]

Sayın çıtır ve Sayın dalgalikur Yardımlarınız için çok teşekkür ederim. Sayın çıtır'ın vermiş olduğu kodlar istediğim işi gördü. Tekrar teşekkürler.

 

[çıtır]

Sayın çıtır ve Sayın dalgalikur Yardımlarınız için çok teşekkür ederim. Sayın çıtır'ın vermiş olduğu kodlar istediğim işi gördü. Tekrar teşekkürler.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.