çoklu düşeyara

[İhsan Tank]

arkadaşlar çoklu sayfada nasıl düşeyara yapabilirim. aramada en fazla 2'li düşeyara buldum ben çoğaltılabilir düşeyara istiyorum ufak bir örnek dosya ekliyorum
yardımlarınızı bekliyorum

 

[Merhum İdris SERDAR]

arkadaşlar çoklu sayfada nasıl düşeyara yapabilirim. aramada en fazla 2'li düşeyara buldum ben çoğaltılabilir düşeyara istiyorum ufak bir örnek dosya ekliyorum
yardımlarınızı bekliyorum

.

Dosyanız ekte.

.

 

[Zeki Gürsoy]

Merhaba,

Aşağıdaki fonksiyonu boş bir module yapıştırdıktan sonra "kontrol" isimli sayfanın b2 hücresine:

=z_ara(a1)

yazıp deneyin.

Function z_ara(arg)
Dim sh As Worksheet, s As Worksheet

Set sh = ActiveSheet

    For Each s In Worksheets
        If s.Name <> sh.Name Then
        
            Set f = s.Range("a1:b65000").Find(arg, lookat:=xlWhole)
            
            If Not f Is Nothing Then
                z_ara = s.Cells(f.Row, f.Column + 1).Value
                Exit Function
            End If
            
        End If
    Next
    
End Function

 

[İhsan Tank]

.

Dosyanız ekte.

.

hocam teşekkür ederim

 

[İhsan Tank]

Merhaba,

Aşağıdaki fonksiyonu boş bir module yapıştırdıktan sonra "kontrol" isimli sayfanın b2 hücresine:

=z_ara(a1)

yazıp deneyin.

Function z_ara(arg)
Dim sh As Worksheet, s As Worksheet

Set sh = ActiveSheet

    For Each s In Worksheets
        If s.Name <> sh.Name Then
        
            Set f = s.Range("a1:b65000").Find(arg, lookat:=xlWhole)
            
            If Not f Is Nothing Then
                z_ara = s.Cells(f.Row, f.Column + 1).Value
                Exit Function
            End If
            
        End If
    Next
    
End Function

hocam size'de teşekkür ederim

 

[sserhat]

Merhaba arkadaşlar,

Arkadaşımız dosyayı yaparken düşeyara ile yapmış...Aynı dosyayı indis ve kaçıncı ile yapabilir miyiz? Yani tüm sayfalarda ilgili hücreyi arayacak, kontrol sayfasına getirecek, mümkün müdür? Teşekkürler...