3 sütunda renkli hücre başlık

[snx111]

3 stun var bunlar a b c olsun; 50 satır da veri oldugunu kabul edelim her satırda bu 3 stundaki hücrelerden sadece 1 tanesi renkli (dolgu rengi)

formul şu abc stunundaki 1 ci satır daki a1 b1 c1 bunlardan hangi hücrenin dolgu rengi renkliyse o hücrenin bulundugu stun başlıgını ver formul sonucu


if a1.interior.colorindex=24 then sonuç= a
if b1.interior.colorindex=24 then sonuç= b
if c1.interior.colorindex=24 then sonuç= c

gibi ama renkli hücre her satırda değişiyor bu formulu nasıl yazabilirim ?????

3 sutunda renkli olan satırı bul hücre hangi stundaysa o stunu yaz

 

[snx111]

ben bunu yaptım ama 3 stunada formulu girmem gerekiyor tek stuna yapıştırarak nasıl çalıştırabilirim??

function Re(rh)

If rh.Interior.ColorIndex = 24 And rh.Column = 7 Then t = "1"

If rh.Interior.ColorIndex = 24 And rh.Column = 8 Then t = "X"
If rh.Interior.ColorIndex = 24 And rh.Column = 9 Then t = "2"
If t = 0 Then t = ""

Re = t


End Function

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kullanıcı tanımlı fonksiyonu kullanabilirsiniz.

Option Explicit
 
Function Sonuç_Bul(Alan As Range, Satır As Long)
    Dim Hücre As Range, Sütun As Byte
    
    Application.Volatile True
    
    For Each Hücre In Alan
        If Hücre.Interior.ColorIndex = 24 Then
            Sütun = Hücre.Column
            Exit For
        End If
    Next
    
    Sonuç_Bul = Cells(Satır, Sütun)
End Function

Hücrede kullanım şekli;

[B][COLOR=blue]=Sonuç_Bul(Alan;Satır)[/COLOR][/B]

Örnek olarak O4 hücresine aşağıdaki şekilde yazıp deneyiniz.

=Sonuç_Bul(G4:I4;3)

 

[snx111]

evet sorunumu tam olarak çözdü Korhan Bey sagolasın