Eğer hücre boşsa başka bir hücreden veri alma

[iyilmaz57]

Merhaba Arkadaşlar,
eğer hücre boşsa başka bir hücreden veri alıp,alınan hücredeki değer döviz ise ilgili kur değeriyle çarpıp B sütunundaki ilgili hücreye eklemesini yapabilmek için yardımlarınızı bekliyorum.

Saygılarımla,
İhsan

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu ilgili sayfanın kod bölümüne uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("C2:E6")) Is Nothing Then Exit Sub
    If IsNumeric(Target) Then
    Application.EnableEvents = False
    Select Case Target.Column
        Case Is = 3
        Cells(Target.Row, "B") = Target
        Case Is = 4
        Cells(Target.Row, "B") = Target * Range("D8")
        Case Is = 5
        Cells(Target.Row, "B") = Target * Range("D9")
    End Select
    Application.EnableEvents = True
    End If
End Sub

 

[iyilmaz57]

ilginize teşekkür ederim Korhan bey,
bu sorunu macro olmadan çözümliyemezmiyiz.

saygılarımla,
İhsan

 

[Korhan Ayhan]

Selamlar,

B2 hücresine aşağıdaki formülü uygulayıp denermisiniz.

=EĞER(C2<>"";C2;EĞER(D2<>"";D2*$D$8;EĞER(E2<>"";E2*$D$9;"")))

 

[iyilmaz57]

Korhan bey çok teşekkür ederim,

önce hatalı hesap yaptı kurla çarpınca sonra sorunun kuru yazarken . kullandığımı farkettim 1.5 gibi virgul kullandığım zaman hatanın düzeldiğini gördüm.
ayrıca hücredeki değerler 0 sıfır olunca b2 hücresine 0 olarak yazıyor bunu düzeltebilirmiyiz.C hücrelerinde değer girildiğinde diğer hücreler 0 oldugu halde formul etkilenmiyor.

Saygılarımla,
İhsan

 

[Levent Menteşoğlu]

B2 hücresine aşağıdaki formülü yazarak deneyebilirsiniz.

=C2+D2*$D$8+E2*$D$9

 

[iyilmaz57]

Levent bey,Korhan bey,
yardımlarınız için çok teşekkür ederim sorunum çözüldü.

Saygılarımla,
İhsan