Farklı birimleri toplama

[Kilitci]

Herkeze Merhaba
@Korhan Ayhan ustam önceden bana yardımcı olmuştun sağolasın ancak çalışmada değişiklik yapmak gerekiyor el atarsan minnettar olurum sana
Aşşagıdaki kodu sen hazırlamıştın bana fakat 4.5 den hesap ederek hazırlamıştın şimdi temel fiyat 5 lere çıktı hatta şu an 5.5 olucak gibi dolayısıyla temelde baz aldığımız fiyat ara ara değişiyor
senden ricam nasıl yaparsın bilmiyorum usta sensin kod eklesen ben istediğim zaman fiyat değişikliğini yapsam, hesaplarken ona göre hesaplasam mümkün olurmu acaba
Ben excelde hayali olarak bir şey hazırladım değer değiştirme düğmesi koydum
rakamı gösterecek ne koymam gerekiyor onu bilemedim resimdekini kaale alma sen ne dersen onu koyarım oraya

Deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo 10
    If Intersect(Target, Range("B1:B5")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If IsEmpty(Target) Then
        Range("B1:B5").ClearContents
        GoTo 10
    End If
    Select Case Target.Offset(0, -1)
        Case "YANG"
            Range("B2") = Target / 1000000
            Range("B3") = Target / 100000000
            Range("B4") = Target / 100000000 * 4.5
            Range("B5") = Target / 100000000 * 4.5 * 10
        Case "M"
            Range("B1") = Target * 1000000
            Range("B3") = Target / 100
            Range("B4") = Target / 100 * 4.5
            Range("B5") = Target / 100 * 4.5 * 10
        Case "WON"
            Range("B1") = Target * 100000000
            Range("B2") = Target * 100
            Range("B4") = Target * 4.5
            Range("B5") = Target * 4.5 * 10
        Case "TL"
            Range("B1") = Target * 100000000 / 4.5
            Range("B2") = Target * 100 / 4.5
            Range("B3") = Target / 4.5
            Range("B5") = Target * 10
        Case "EP"
            Range("B1") = Target * 100000000 / 45
            Range("B2") = Target * 100 / 45
            Range("B3") = Target / 45
            Range("B4") = Target / 10
    End Select
10  Application.EnableEvents = True
End Sub

 

[bmutlu966]

Uygun bir hücre belirleyin. Örneğin A1 gibi. Kodda 4,5 yazan yerleri [A1] olarak değiştirin. Artık bu kod A1 hücresine yazdığınız değere göre işlem yapacaktır.

 

[Kilitci]

Uygun bir hücre belirleyin. Örneğin A1 gibi. Kodda 4,5 yazan yerleri [A1] olarak değiştirin. Artık bu kod A1 hücresine yazdığınız değere göre işlem yapacaktır.

Her seferinde kodları değiştirmek yerine değer değiştirme düğmesi ile bunu yapmak daha kolay daha profesyonel olucağını düşündüğümden bu şekilde bir çalışma yapmak istiyorum
Sizin dediğinizde böyle bir şey olucaksa olur tabi fakat bunu var olan kodda yapıp buraya koyarsanız sevinirim bu işde çok acemiyim

 

[bmutlu966]

Kodlarda her seferinde değişiklik yapmayacaksınız. Kodlarınızı aşağıdaki şekilde değiştirin.
A1 hücresine hangi rakamı yazarsanız kodlar o rakama göre işlem yapacak.


Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 10
If Intersect(Target, Range("B1:B5")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If IsEmpty(Target) Then
Range("B1:B5").ClearContents
GoTo 10
End If
Select Case Target.Offset(0, -1)
Case "YANG"
Range("B2") = Target / 1000000
Range("B3") = Target / 100000000
Range("B4") = Target / 100000000 * [A1]
Range("B5") = Target / 100000000 * [A1] * 10
Case "M"
Range("B1") = Target * 1000000
Range("B3") = Target / 100
Range("B4") = Target / 100 * [A1]
Range("B5") = Target / 100 * [A1] * 10
Case "WON"
Range("B1") = Target * 100000000
Range("B2") = Target * 100
Range("B4") = Target * [A1]
Range("B5") = Target * [A1] * 10
Case "TL"
Range("B1") = Target * 100000000 / [A1]
Range("B2") = Target * 100 / [A1]
Range("B3") = Target / [A1]
Range("B5") = Target * 10
Case "EP"
Range("B1") = Target * 100000000 / [A1] * 10
Range("B2") = Target * 100 / [A1] * 10
Range("B3") = Target / [A1] * 10
Range("B4") = Target / 10
End Select
10 Application.EnableEvents = True
End Sub

 

[Kilitci]

@bmutlu966 çok teşekkür ederim soğolasın