Hyperlink adreslerini toplu olarak kopyalama

[ilhan78]

Merhaba,
Şöyle bir sorunum var,
excel 2007 dosyamda 500 tane sheet ve bu sheet'lerin hepsine hyperlink kurulu ana sheet'im var.
Yapmak istediğim şu , hyperlink olan cellin yanına hyperlinkin hangi sheet'e götürdüğünü yapıştırmak istiyorum.
Yardımlarınız için şimdiden teşekkürler.

 

[hamitcan]

Sub Kopru_Adreslerindeki_Sayfa_Isimleri()
'****** HamitCan 06/10/2011******************
    For Each hcr In ActiveSheet.Hyperlinks
        Range(hcr.Range.Address).Offset(0, 1) = Split(hcr.SubAddress, "!")(0)
    Next
End Sub

 

[ilhan78]

Hamitcan bey çok teşekkür ederim yardımınız için.

 

[ilhan78]

hamitcan bey bir sorum daha var ,
sheet adreslerini aldım sayenizde teşekkürler,
bu sheetlerde vlookup ile veri aldığım ayrı bir dosya var ,
ilgili kişiye ait sheet yer değiştirdiği için vlookupta ilgili sheet'i değiştirmek gerekiyor.
sheet adreslerini formülün yanına kopyalarak , vlookup formülündeki sheet i , diğer sheet ile değiştirmenin bir yolu varmı.(formüldeki sheet sabir örneğin sheet 5)
şimdiden teşekkürler

 

[hamitcan]

Dosya içinde bir örnek ile açıklayabilir misiniz ?

 

[ilhan78]

örnek ektedir.
istediğim vlookuptaki sheet1 'i yan sütuna yapıştırdığım sheet adı ile değiştirmek örneğin sheet2

 

[hamitcan]

Bu formülü dener misiniz ?

=DÜŞEYARA(B1;DOLAYLI(ADRES(1;1;;;F1)&":"&ADRES(4;2;;;));2;YANLIŞ)

 

[ilhan78]

ingilizce excel 2007 kullanıyorum aşağıdaki şekilde denedim ama maalesef olmadı.
=VLOOKUP(B2;INDIRECT(address(1;1;;;F2)&":"&address(4;2;;; ));2;FALSE)

 

[hamitcan]

Eki inceleyin.

 

[ilhan78]

Hamit bey çok teşekkür ederim.
2 saatte yaptığım işi sayenizde 5 dakikada yapabileceğim.

 

[ilhan78]

Merhaba,
aşağıdaki fromülde
='[abc.xlsx]Sheet12'!$N$230 formülündeki sheet12 adresini yan hücreye yazdığım örneğin sheet5 ile nasıl değiştirebilirim.
Şimdiden teşekkürler.

 

[hamitcan]

Kırmızı ile görünen hücre adresini kendinize göre düzenleyin.

=DOLAYLI(ADRES(1;1;;;"[abc.xlsx]" & [color=red]a2[/color]))

 

[ilhan78]

Formülü uyguladım , fakat ilgili sheet'teki ='[abc.xlsx]Sheet12'!$N$230 hücre eksik galiba formülde sonuç alamadım.orayı eklemeye çalıştığımdada hata alıyorum,
İngilizce kullandığım için formülü aşağıda ki şekilde uyarladım, hücre adresini nereye yazmalıyım.
=INDIRECT(ADDRESS(1;1;;;"[abc.xlsx]" & a2))

 

[ilhan78]

Teşekkürler buldum,
=INDIRECT(ADDRESS(1;1;;;"[abc.xlsx]" & a2))
bu kısım satır kolon adresini belirtiyormuş.
Çok teşekkür ederim Hamitcan bey.