Arşiv çalışmasında köprü problemi

[salihtan]

Öncelikle burada verdiğiniz bilgiler ve paylaşımlar için bütün katılımcılara
teşekkürlerimi sunarım.
Benim sorunumla ilgili şimdiye kadar yaptığım araştırma ve aramalarda net bir
sonuç alamadığım için sizlerin yardımına başvuruyorum.
Film arşivi yapıyorum. Filmlerle ilgili bilgileri excelde tablolara yerleştirerek
saklıyorum.
Yapım Yılı- Afiş- Orjinal Adı- Türkçe Adı-Yönetmen- Oyunular-Konu-İmdb linki
başlıkları ile filmleri tasnifliyorum.
Sonra filmleri türlerine görede tasniflemem gerektiğini düşündüm ve her türe ayrı
bir sayfa tahsis ettim.

/AKSİYON/ROMANTİK/SAVAŞ/TARİHİ/GERİLİM/MÜZİKAL
böylece filmi daha başlangıçta türüne göre ait olduğu sayfaya üstte yazdığım
bilgileri temel alarak kaydetmeye başladım.
Buradaki kayıtlarda sıralama ölçütüm yapım yılı. Yani filmleri tür sayfalarında
yapıldığı yıla göre sıralıyorum.
Başlangıçta sorun yaşamadım. Ama film sayım 1000 e yaklaşınca acaba var mıydı
yok muydu diye tereddütler yaşamaya başladım. Bu nedenle "içindekiler" adını
verdiğim bir sayfa daha ekledim.
Bu sayfaya her sayfadaki filmlerin orjinal isimlerini yazdım ve bilgilerin bulunduğu
sayfa ve hücreye köprü bağladım. Sonra bu sayfadaki filmlerin orjinal isimlerini
alfabetik sıraladım. Böylece istediğimi elde ettim. Düzen çalışıyordu.
Ama yeni filmler geldikçe asıl bilgi sayfalarını yılına göre tekrar sıralamam gerekti.
Bunu yapınca eklediğim bazı filmler eski yıllara ait olduğu için sıralama değişti. Bu
sıralama değişince bunu temel alan "içindekiler" sayfasında ilgili filme kurduğum
köprünün başvurduğu hücre aynı kaldı.
Önceden 'SAVAŞ'D27 hücresine köprüyle bağladığım film bu sayafadaki yeni
sıralama sonucu D30 a geçti. Ama "içindekiler' de hala D27 ye başvurduğundan
yanlış filme gitti.
İşte bunu çözemedim değerli arkadaşlar.Bu konuda yardımlarınızı bekliyorum.
Kullandığım excell 2003 versiyonu.
Sevgi ve saygılarımla..

Örnek bir dosya oluşturup ekledim. Dosya şun an çalışıyor. Sorun TARİH/SAVAŞ sayfalarında yıla göre sıralama yapınca oluşuyor. İçindekiler sayfasındaki bağlantılar doğru yerleri göstermiyor.

 

[Serdar SELEN]

Ornekdosya eklersenız ıyı olur.

 

[fedeal]

Sayfalara mükerrer girişi engelleyici kod uygulana bilir,bir sayfanın hücresine filimin ismini yazıp var olup olmadıgını arayabilirsiniz,yada makroyla içindekinler sayfasının filim ismine tıklayınca bulmasını sağlanabilir ama bunlar mümkün olması için mutlaka örnek dosya eklemelisiniz,saygılar.

 

[salihtan]

Örnek bir dosya hazırlayıp ekledim. Yardımlarınızı bekliyorum. Saygılarımla...

 

[Ömer]

Örnek bir dosya hazırlayıp ekledim. Yardımlarınızı bekliyorum. Saygılarımla...

Merhaba,

Eki inceleyiniz..

.

 

[salihtan]

Değerli Ömer arkadaşım ilgin için çok teşekkür ederim. Ama sanırım ben ne istediğimi anlatamadım. "İÇİNDEKİLER" sayfasından yana bir sorun yok. Sorun film data sayfaları olan tür sayfalarında. Şimdi film geldikçe bu tür sayfasına (TARİH/SAVAŞ) ekliyorum. Ama filmler tarih sırasına göre gelmiyor. Bir süre sonra bu sayfaları yapım tarihine göre sıralamam gerekiyor. İşte bu sıralamayı yapınca "İÇİNDEKİLER" de kurduğum köprüler , bu sıralamaya göre kendini yenilemiyor ve sıralama öncesi ait olduğu hücreyi gösteriyor.
Benim yolladığım örnek dosya şu an kullandığım arşivin protipi. Bu dosyada her şey yerli yerinde köprüler çalışıyor. Ama TARİH veya SAVAS sayfasındaki verileri tarihe göre sıraladığınızda İÇİNDEKİLER deki köprüler yanlış hücreleri gösteriyor.
Saygılarımla...

 

[salihtan]

Değerli Ömer arkadaş yaptığın dosya çalışıyor. Çok teşekkür ederim. Önerin filmin türünü ekleyip gideceği sayfanın bilgisini ordan aldırmak. Sonrada o sayfada film ismini aratıp buldurmak. Bunun için benim "İÇİNDEKİLER" sayfasında 2 yeni sütün eklemem gerekiyor. Tür ve köprü(git). Sayflardaki kayıtlarım en fazlası 893. Bir şey farkeder mi? Birde bazı filmler aynı isimle yer alıyor. Örneğin Tobruk filmi hem 1967 de hem de 2008 de aynı isimle çekilmiş. Saygılarımla....

 

[fedeal]

Altarnatif makrolu çözüm,sayfanın kod bölümüne;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Intersect(Target, [B2:B1000]) Is Nothing Then Exit Sub
  If ActiveCell.Offset(0, 0) = "" Then Exit Sub
   Call FD
End Sub

modüle;

Sub FD()
x = ActiveCell.Offset(0, 0)
y = ActiveCell.Offset(0, 2)
Set C = Sheets(y).Range("d:d").Find(x)
If Not C Is Nothing Then
Sheets(y).Select
    Range("D3:D10000").Interior.ColorIndex = xlNone
Range("D" & C.Row).Select
Selection.Interior.ColorIndex = 6
End If
End Sub

kopyalayın,iyi çalışmalar.

not: tür sütununda yazılan "TARIH" gibi türler sayfa adlarıyla aynı olmalı.

 

[salihtan]

Değerli Fedeal Aekadaş; Emeklerin ve katkın için çok teşekkür ederim. Evet VBA kullanarak yaptığın çözüm oldu. Yarın bunu ana programda deneyeceğim. Tekrar teşekkür ediyorum. İyi çalışmalar.

 

[fedeal]

Değerli Fedeal Aekadaş; Emeklerin ve katkın için çok teşekkür ederim. Evet VBA kullanarak yaptığın çözüm oldu. Yarın bunu ana programda deneyeceğim. Tekrar teşekkür ediyorum. İyi çalışmalar.

Ricaederim iyi çalışmalar.(dosyayı güncelledim hücreyi renklendirme ekledim)