Kilitci
Altın Üye
- Katılım
- 21 Aralık 2019
- Mesajlar
- 16
- Excel Vers. ve Dili
- Excel 2013 TR
- Altın Üyelik Bitiş Tarihi
- 26-12-2027
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
@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.
Kod: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