Hücrenin içeriğine göre yan hücreye değer atama

[karakayalı]

A Sutununda Sİyah Ve Mavİ Olarak YazilmiŞ Verİlerİm Var..ben Bunlarin KarŞisina Yanİ "b" Sutununa Sİyah Olarak Yazilanlarin KarŞisina "gİrİŞ", Mavİ Olarak Yazilan Yazilarin KarŞisina "ÇikiŞ" Yazdirmak İstİyorum... Kolay Gelsİn...

 

[Ömer]

Merhaba Sayın karakayalı,

B1 Hücresine,

=EĞER(A1="";"";EĞER(A1="siyah";"Giriş";EĞER(A1="mavi";"Çıkış";"")))

Formülünü yazarak alt hücrelere formülü kopyalayınız..

Not : Bu işlem koşullu biçimlendirme ile yapılmadığı için soru başlığınızı düzelttim.

 

[karakayalı]

FormÜlÜ Uyguladim Ancak KarŞilarina Yazdirmadi...

 

[karakayalı]

Kusura Bakmayin YanliŞ İfade EtmİŞ Olabİlİrİm...a Sutununda Sİyah Ve Mavİ İle YazilmiŞ ÜrÜn Kodlarim Var...ben Bunlarin KarŞisina Yazi Rengİne GÖre "gİrİŞ" Yada "ÇikiŞ" Yazdirmak İstİyorum...kolay Gelsİn...

 

[Ayhan Ercan]

Merhaba

Aşağıdaki makroyu deneyiniz...

Sub renk()
For i = 1 To [a65536].End(3).Row
If Cells(i, 1).Font.Color = vbBlack Then
Cells(i, 2) = "Giriş"
ElseIf Cells(i, 1).Font.Color = vbBlue Then
Cells(i, 2) = "Çıkış"
Else
End If
Next
End Sub

 

[karakayalı]

TeŞekkÜrler...ellerİnİze SaĞlik...

 

[Ayhan Ercan]

TeŞekkÜrler...ellerİnİze SaĞlik...

Rica ederim.
İyi Çalışmalar... k::