Düşeyara Formülüne benzer bir fonksiyon

[yilmazarslan]

Ekteki görülen dosyada olduğu gibi düşeyara formülü kullanmadan
örnek ;

1 yazınca beyaz
2 yazınca siyah
3 yazınca kırmızı gibi getirmesini istiyorum.

 

[Levent Menteşoğlu]

Aşağıdaki formülü deneyin.

=İNDİS($E$1:F9;KAÇINCI(B1;$E$1:$E$9;0);2)

 

[birol_mumcu]

MERHABA;
EKLİ DOSYAYA BAKINIZ

 

[Levent Menteşoğlu]

Aşağıdaki makroyu sayfanın kod sayfasına eklerseniz formül kullanmadan da yapabilirsiniz. Renk sayısına göre kodun içine ilave yapabilirsiniz.

[vb:1:f9fa3fcbc9]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case [a1].Value
Case 1
[a1] = "BEYAZ"
Case 2
[a1] = "SİYAH"
Case 3
[a1] = "MAVİ"
.
.
.

End Select
End Sub
[/vb:1:f9fa3fcbc9]

 

[yilmazarslan]

Yukarıdaki VB kodunu nasıl kullanabiliriz.

 

[birol_mumcu]

merhaba;
alt +F11 e basın kodları

Aşağıdaki makroyu sayfanın kod sayfasına
[/vb]

kolay gelsin

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.