Linkli hücreleri kaldırma ve hücre rengini değiştirme

[deny__]

Arkadaşlar selamlar,

Elimde 15 bin satır ve 20 sutunluk bir veri tablosu mevcut. Hücrelere veri girişi yapılırken durumlarına göre farklı renklerde manuel olarak biçimlendiriliyor ve boyanıyor. Eski satırlardaki veriler vakti zamanında internetten copy-paste yapıldığı için linkli gelmiş. Yaklaşık 2500 hücre linkli görünüyor.

Linkleri tek makro ile kaldırabiliyorum. Ancak linki kaldırılan hücre mevcut biçimini kaybediyor. O kadar satır ve surun içerisinde de hangi hücrenin biçimi değişti bulmak zor. Linki kaldırırken hücrenin zeminini kırmızaya boyayabilirsem en azından sonraki veri girişlerinde denk geldikçe manuel olarak tekrar eski biçimini verebilirim diye düşünüyorum.

Özetle; linkli hücrenin linkini kaldırıp zeminini kırmızıya boyamak istiyorum.


Yardımcı olabilecek arkadaşlara şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Linkleri kaldırdığınız makronun devamına gereken kodu yazabilirsiniz. Linkleri kaldırdığınız makroyu paylaşırsanız devamına istediğiniz renk ilavesini yazmaya çalışayım.

 

[deny__]

İlginize teşekkürler.

"Selection.Hyperlinks.Delete" ile sayfadaki tüm linkler kaldırılabiliyor. Şöyle bir şey denedim ancak sanırım Hyperlinks' in property lerini tam anlayamadım. Tüm sayfadaki hücreleri kırmızıya boyadı.

If Selection.Hyperlinks.Address <> "" Then selection.Interior.ColorIndex = 3

 

[deny__]

Sorun Çözüldü

Sorunu çözdüm, benzer sorunla karşılaşan arkadaşlar için çözümü paylaşayım.

Boş bir çalışma sayfası açın. Linki sayfanın tümünü seçip kopyalayın. Yeni çalışma sayfasında "Özel Yapıştır" dan sadece "Biçimleri" seçin.

Sonrasında;

Sub linkkaldır()
Selection.Hyperlinks.Delete
End Sub

makrosunu linkli sayfada çalıştırın. Linkli hücrelerdeki linkler kalkmış ama aynı zamanda biçimleri de bozulmuş olacaktır. Yeni açtığınız çalışma sayfasının tümünü seçip linklerini düzelttiğiniz sayfada "özel yapıştır" dan "biçimleri" seçin. Böylece biçimleri bozulan linki kaldırılmış hücreleriniz tekrar eski biçimlerine kavuşacaktır.

Günlerdir boş yere makro ile uğraşıp duruyormuşum...

İlgilenen arkadaşlara tekrar teşekkürler...