bir nevi yatay ara

[Hyperhysv]

merhaba;

bir excel tablosunda A sütununda "x" değerini bul (ki bu X değerinde o sütunda 100 yakın var), bu değerin üstünde bulunan "1,2,3"üncü satırdaki hücrelerinde yazanı getir. şeklinde bir formüle ihtiyacım var. yatay aranın yukarıya doğru olanı da diyebiliriz sanırım.

yardımcı olursanız çok sevinirim.
desteğiniz için şimdiden teşekkürler

 

[Mahir64]

Merhaba,

Bir örnek verin?

--

 

[Hyperhysv]

tabiki dosya ekte ki bu iş galiba macro gerektirecek. yazarken fark etttim.

 

[Murat OSMA]

Mahir Bey'in müsadesiyle...

Bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"]Sub Emre()
    Dim i%
    For i = 2 To Range("A65536").End(3).Row
        If Cells(i, 1).Interior.ColorIndex <> xlNone And _
            Cells(i, 1).FormatConditions(1).Interior.Color = 13551615 Then
            Range(Cells(i, 1), Cells(i + 5, 1)).Copy Cells(i, "J")
        End If
    Next i
    i = Empty
End Sub[/FONT]

 

[Hyperhysv]

Sn. Murat OSMA gönderdiğiniz kod için öncelikle çok teşekkürler. uygulamada başarılı fakat kendi tabloma uyguladığımda malesef çalışmıyor ve ben sebebini anlayamadım. benim kullandığım ana tablo ekte. uyarlamada nerede hata yaptığımı söylerseniz çok sevinirim.

şimdiden teşekkürler

EDİT: Sanırım renk seçimi ile alakalı, koşullu biçimlendirmede kullanılan yeşille benim ilk tablomdaki yeşil uyumlu değil. yada en azından ben böyle düşünüyorum. renk kodunu bilmediğimden düzenleyemedim.kullanacağımdan koşullu biçimlendirmenin ilk menüsündeki yeşil olabilir eğer renk bazında kodlama yaptıysanız.

 

[Hyperhysv]

dosyadaki renk sorununu hallettim fakat bu seferde bütün datayı getiriyor filitrelemiyor. yardımı olabilecek bir arkadaşımız varsa sevinirim.