hücre rengine göre bulup o renge göre farklı hücreye mesaj yazma

[olmayan]

merhaba

hatalı kayıtları SARI ile işaretlediğimiz bir dosyamız var. bu dosyada SARI ile boyalı hücreyi görüp başka hücreye hatalı bilgi demek istiyoruz. yani P1 hücresindeki SARI ile boyalı hücreyi görüp A2 hücresine hatalı demesi gerekli. RENKNO ile yapmayı denedim ama ingilizcede bu formülün karşılığını bulamadım. yardımlarınızı rica ederim..

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Hatali()
    
    Dim i As Long
    
    Range("A[COLOR=red]1[/COLOR]:A" & Rows.Count).ClearContents
    
    For i = [COLOR=red]1[/COLOR] To Cells(Rows.Count, "P").End(xlUp).Row
        If Cells(i, "P").Interior.ColorIndex = 6 Then
            Cells(i, "A") = "Hatalı"
        End If
    Next i
    
End Sub

.

 

[olmayan]

ilginize teşekkür ederim.

bunu denedim ama istediğim sonuca ulaşamadım rica etsem ekli dosyaya bir bakabilir misiniz rica etsem. dosya içerisinde açıklama mevcut.

 

[olmayan]

yardımcı olabilecek kimse yok mu acaba.?