- Katılım
- 21 Şubat 2019
- Mesajlar
- 163
- Excel Vers. ve Dili
- (Excel 2016 - Türkçe)
Oca.21 |
Şub.21 =AY*500 |
Mar.21 |
Nis.21 |
May.21 |
Haz.21 |
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Oca.21 |
Şub.21 =AY*500 |
Mar.21 |
Nis.21 |
May.21 |
Haz.21 |
=GÜN(SERİAY(A1;0))*500
Çıkış | Demirdag | |||
Varış | İskenderun-Payas (Ton/Gün) | Ülkü (Ton/Gün) | ||
Dökme | Konteyner | Dökme | Konteyner | |
Oca.21 | Formülünüz bunu yazdı. Haz.42 | 500 | ||
Şub.21 | ||||
Mar.21 | ||||
Nis.21 | 1000 | |||
May.21 | ||||
Haz.21 | 650 | |||
Tem.21 | 650 | |||
Ağu.21 | 650 | |||
Eyl.21 | 1200 | |||
Eki.21 | ||||
Kas.21 | 550 | |||
Ara.21 | 600 | |||
Oca.22 | 500 | |||
Şub.22 | 600 | |||
Mar.22 | 600 | |||
Nis.22 | 600 | |||
May.22 | ||||
Haz.22 | 1500 | |||
Tem.22 | 1500 | |||
Ağu.22 | 1500 | |||
Eyl.22 | ||||
Eki.22 | ||||
Kas.22 | ||||
Ara.22 | ||||
2021 | 18350 | 0 | 2350 | 0 |
2022 | 4500 | 0 | 2300 | 0 |
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
If Not IsDate(Range("A" & Target.Row)) Then Exit Sub
If Not IsNumeric(Target) Then Exit Sub
Application.EnableEvents = False
Gün = Day(WorksheetFunction.EDate(Range("A" & Target.Row), 1) - 1)
Target = Target * Gün
Application.EnableEvents = True
End Sub