• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

hücre rengine göre süzme komutu

Katılım
2 Haziran 2006
Mesajlar
111
içeriklere göre süzme yapabildiğimiz excell de, hücre rengine göre de süzme yapabileceğimiz bir filtre kodu mevcutmu dur arkadaşlar. yada formülize bir hücreye süz dediğimizde bize sütununda bulunan tüm renkleri gösterip süzme işlemini renklere göre yapabilecek bir formül mevcutmudur. veya başka br alternatifle...?
 
Sub test()
For sut = 1 To [a65536].End(xlUp).Row
If Range("a" & sut).Interior.ColorIndex = 6 = True Then
Range("a" & sut).Offset(0, 1) = "Baskıda"
End If
Next
If Range("a" & sut).Interior.ColorIndex = 5 = True Then
Range("a" & sut).Offset(0, 1) = "Basıldı"
End If
Next
If Range("a" & sut).Interior.ColorIndex = 4 = True Then
Range("a" & sut).Offset(0, 1) = "Bitti"
End If
Next
If Range("a" & sut).Interior.ColorIndex = 1 = True Then
Range("a" & sut).Offset(0, 1) = "Bekliyor"
End If
Next
End Sub

bu çalışırmı ?
 
Geri
Üst