Köprü bağı oluşturmak

Katılım
29 Kasım 2006
Mesajlar
11
Excel Vers. ve Dili
Excel 2003
Hücrenin köprüsünü (link) bozmadan başka bir sayfanın hücresine bağ oluşturabilirmiyiz. Kopyalama yapıyorum ama kendisi otomatik olarak link-li halini alsın istiyorum.
Yardım edermisiniz.
Bunu makro ile yapmak mümkünmü?
 
Katılım
22 Haziran 2005
Mesajlar
998
Excel Vers. ve Dili
Office 2007 Türkçe
Kopyalamayı kodlarla mı yapıyorsunuz acaba. Normalde sağ tık ile kopya yapıldığında linler de(tüm hücre değeri ve özellikleri de) kopyalanması lazım.
 
Katılım
29 Kasım 2006
Mesajlar
11
Excel Vers. ve Dili
Excel 2003
Alpi kardeş
Linkler kopyalanıyor ama ben kendisi alsın istiyorum yani dün sizden resim linki almıştım. macro olarak vermiştiniz o işimi gördü ama kopyalama işlemini ben macro veya kod kendisi yapsın istiyorum.
İlgine teşekkür ederim
 
Katılım
22 Haziran 2005
Mesajlar
998
Excel Vers. ve Dili
Office 2007 Türkçe
Sayın Samed anlayamadım yapmak istediğiniz şeyi tam olarak anlatırmısınız.
 
Katılım
29 Kasım 2006
Mesajlar
11
Excel Vers. ve Dili
Excel 2003
Örnek
Sayfa 1 de A1 hücresinde araba kelimesi linkli. Tıklayınca araba resmini açıyor.
Sayfa 2 de B1 hücresi A1 in linkini kendi alsın (biz kopyalamadan) köprü yine çalışsın.

hücreyi kopyalayıp-özel yapıştır-bağ oluştur şeklinde yapıyorum ismini alıyor ama linki almıyor.
Ben Sayfa 2 de B1 hücresi köprüyü bozmadan kendisi alsın istiyorum.

İnşallah anlatabilmişimdir.

tekrar sağol
 
Katılım
22 Haziran 2005
Mesajlar
998
Excel Vers. ve Dili
Office 2007 Türkçe
Ben analaymadım inşaallah başkası yardımcı olur.
 
Katılım
29 Kasım 2006
Mesajlar
11
Excel Vers. ve Dili
Excel 2003
Örnek

Ekte uygulamayı anlatmaya çalıştım.
Umarım çok fazla sizi meşgul etmez.

Bilgi paylaştıkça çoğalır. Birgün bende sizlerle paylaşabileceğim çalışmalar yaparım inşallah.
 
Katılım
22 Haziran 2005
Mesajlar
998
Excel Vers. ve Dili
Office 2007 Türkçe
Sayfayı sağ tıklatarak kod görüntüleyi seçin aşağıdaki kodu kod editörüne yazın

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Address = "$A$1" Then
        Target.Copy
        Range("A2").PasteSpecial
        'Başka sayfaya kopyalamak için
        Sheets("Sayfa2").Range("A2").PasteSpecial
    End If
    Application.EnableEvents = True
End Sub
A1 hücresinde bir değişiklik olduğunda A2 hücresine A1 in tamamını kopyalar.
 
Katılım
29 Kasım 2006
Mesajlar
11
Excel Vers. ve Dili
Excel 2003
Üstat süpersin çok teşekkür ederim.
Allah razı olsun.
Sana iyi çalışmalar.
 
Katılım
22 Haziran 2005
Mesajlar
998
Excel Vers. ve Dili
Office 2007 Türkçe
Açıkçası sorununuzun çözülmesine bende sevindim
 
Katılım
29 Kasım 2006
Mesajlar
11
Excel Vers. ve Dili
Excel 2003
Şuan resimli bir arşivleme programı hazırlıyorum. Tamamladığımda sizlerle de paylaşacağım. Web de yapılanları excelde yapmaya çalışıyorum. Sorgulama yapıp sonuçları resimli gösteren bir uygulama.
 
Üst