Düşeyara sonucu köprü sorunu

[Sendrom]

Arkadaşlar konuyu yanlış yere açtıysam şimdiden özür dilerim, şöyle bir sorum olacak,

düşeyara sonucu bulduğumuz değerlere köprü ekleyebilir miyiz?
ya da diğer bir deyişle, düşeyara formülü bulduğu değerlere ait kayıtlı köprüleri neden almıyor?

Amacım, arama sonucu çıkan değere tıkladığımda o isimle veya numarayla ilgili oluşturduğum veri sayfasına gitmek.
Mesela üste numara yazdığımda aşağıdaki satırda o numaraya karşılık ilgili isim çıkacak, o isme tıkladığımda kişiye özel oluşturduğum veri sayfasına yönlendirsin ve sayfa açılsın istiyorum.
Zaten düşeyara formülünün bulduğu değerlerde köprüler kayıtlı ve aramaya göre değişiklik gösteren bu köprüler olduğu gibi arama sonuçlarına gelsin ya da ben elle değişken köprü ekleyebileyim istiyorum.
Bunu nasıl yapabilirim veya yapabilir miyim?

örnek ektedir.

Şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Kayıt numarasına göre arama yapacaksanız;

=EĞER(C4="";"";KÖPRÜ("[[COLOR=red]örnek[/COLOR].xls]'"&İNDİS(kayıt!A3:A100;KAÇINCI(C4;
kayıt!B3:B100;0))&"'!A1";İNDİS(kayıt!A3:A100;KAÇINCI(C4;kayıt!B3:B100;0))))

.

 

[Sendrom]

hocam ben isme göre arama yapacağım. örnek dosyadaki kayıtlara ekli köprüler de isim aramasında altta köprülü olarak çıksın istiyorum.

 

[Ömer]

Bu şekilde deneyiniz..

=EĞER(C3="";"";KÖPRÜ("[[COLOR=red]örnek[/COLOR].xls]'"&C3&"'!A1";DÜŞEYARA(C3;kayıt!A:B;2;0)))

.

 

[Sendrom]

formülü denedim fakat döngüsel başvuru hatası veriyor. nerede yanlış yapmış olabilirim?

 

[Sendrom]

Bu şekilde deneyiniz..

=EĞER(C4="";"";KÖPRÜ("[[COLOR=red]örnek[/COLOR].xls]'"&C3&"'!A1";DÜŞEYARA(C3;kayıt!A:B;2;0)))

.

hocam çok saol. İstediğim buydu. Eline sağlık, yalnız ufak bir sorun daha var.
arama sonucunda kayıt no görünmüyor, sabit 0 değeri çıkıyor.
ama linkler tam istediğim gibi doğru sayfalara yönlendiriyor.

 

[Ömer]

# 4 nolu mesajı düzelttim, tekrar denermisiniz..

.

 

[Sendrom]

# 4 nolu mesajı düzelttim, tekrar denermisiniz..

.

Süpersin hocam,
Çok ama çok teşekkür ederim.
ellerine sağlık.
Tam istediğim gibi oldu.

 

[Ömer]

Rica ederim, iyi çalışmalar..

 

[Sendrom]

hocam zahmet olmazsa bir şey daha soracağım,
bu formüle EHATALIYSA fonksiyonunu nasıl ekleyebiliriz?

istediğim tam olarak, hatalı isim girildiğinde "#YOK" yerine benim yazdığım bir uyarı çıkması.
ben uğraştım ama, kombinasyonu bir türlü düzgün yapamadım.

 

[Ömer]

=EĞER(C3="";"";KÖPRÜ("[örnek.xls]'"&C3&"'!A1";EĞER(EHATALIYSA(
DÜŞEYARA(C3;kayıt!A:B;2;0));"[COLOR=red]Hatalı İsim[/COLOR]";DÜŞEYARA(C3;kayıt!A:B;2;0))))

Bu şekilde deneyiniz. Kırmızı bölüme istediğinizi yazarsınız..

.

 

[Sendrom]

Ömer hocam, çok teşekkür ederim, ellerine sağlık.

 

[muhasebeci666]

Düşeyara

Bir tablodaki sadece veri girişi yaparsam bu girişlerdeki belli verileri baz alarak başka sayfalardaki tablolara otomatik olarak nasıl aktarım yapabilirim.Örneğin ekteki dosyanın 1. sayfa daki verilen 1. sütünundaki aynı isimleri nasıl başka çalışmasayfalarına otomatik olarak aktarabilirim?

 

[Ömer]

Bir tablodaki sadece veri girişi yaparsam bu girişlerdeki belli verileri baz alarak başka sayfalardaki tablolara otomatik olarak nasıl aktarım yapabilirim.Örneğin ekteki dosyanın 1. sayfa daki verilen 1. sütünundaki aynı isimleri nasıl başka çalışmasayfalarına otomatik olarak aktarabilirim?

Merhaba,

Module kopyalayıp çalıştırın.

Sub SayfalaraAktar()
 
    Dim j As Integer, i As Long, sayfa As String, son As Long
 
    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
    End With
    
    Sheets("Sayfa1").Select
    
    For j = Worksheets.Count To 1 Step -1
        With Sheets(j)
            If .Name <> "RAPOR" And .Name <> "Sayfa1" Then
                .Delete
            End If
        End With
    Next j
               
    With Sheets("Sayfa1")
        For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
            If .Cells(i, "A") <> "" Then
                sayfa = Trim(.Cells(i, "A"))
                If Not varmi(sayfa) Then
                    Sheets.Add After:=Worksheets(Worksheets.Count)
                    ActiveSheet.Name = sayfa
                    .Rows(1).Copy Sheets(sayfa).Range("A1")
                End If
                son = Sheets(sayfa).Cells(Rows.Count, "A").End(xlUp).Row + 1
                .Range("A" & i & ":AA" & i).Copy Sheets(sayfa).Range("A" & son)
            End If
        Next i
    End With
    
    With Application
        .ScreenUpdating = True
        .DisplayAlerts = True
    End With
          
End Sub
 
Function varmi(adi As String) As Boolean
    On Error Resume Next
    varmi = CBool(Len(Worksheets(adi).Name) > 0)
End Function

.