2 sutuna veri yazılması

[ijol]

merhaba,

Aşağıdaki formülü sadece B3-b120 ve L3-L120 sütunlarına nasıl yazdırabilirim. Diğer sutunlara bişey yazmayacak, bu konuda yardımcı olursanız çok sevinirim.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "ank" Then Target = "ANKARA"
If Target = "kır" Then Target = "KIRIKKALE"
If Target = "pol" Then Target = "POLATLI"
End Sub


Teşekkürler.

 

[ozgretmen]

Aşğ. şekilde dener misin ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B3:B120,L3:L120]) Is Nothing Then Exit Sub
'Kodlarınız
End Sub

 

[ijol]

teşekkür ederim.

 

[ozgretmen]

teşekkür ederim.

Rica ederim...İyi çalışmalar...:yazici: