excelde bir dosyadaki köprüyü başka bir dosyaya kopyalama

[özefem]

arkadaşlar,
elimde 100 çalışma sayfalı bir excel dosyası var.1.çalışma sayfasına LİSTE ismi vererek tüm sayfaların ismini sıraladım ve köprü oluşturdum.istediğim sayfaya kolay erişim için.her bir sayfaya da LİSTE butonu yaparak 1. sayfaya erişimi sağladım.Şimdi elime bu çalıştığım dosyanın güncel hali geldi.(köprü oluşturulmamış hali) Yeni dosyada aynı köprüleri tekrar mı oluşturmak zorundayım.Kopyalayarak daha kısa bir yolu var mıdır? Bilgisi olan varsa acil cevap bekliyorum.teşekkürler.

 

[unreal_avci]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [b1:b550]) Is Nothing Then Exit Sub
SUT = Target
Sheets(SUT).Select
Sheets("MENU").[B2:e550].ClearContents
For i = 2 To Sheets.Count
S = S + 1
Sheets("MENU").Cells(1 + S, "B") = Sheets(i).Name
Sheets("MENU").Cells(1 + S, "C") = Sheets(i).[d7].Value
Sheets("MENU").Cells(1 + S, "D") = Sheets(i).[h5].Value
Sheets("MENU").Cells(1 + S, "E") = Sheets(i).[h7].Value
Sheets("MENU").Cells(1 + S, "F") = Sheets(i).[h30].Value

Next
End Sub


menu isimli sayfa olusturup denermisiniz.
kodu ben yazmadim. ama cells satirlari sayfalardan almak istedigin hucreleri belirler ekleyebilirsin.
b sutunuda istediginiz sayfa ismine tiklarsaniz o sayfaya gider. ama geri donus(tekrar menu sayfasina) yok sanirim.
b1 ise menu sayfasini yenilemenizi saglar.

 

[BG]

Sayın özefem

arkadaşlar,
elimde 100 çalışma sayfalı bir excel dosyası var.1.çalışma sayfasına LİSTE ismi vererek tüm sayfaların ismini sıraladım ve köprü oluşturdum.istediğim sayfaya kolay erişim için.her bir sayfaya da LİSTE butonu yaparak 1. sayfaya erişimi sağladım.Şimdi elime bu çalıştığım dosyanın güncel hali geldi.(köprü oluşturulmamış hali) Yeni dosyada aynı köprüleri tekrar mı oluşturmak zorundayım.Kopyalayarak daha kısa bir yolu var mıdır? Bilgisi olan varsa acil cevap bekliyorum.teşekkürler.

Sayfalara ait köprüleri oluşturmak yerine, farklı bir yöntem kullanabilirsiniz. Ekte gönderdiğim sayfalar.xls isimli dosyasındaki ilgili sayfaya seçim yapılarak kolayca gidilebilmektedir. Bu işlemi kendi dosyanız için de uygulayabilmeniz için, ayrıca "kopyalama" adında bir video dosyası gönderiyorum. Bu videoyu izleyerek işlemi kolayca gerçekleştirebilirsiniz. İyi çalışmalar dilerim.

 

[özefem]

Sayfalara ait köprüleri oluşturmak yerine, farklı bir yöntem kullanabilirsiniz. Ekte gönderdiğim sayfalar.xls isimli dosyasındaki ilgili sayfaya seçim yapılarak kolayca gidilebilmektedir. Bu işlemi kendi dosyanız için de uygulayabilmeniz için, ayrıca "kopyalama" adında bir video dosyası gönderiyorum. Bu videoyu izleyerek işlemi kolayca gerçekleştirebilirsiniz. İyi çalışmalar dilerim.

teşekkür ederim.videoyu göndermeseydiniz anlamam pek mümkün olmayabilirdi dediğiniz gibi dosyama uygulama yaptım.köprülere harcadığım zamandan daha da kısa sürede bu işin olduğunu gördüm. iyi çalışmalar.

 

[özefem]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [b1:b550]) Is Nothing Then Exit Sub
SUT = Target
Sheets(SUT).Select
Sheets("MENU").[B2:e550].ClearContents
For i = 2 To Sheets.Count
S = S + 1
Sheets("MENU").Cells(1 + S, "B") = Sheets(i).Name
Sheets("MENU").Cells(1 + S, "C") = Sheets(i).[d7].Value
Sheets("MENU").Cells(1 + S, "D") = Sheets(i).[h5].Value
Sheets("MENU").Cells(1 + S, "E") = Sheets(i).[h7].Value
Sheets("MENU").Cells(1 + S, "F") = Sheets(i).[h30].Value

Next
End Sub


menu isimli sayfa olusturup denermisiniz.
kodu ben yazmadim. ama cells satirlari sayfalardan almak istedigin hucreleri belirler ekleyebilirsin.
b sutunuda istediginiz sayfa ismine tiklarsaniz o sayfaya gider. ama geri donus(tekrar menu sayfasina) yok sanirim.
b1 ise menu sayfasini yenilemenizi saglar.

cevabınız için teşekkür ediyorum.yalnız ben bundan hiç birşey anlamadım.excelde çok gerilerdeyim sanırım.zaman ayırdığınız için saolun.

 

[unreal_avci]

oncelikle gec cevap yazdigim icin kusura bakmayin.

yeni bir sayfa olusturup ismini menu yap. daha sonra vba modulu acip (alt+f11) sayfalar siralanacak manu sayfasina cift tiklayip gelen kod kismina bu kodu yapistirin.

dosyayi actiginizda macrolari etkinlestirmeyi unutmayin.
b1 hucresini secerek sayfayi yenileyebilrisiniz.

 

[bonjorno61]

Merhabalar,
Bu konuya paralel olarak benim de bir sorum olacak.
Örneğin saya1 de A2 hücresini sayfa2 deki A1 hücresine köprü ile bağlıyorum. ancak bunu sayfa1 deki A400 hücresine kadar ardışık olarak uygulamam gerekiyor. (sayfa1 deki A401 hücresinin sayfa2 deki A400 hücresine köprü ile bağlanması gerekiyor) bunun tek tek yapmaktan ziyade bir makro kodu var mıdır?