aynı cell icinde işlem yapma

[hakan439]

kullanmkata oldugum dosyada, fatura düzenleme isimkli bir kısım var. bu kısımda "birim fiyat" etiketli bir sütün var. buraya birim fiyatı € olarak girdigimde bunu otomatikman aynı hücrede ytl ye cevirmek istiyorum.r30 hücresinde o günkü döviz kurunu yazıyorum. o yazılan kurun, birim fiyat kolonuna, fiyat girildiginde otomatikman carpmasını istiyorum. bunu nasıl yapabilirim?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu ilgili sayfanın kod bölümüne uygulayıp denermisiniz. "Birim Fiyat" girdiğiniz sütununun E olduğunu düşünerek kodu düzenledim. Eğer sizde farklı ise kodu ona göre değiştiriniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [E2:E65536]) Is Nothing Then Exit Sub
    KUR = [R30]
    Application.EnableEvents = False
    If Target <> "" Then Target = Target * KUR
    Application.EnableEvents = True
End Sub

 

[hakan439]

Selamlar,

Aşağıdaki kodu ilgili sayfanın kod bölümüne uygulayıp denermisiniz. "Birim Fiyat" girdiğiniz sütununun E olduğunu düşünerek kodu düzenledim. Eğer sizde farklı ise kodu ona göre değiştiriniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [E2:E65536]) Is Nothing Then Exit Sub
    KUR = [R30]
    Application.EnableEvents = False
    If Target <> "" Then Target = Target * KUR
    Application.EnableEvents = True
End Sub

tam olarak nası yazacagım bulamadım sanırım. dosyaı ekte gonderiyorum.

 

[hakan439]

döviz

cok tesekkurler. simdi basardım