Farklı birimleri toplama

[Kilitci]

Merhaba
Excel de ufak bir hesaplama formülü yapmak istiyorum çok fazla exel bilgim olmadığından yardımınızı rica ediyorum
4 satırdan oluşan hesaplama olucak
isimler sabit kalıcak yandaki kutucuklar boş olucak
boş kutucukların herhangi birine rakam girildiğinde diğer kutucuklar otomatik hesaplayarak karşı birimi yazmasını istiyorum
resim de daha net anlatabilirim diye düşündüm rakamlar minimumu ifade ediyor olucak
Örn. Yang 500,000,000 yazarsak won 5 yazacak TL 22,5 yazacak ep 225 yazazak şekilde sonuçlanmasını istiyorum
Yada EP 360 yazarsak Won 8 Yang 800,000,000 TL 36 yazacak şekilde hesaplatmak istiyorum

Hatta bir başka örnek vermek istiyorum
https://www.doviz.com/ sitesinde sağ ortada benim istediğim gibi çalışan doviz hesaplama var
isimler sabit yanları boş hangisine birim girersek diğer yerler yazılan birimin karşılığı neyse onu çıkartıyor
Şimdiden herkeze teşekür ederim.

 

[Ömer]

Merhaba,

Ölçüt datası var mı? Yada belirli bir oranınız var mı? Yang 500,000,000 yazınca won 5 olduğunu nereden alacağız, gibi.

 

[Kilitci]

Resimdeki rakamlar minimumölçüdür
ölcüyü bu rakamdan alabilirsiniz
o rakamların altı kullanılmıyacak
1 won 100.000.000 yang yapıyor 4.5 TL 45 EP
bilmiyorum ifade edebildimmi

 

[Ömer]

Net olarak anlayamadım.

YANG değeri B1 hücresinde düşünüldü.

WON için;
=B1/100000000

TL için;
=B1*4,5/100000000

EP için;
=B1*45/100000000

.

 

[Kilitci]

Sıralamanın bir önemi yok resim yada yazdıklarım örnektir istediğini istediğin yere yazabilirsin sadece yazdığım rakamlar önemli onlarda minimumu ifade ediyor
fazlası yazıldığı taktirde diğer kutucuklarda çarpılarak ederi çıksın istiyoum

 

[Korhan Ayhan]

Görsel olarak eklediğiniz tablonuzu A1:B4 hücrelerine konumlandırın.

Sayfanızın kod bölümüne aşağıdaki kodu uygulayın.

B1:B4 hücrelerine sayısal veri girip deneyin.

Option Explicit

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

 

[Kilitci]

@Korhan Ayhan Çok teşekkür ederim
Makro işinden hiç anlamam amatörce excel kullanıcısıyım sadece fakat denemem gerekiyor sanırım
Elinize sağlık

 

[Kilitci]

@Korhan Ayhan
Ustam sana zahmet M değeri ekleme şansımız varmı sana zahmet değeri 100 olucak şekilde koda ilave edebilirmisiniz
Sizin kodun arasına kendimce ilave yaptım beceremedim yardımınızı rica edicektim tekrar
Şimdiden eşekkürür ederim.

 

[Kilitci]

@Korhan Ayhan
Ustam bakma şansın varmı

 

[Korhan Ayhan]

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

 

[Kilitci]

@Korhan Ayhan Çok teşekkür ederim olmuş ellerinize sağlık .
Siz bu işi biliyorsunuz