Hücre Dolgu Rengine Göre Sıralama

[izcik]

Örnekte Yurttaş uzmanımın daha önceden hazırlamış olduğu ve bana çok çok pratik gelen "Fontun kalın veya ince oluşuna göre"

sıralama yapmama yarayan bir makro var. Galiba buna kullanıcı tanımlı fonksiyon deniyor.

Hangi sütunu görmek istiyorsam (örnek A sütunu), istediğim başka bir sütununun ilk hücresine =FontStili(A1) yazıp aşşağıya doğru çekiyorum. Kalınlar ve inceleri, hatta kalın italikleri ve ince italikleri rahatça sıralayabiliyorum. Çok kullanışlı formül.

Aynı usülde dolgu rengine göre de sıralama yapmama yarayacak makroyu verirmisiniz. Gerisini ben yaparım sanıyorum.

Ama sistem, makro düğmesi şeklinde değil, örnekteki gibi olmalı. Bu şekilde çok kolay oluyor.

Mesela (sadece örnek veriyorum) =DolguRengi(A1) yazıp çekince dolgu renklerinin isimlerini (hatta isme de gerek yok), renklerin kod numaraları bile belli olsa yeter. Gerisi sıralamaya kalmış.

Değerli uzmanlarım eminim başka arkadaşlara da yarayacaktır bu makro formülü.

 

[izcik]

Makrosu da şu:

Function FontStili(cell)

Application.Volatile
FontStili = cell.Font.FontStyle

End Function


Oldukça kısa bir kod

..

işte bu kodun, dolgu rengini belirtecek olanı lazım.

 

[Merhum İdris SERDAR]

Makrosu da şu:

Function FontStili(cell)

Application.Volatile
FontStili = cell.Font.FontStyle

End Function


Oldukça kısa bir kod

..

işte bu kodun, dolgu rengini belirtecek olanı lazım.

.


Aşağıdaki gibi deneyin.

Function dolgu(cell)
Application.Volatile
dolgu = cell.Interior.ColorIndex
End Function

Font rengi için de:

Function krenk(cell)
Application.Volatile
krenk = cell.font.ColorIndex
End Function

.

 

[izcik]

Herşey için teşekkürler yurttaş uzmanım.