Sayfa içi köprü oluşturma

[nightashes]

Merhaba,
Direk konuya gireyim A6 sütunundan başlayarak aşşağı doğru sıralanan başka bir sayfadan formül yardımı ile aldığım isimler sıralı, aynı dosyada bu isimleri A4 satırından itibaren yatayda dizilimini gerçekleştirdim. Yanlız isim sayısı arttıkça bu isimlere ait satırları bulmakta güçlük çekmeye başladım. Şimdi benim yapmaya çalıştığım başlangıçta bulunan isimlere tek tık ile satırlarda verdiğim yere köprü şeklinde atmak. Şimdiden yardımlarınız için teşekkür ederim.

 

[Necdet]

Merhaba,

Köprü kurmaya gerek var mı bilmiyorum.

Aşağıdaki kodları ilgili sayfanın ("Avans Raporu") kod bölümüne kopyalayınız.

A sütununda herhangi bir isme çift tıkladığınızda ilgili hücreyi seçecektir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If Target.Row < 6 Then Exit Sub
    If Target.Value = "" Then Exit Sub
    
        
    Dim c As Range
    Set c = Range("4:4").Find(Target.Value, LookIn:=xlValues)
    If Not c Is Nothing Then
        c.Offset(1, 0).Select
    Else
        MsgBox Target.Value & " ADLI PERSONEL BULUNAMADI..."
        Exit Sub
    End If
End Sub

 

[nightashes]

Aslında =köprü(.... fonksiyonu ile çözebileceğim bir şey olsun istiyorum. makroyu herkes bilmiyor aktif etmesiydi felan kullananlar ugrasır diye düşünüyorum. Mümkünse formüllü bir şekilde yaparsak sevinirim.

 

[Ömer]

Aslında =köprü(.... fonksiyonu ile çözebileceğim bir şey olsun istiyorum. makroyu herkes bilmiyor aktif etmesiydi felan kullananlar ugrasır diye düşünüyorum. Mümkünse formüllü bir şekilde yaparsak sevinirim.

Merhaba,

Formülü uygulayacağınız hücrenin biçimini metin yapmışsınız. Önce bu hücrelerin biçimini "Genel" olarak değiştirin.

Daha sonra A6 hücresine yazarak alt satırlara kopyalayınız.

=KÖPRÜ("[köprü.xls]'Personel Listesi'!A"&SATIRSAY($A$6:A6)+3
  ;'Personel Listesi'!A4&" "&'Personel Listesi'!B4)

.

 

[nightashes]

Ömer Bey teşekkür ederim. Çok güzel oldu fakat bir sorun var. Ben Avans Raporu sayfasında ki yatayda bulunan yerlere köprü atmasını istiyordum. Bu formül ile Personel listesine köprü atmış oluyorum. Ve bir maruzatım daha olacak. Bu şekilde olduğu takdirde dosya ismi değiştiği zaman hata veriyor. Bunu daha stabil bir hale getirebilir miyiz acaba? Dosya ismi değişse bile fark etmemesi gerek. Teşekkür ederim tekrar.

 

[Ömer]

yatayda bulunan yerlere köprü atmasını istiyordum. Bunu daha stabil bir hale getirebilir miyiz acaba? Dosya ismi değişse bile fark etmemesi gerek.

Formülü aşağıdakiyle değiştiriniz.

=KÖPRÜ(YERİNEKOY(PARÇAAL(HÜCRE("DOSYAADI";A1);BUL("[";HÜCRE("DOSYAADI";A1))
 ;256);"]";"]'")&"'!"&ADRES(4;SATIRSAY($A$6:A6)*2+1;4)
  ;'Personel Listesi'!A4&" "&'Personel Listesi'!B4)

.

 

[assenucler]

Sayın Ömer ve Necdet Yeşertener,

Güzel ve değerli katkılarınız için içten teşekkürler.

Sevgi ve saygılar..

 

[nightashes]

Ömer ve Necdet Yeşertener Bey'e ayrı ayrı teşekkürü borç bilirim. Tam olarak istediğim formülü Ömer Bey tarafından aldım. Tekrar teşekkür ederim. İyi çalışmalar.