Hücre Değerine Göre 2 Diğer Hücreye Otomatik Veri Yazdırma

[giwara]

Merhabalar,

Elimizde A B C sütunları var.

A sütununa değeri girdiğimizde o değere karşılık gelen değerleri (biz belirleyeceğiz) B ve C sütunlarına otomatik olarak yazdırmak istiyoruz.

Mesela A sütununa yazdığımız DENEME değeri için, B hücresine TR yazdıracağız, C hücresine QM yazdıracağız.
DENEME 2 değeri için, B hücresine YT yazdıracağız, C hücresine MT yazdıracağız.
Bazen hem DENEME3, hem de DENEME4 değeri için aynı değerlerde yazılabilir.

Toplamda 200 tane A sütununa yazılabilecek değerimiz var. Yapılabilir mi?

 

[ASLAN7410]

Merhaba.

Veri A1 hücresinde olduğu varsayılırsa.

B1 hücresine

=EĞER(A1="DENEME";"TR";EĞER(A1="DENEME2";"YT";EĞER(YADA(A1="DENEME3";A1="DENEME4");"[COLOR="Red"]AA[/COLOR]";"")))

C1 hücresine

=EĞER(A1="DENEME";"QM";EĞER(A1="DENEME2";"TM";EĞER(YADA(A1="DENEME3";A1="DENEME4");"[COLOR="Red"]BB[/COLOR]";"")))

Formüllerdeki renkli olan AA ve BB yerine istediğiniz değeri yazabilirsiniz.

Her iki formülü seçerek istediğiniz satıra kadar uzatabilirsiniz.

 

[giwara]

200 tane değeri böyle yazdığımızda herhangi bir yavaşlık yaşar mıyız?

Kod ile yapılabilirse çok daha rahat olur gibi geliyor.

 

[ASLAN7410]

Merhaba.

Aşağıdaki kodu bir butona bağlayın.

Sub İkiFormül()

With Range("B1:B200")
    .Formula = "=IF(RC[-1]=""DENEME"",""TR"",IF(RC[-1]=""DENEME2"",""YT"",IF(OR(RC[-1]=""DENEME3"",RC[-1]=""DENEME4""),""AA"","""")))"
    .Value = .Value
End With

With Range("C1:C200")
    .Formula = "=IF(RC[-2]=""DENEME"",""QM"",IF(RC[-2]=""DENEME2"",""TM"",IF(OR(RC[-2]=""DENEME3"",RC[-2]=""DENEME4""),""BB"","""")))"
    .Value = .Value
End With


End Sub