Ters Mantık Koşullu Renk verme

[command]

Satırlar arasında mavi renk satır varsa o satırın C sütununa "tamam" yazacak,
eğer satırlar arasında kırmızı renk varsa o satırın C sütununa "hayır yazacak"

bunu 4-5 alternatifli olarak nasıl makroda yazabiliriz.

tşkler. şimdiden.

 

[YSFYSF0707]

örnek bi dosya atabilirseniz daha aydınlatıcı olacbilir

 

[command]

ÖRNEK DOSYA EKTE.

Satır rengine göre C sütununa ilgili yazıyı yazacak.

 

[Vedat Özer]

Selamlar,

Ekdeki dosyayı inceleyin,

Option Explicit
Function renk(Aralık As Range, Optional Renkadi As Boolean)
Dim Renk1 As String, IndeksNo As Integer
Application.Volatile 'hücre rengi değişince F9 ile veya çift tıklamayla formül tetiklensin
Select Case Aralık.Interior.ColorIndex
Case 1
Renk1 = "Siyah"
IndeksNo = 1
Case 53
Renk1 = "Kahverengi"
IndeksNo = 53
Case 52
Renk1 = "Zeytin Yeşili"
IndeksNo = 52
Case 51
Renk1 = "Koyu Yeşil"
IndeksNo = 51
Case 49
Renk1 = "Koyu Haki"
IndeksNo = 49
Case 11
Renk1 = "Koyu Mavi"
IndeksNo = 11
Case 55
Renk1 = "Çivit Mavi"
IndeksNo = 55
Case 56
Renk1 = "Gri-80%"
IndeksNo = 56
Case 9
Renk1 = "Koyu Kırmızı"
IndeksNo = 9
Case 46
Renk1 = "Turuncu"
IndeksNo = 46
Case 12
Renk1 = "Koyu Sarı"
IndeksNo = 12
Case 10
Renk1 = "Yeşil"
IndeksNo = 10
Case 14
Renk1 = "Haki"
IndeksNo = 14
Case 5
Renk1 = "Mavi"
IndeksNo = 5
Case 47
Renk1 = "Mavi-Gri"
IndeksNo = 47
Case 16
Renk1 = "Gri-50%"
IndeksNo = 16
Case 3
Renk1 = "Kırmızı"
IndeksNo = 3
Case 45
Renk1 = "Parlak Turuncu"
IndeksNo = 45
Case 43
Renk1 = "Limon Yeşil"
IndeksNo = 43
Case 50
Renk1 = "Deniz Yeşil"
IndeksNo = 50
Case 42
Renk1 = "Su"
IndeksNo = 42
Case 41
Renk1 = "Parlak Mavi"
IndeksNo = 41
Case 13
Renk1 = "Menekşe"
IndeksNo = 13
Case 48
Renk1 = "Gri-40%"
IndeksNo = 48
Case 7
Renk1 = "Pembe"
IndeksNo = 7
Case 44
Renk1 = "Altın"
IndeksNo = 44
Case 6
Renk1 = "Sarı"
IndeksNo = 6
Case 4
Renk1 = "Parlak Yeşil"
IndeksNo = 4
Case 8
Renk1 = "Turkuaz"
IndeksNo = 8
Case 33
Renk1 = "Gök Mavi"
IndeksNo = 33
Case 54
Renk1 = "Erik Rengi"
IndeksNo = 54
Case 15
Renk1 = "Gri-25%"
IndeksNo = 15
Case 38
Renk1 = "Gül"
IndeksNo = 38
Case 40
Renk1 = "Sarımsı-Kahve"
IndeksNo = 40
Case 36
Renk1 = "Parlak Yellow"
IndeksNo = 36
Case 35
Renk1 = "Parlak Yeşil"
IndeksNo = 35
Case 34
Renk1 = "Parlak Turkuaz"
IndeksNo = 34
Case 37
Renk1 = "Soluk Mavi"
IndeksNo = 37
Case 39
Renk1 = "Lavanta"
IndeksNo = 39
Case 2
Renk1 = "Beyaz"
IndeksNo = 2
Case Else
Renk1 = "yok"
End Select
If Renkadi = True Or _
Renk1 = "yok" Then
renk = Renk1
Else
renk = IndeksNo
End If
End Function

Kodların bir kısmı alıntıdır.

 

[command]

İstediğim şey,

satırın rengine göre ilgili renkteki satırım C sütununa benim istediğim herhangi bir yazının yazılması.

Mantık söyle olmalı:

ilk 1500 satıra bak,
kırmızı renk olan satırı seç (örn:4. satır)
ve C sütununa(C4) VBA diye yaz.