Değişken Fiyatta Uyarı

[scorpix]

Merhaba arkadaşlar
ekte örnek dosyamdaki işlevlere sahip bir excel çalışma sayfam var. bununla fiyat teklifi vermekteyiz. yalnız fiyatlarımızın para birimi TL ve Dolar olarak değişiklik göstermekte. kodnumarası girildiğinde bilgiler gelmekte ama dolarmı TL mi anlaşılamamaktadır. kod numarası girildiğinde fiyatın dolarmı TL mi olduğu ile ilgili uyarı verdirebilirmiyiz.

teşekkürler

 

[leumruk]

Merhaba,
Madem makroya girdiniz, fonksiyonlarınızı da makro kodlarına çevirdim. Kodu girdiğinizde ilgili veriler gelir.

Private Sub Worksheet_Change(ByVal Target As Range)
Set s2 = Sheets("Data")
On Error Resume Next
If Intersect(Target, [e4:e65536]) Is Nothing Or Target = "" Then Exit Sub
Application.ScreenUpdating = False
Set Bul = s2.Range("a2:a" & s2.[a65536].End(3).Row).Find(Target, LookIn:=xlValues, LookAt:=xlWhole)
    If Not Bul Is Nothing Then
    s2.Range(s2.Cells(Bul.Row, "b"), s2.Cells(Bul.Row, "c")).Copy Target.Offset(0, 1)
    Range(Cells(Target.Row, "e"), Cells(Target.Row, "g")).Borders.LineStyle = xlNone
    End If
End Sub

 

[scorpix]

beklediğim ve istediğimden daha güzel olmuş çok teşekkürler ek olarak verilere data die bi sayfadan baktırmak mümkünmüdür. bukadarını beklemediğim için aynı çalışma sayfasına yazmıştım kolaylık olsun die.

 

[leumruk]

Kodları ve dosyayı güncelledim. Yeniden indirebilirsiniz.

 

[scorpix]

Cok teşekkürler ellerinize sağlık