webten yapıştırdığım grafiğin bağlatı nesne ve resimlerin silinmesi

idealimsin

Altın Üye
Katılım
2 Ekim 2011
Mesajlar
356
Excel Vers. ve Dili
excel 360 TR 64bit
Altın Üyelik Bitiş Tarihi
15-04-2025
webten yapıştırdığım grafiğin bağlatı,nesne ve resimlerin silinmesini yalnızca text in kalmasını sağlıyacak bir makro önerebilirmisiniz
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,167
Excel Vers. ve Dili
2019 Türkçe
Merhaba.
Yapıştırırken hücreye sağ tıklayın "Özel Yapıştır/Metin" seçin.

Biçimi korumak isterseniz hücreye sağ tıklayın "Yapıştırma seçenekleri/Hedef Biçimlendirmesiyle Eşleştir" seçin
 

idealimsin

Altın Üye
Katılım
2 Ekim 2011
Mesajlar
356
Excel Vers. ve Dili
excel 360 TR 64bit
Altın Üyelik Bitiş Tarihi
15-04-2025
Merhaba.
Yapıştırırken sağ tıklayın "Özel Yapıştır/Metin" seçin.
İşlemi hızlandırmak adına Kısayol tuşları İle yüzlerce sayfaya gerçekleştirdim. bu adımdan sonrası için makro ihtiyacı oldu
 

idealimsin

Altın Üye
Katılım
2 Ekim 2011
Mesajlar
356
Excel Vers. ve Dili
excel 360 TR 64bit
Altın Üyelik Bitiş Tarihi
15-04-2025
Bir şey anlayamadım maalesef. Bu bir soruysa daha açık sorar mısınız?
İşlemi hızlandırmak adına Kısayol tuşları İle kendi Excel dosyama yüzlerce sayfaya yapıştırdım.. bu adımdan sonrası için makro ihtiyacım var bu konuda yardıma ihtiyacım var . Sayfalarımda ki resim,nesne ve web bağlantılarını silecek sadece text kalacak.
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,167
Excel Vers. ve Dili
2019 Türkçe
Tüm hücreleri seçip sağ tıklatın "Köprüleri Kaldır" seçin.

Eğer kod ile yapmak isterseniz.

Kod:
cells.Hyperlinks.Delete
Aktif sayfadaki tüm köprüleri kaldırır.
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,167
Excel Vers. ve Dili
2019 Türkçe
Dosyada bulunan tüm sayfalardaki köprüleri kaldırmak için aşağıdaki kodu bir kere çalıştırmanız yeterli.

Kod:
Sub KopruleriKaldir()
    Dim syf As Worksheet
    For Each syf In ThisWorkbook.Worksheets
        syf.Cells.Hyperlinks.Delete
    Next
    MsgBox "Tüm köprüler kaldırıldı."
End Sub
 

idealimsin

Altın Üye
Katılım
2 Ekim 2011
Mesajlar
356
Excel Vers. ve Dili
excel 360 TR 64bit
Altın Üyelik Bitiş Tarihi
15-04-2025
Dosyada bulunan tüm sayfalardaki köprüleri kaldırmak için aşağıdaki kodu bir kere çalıştırmanız yeterli.

Kod:
Sub KopruleriKaldir()
    Dim syf As Worksheet
    For Each syf In ThisWorkbook.Worksheets
        syf.Cells.Hyperlinks.Delete
    Next
    MsgBox "Tüm köprüler kaldırıldı."
End Sub
çok teşekkür ederim şimdi deneme şansım oldu
 
Üst