eğer arka plan rengi sarı ise işlem yapsın

[maxcilopez]

Merhaba arkadaşlar
for i = 1 to 10
if cells(i,1) arka planı sarı then
komutlar
endif
next

bu işlemi nasıl yapabilirim. Teşekürler.

 

[Ömer BARAN]

Merhaba arkadaşlar
for i = 1 to 10
if cells(i,1) arka planı sarı then
komutlar
endif
next

bu işlemi nasıl yapabilirim. Teşekürler.

Merhaba.

Aşağıdaki gibi olabilir.
İsterseniz önce sarı'nın tam olarak ne olduğunu, aşağıdaki mavi satır gibi bir kodla tespit edin
(kodu F8 tuşuna tek tek basarak adım adım çalıştırdığınızda renk satırını geçtikten sonra
renk değişkeninin üstüne fareyle gelin sayı olarak bakalım neyi gösteriyor),
bakalım ColorIndex değeri nedir?

Alttaki kod satırında; sondaki 6 sayısı Excel'in standart sarı renginin ColorIndex değeri.
.

[COLOR="Blue"][COLOR="Red"]renk[/COLOR] =Sheets("...sayfa adı....").Cells(i, 1).Interior.ColorIndex[/COLOR]

If Sheets("...sayfa adı....").Cells(i, 1).Interior.ColorIndex =6 Then

 

[Seyit Tiken]

Bu şekilde yapabilirsiniz.

If Intersect(ActiveCell, [a1:a10]) Is Nothing Then Exit Sub
If ActiveCell.Interior.Color = 65535 Then
MsgBox "Test"
End If