düşeyara problemi

[mest3651]

düşeyara problemi hakkında. ilgilenen arkadaşlara şimdiden çok teşekkür ediyorum.

 

[Ömer]

Merhaba,

Her sayfada bir aday mı oluyor.

 

[mest3651]

birden fazla oluyor. bi sayfada 150 aday olabililiyor. diğerlerinde 7-6-5-4-3-2-1 bunlar sabit

 

[mustafaine1]

isinizi gorur umarim..

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("[COLOR="Red"]B1:B65000[/COLOR]").Find(arg, lookat:=xlWhole)
            
            If Not f Is Nothing Then
                z_ara = s.Cells(f.Row, f.Column + [COLOR="red"]7[/COLOR]).Value
                Exit Function
            End If
            
        End If
    Next
    
End Function

 

[Ömer]

Merhaba,

Alternatif olarak linki inceleyebilirsiniz. Dosyanıza uyarlayamazsanız yardımcı olmaya çalışırım.

.

 

[mest3651]

ömer hocam dosyama uyarlayamadım. sadece bir sayfadan çekebiliyorum. çok sağolun ilgilendiğiniz için.

 

[Ömer]

Eki inceleyiniz.

.