İki hücredeki değeri otomatik birleştirme..

[serkanbeyzi]

Değerli arkadaşlarım merhaba;

Sizden bir örneklemeyle yardım rica ediyorum.

Örneğin;

A1 hücresinde Veri doğrulamayla tanımladığım para birimlerinden birini seçiyorum. (TL, USD, EUR vb..)
A2 hücresine 10 yazdığımda sonuna otomatik A1 hücresindeki para değerinin eklenmesini istiyorum.
Yani A2 hücresine 10 yazdığımda A1 hücresinde de TL seçilmişse A2 hücresini 10 TL yapsın istiyorum. 20 yazarsam da 20 TL.. İsteğe uyarlanmış biçimlendirmeyi kurcaladım ama beceremedim. Yazılan değer sonuna başka bir hücredeki değeri ekleyemedim. Yardımlarınızı rica ederim.

 

[Ömer]

Merhaba,

Sayfanın kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [A1:A2]) Is Nothing Then Exit Sub
    
    [A2].NumberFormat = "#,##0.00 """ & [A1] & """"
    
End Sub

 

[serkanbeyzi]

Harikasınız, çok teşekkür ederim.