OTOMATİK OLARAK BİR KEREDE 500 SAYFAYA KÖPRÜ OLUŞABİLÃ

[fazli77]

OTOMATÝK OLARAK BÝR KEREDE 500 SAYFAYA KÃ?PRÜ OLUÞABÝLÃ

Değerli forumdaşlar,

Excelde 500 adet yan yana sayfa bulunuyor ve de bir isim listesi bulunan bir sayfa burada listede 500 e yakın isim bulunuyor bu isimlerin herbirinin cari kartları bulunuyor. 500 üne tek tek köprü oluşturmak biraz zaman alacak acaba bunu otomatik olarak yapabilmenin yolu varmı ? Makro veya diğer herhangi bir formül olabilir?

Saygı ve selamlarla

 

[excelvba]

Size şöyle bir çözüm öneriyorum. Ã?ncelikle sayfa üzerine denetim araç kutusundan bir combobox yerleştirin. Sonrada comboboxa aşağıdaki kodları yazın. Bu kodlarla tüm sayfaların isimleri comboboxta listelenecek ve seçtiğiniz sayfaya gidecektir.

[vb:1:cad1bed91f]Private Sub ComboBox1_Click()
Sheets(ComboBox1.Value).Select
End Sub

Private Sub ComboBox1_DropButtonClick()
ComboBox1.Clear
For a = 1 To Sheets.Count
ComboBox1.AddItem Sheets(a).Name
Next
End Sub
[/vb:1:cad1bed91f]

 

[fazli77]

Sayın excelvba,

ayrıntılı anlatabilirmisiniz anlayamadım, denetim araç kutusundan comobox u nasıl yerleştireceğim neler yapacağım adım adım anlatabilirmisiniz selamlar

 

[firstisland]

Merhaba...

Sayfalardan birinde köprüyü oluşturduktan sonra, kopyala bütün sayfaları seçili duruma getir (Shift tuşuna basılı tutarak yapabilirsin). Daha sonra köprünün olmasını istediğin hücre/hücrelere yapıştır. Ancak tüm sayfalardaki köprü aynı olacaktır.

 

[F1]

link kuracanız isimlerle sheet isimlerini aynı oldunu düşünüyorum

A1 den başlayıp A500 e kadar hücrenin değerini baz alıp link kuran makro

   For i = 1 To 500
       ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:= _
        "'" & Cells(i, 1) & "'!A1"
   Next

 

[fazli77]

Sayın ><((((º>,
Kod tamam fakat uygulama hakkında biraz ayrıntılı bilgi verirsen sevinirim,
şimdiden teşekkürler selamlar..... :dua2:

 

[excelvba]

Ekteki örneği inceleyin.

 

[fazli77]

Sayın excelvba,
Ekteki dosyadaki açıklamalar ışığında yardımcı olursanız çok sevinirim. Yardımlarınız ve de ilginiz için şimdiden teşekkür eder çalışmalarınızda başarılar dilerim.

Saygılarımla..............

 

[ALPEN]

[vb:1:6a158ff9bd]Private Sub CommandButton1_Click()
For i = 2 To Worksheets.Count
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:= _
Worksheets(i).Name & "!A1", TextToDisplay:=Worksheets(i).Name
Worksheets(i).Hyperlinks.Add Anchor:=Worksheets(i).Cells(1, 1), Address:="", SubAddress:= _
"Sayfa1!A" & i, TextToDisplay:=" Ana sayfaya dön"
Next i
End Sub[/vb:1:6a158ff9bd]

 

[SGM020]

Ekteki dosyaya bakarmısın işini görür herhalde.

 

[fazli77]

Sayın SGM020,

Çalışmanız gerçekten güzel fakat ben sayfa isimlerini vede icmal sayfasındaki listeyi 500 adet kayda uygulayacağım bununla ilgili bilgi verirseniz sevinirim.
Saygı ve selamlar...

 

[SGM020]

Ã?rnek dosyanız üzerine düzenledim. Ektedir.

Bu dosyadan ALT+F11 tuşlkarına birlikte basarak kod sayfasına ulaşınız. Kod sayfasından Module1 ve Module2'de yer alan kodları kendi dosyanızda açacağınız Module1 ve Module2'ye kopyalayınız. İcmal sayfasında yer alan düğmleri de kendi icmal sayfanıza kopylayın.

İşlem tamamdır.

Kolay gelsin.

 

[fazli77]

Teşekkürler ellerinize sağlık çalışmalarınızda başarılar.....
saygılarımla.................

 

[HIDROKINON]

thanks..