Borsada Kalan Lot'ların Ortalama Maliyetini FIFO'ya Göre Hesaplama

formentera

Altın Üye
Katılım
5 Eylül 2015
Mesajlar
123
Excel Vers. ve Dili
Microsoft Office Excel 2013 pro.
Altın Üyelik Bitiş Tarihi
31-01-2026
Arkadaşlar Merhaba,

Ekteki excel'de borsa hisselerimin alış ve satış miktarı ve tutarlarına göre ortalamalar çıkarıyorum. O an elimde herhangi bir hisseden kalmışsa kalan miktar ve detayları açık pozisyonlar başlığı altında. Satışlar ise kapanan pozisyonlar başlığı antında detaylarla birlikte bulunmakta.

Ancak, açık pozisyonlar başlığı altında o an elimde olan bir hissenin ortalama maliyeti, o hisseden daha önceki aldığım tüm fiyat ve miktar üstünden hesaplanıyor.
Bense burada FIFO (İlk giren İlk Çıkar) yöntemine göre elimdeki bir hissenin ortalama maliyetini görmek istiyorum.

Ör: Dosyada göreceğiniz üzere, SASA adlı hissede 175 lot bulunmakta, ort.maliyet: 39.63 lira. Ancak, FIFO'ya göre elimde kalan 175 SASA lot'unun maliyeti, son iki sasa hissesi alış işlemimden ortaya çıkmalı. D16 itibariyle bakarsak: 150 adet aldık, 29 adet aldık, 110 adet sattık (ilk giren ilk çıkara göre 150 lik alımımızdan 40 adet kaldı.), 146 adet aldık, 40 adet sattık (ilk giren ilk çıkara göre, hala ilk alışımızdan elimizde bulunan 40 lot'u sattık.)
Bu durumda elimizde kalan 175 lot, son iki alışımızdaki 29*45.98 tl ve 146*46 tl (Sonuç elimizde kalan 175 lotun lot başı bize maliyeti 45.99 tl olmaktadır.)

Açık pozisyonlarda Ortalama Maliyeti (J sütunundaki), FIFO'ya göre nasıl gösterebilirim?

Saygılarımla
 

Ekli dosyalar

kulomer46

Altın Üye
Katılım
23 Mart 2007
Mesajlar
1,513
Excel Vers. ve Dili
Microsoft Office LTSC Professional Plus 2021 - Türkçe
Altın Üyelik Bitiş Tarihi
08-06-2027
Değerli Arkadaşım Merhaba

Talebiniz hazır.
Ekli dosyada talebinizi karşılayan FIFO1 - Kullanıcı Tanımlı Fonksiyon kullanılmıştır.
İlgili formül isteğe bağlı seçtiğiniz Hisse ve Lot Bilgisine göre sayfada B, C, D ve E sütunlarının içeriğini analiz etmekte, FIFO - İlk Giren İlk Çıkar yöntemine göre sonuç üretmektedir. Formülü kopyalayıp çoğaltabilirsiniz.

Selamlar...
 

Ekli dosyalar

formentera

Altın Üye
Katılım
5 Eylül 2015
Mesajlar
123
Excel Vers. ve Dili
Microsoft Office Excel 2013 pro.
Altın Üyelik Bitiş Tarihi
31-01-2026
Değerli Arkadaşım Merhaba

Talebiniz hazır.
Ekli dosyada talebinizi karşılayan FIFO1 - Kullanıcı Tanımlı Fonksiyon kullanılmıştır.
İlgili formül isteğe bağlı seçtiğiniz Hisse ve Lot Bilgisine göre sayfada B, C, D ve E sütunlarının içeriğini analiz etmekte, FIFO - İlk Giren İlk Çıkar yöntemine göre sonuç üretmektedir. Formülü kopyalayıp çoğaltabilirsiniz.

Selamlar...
Sn. Kulomer Merhaba,

Çok teşekkürler öncelikle. Ancak, B:E sütunlarına yeni veriler yazmaya başladığımda J sütunundaki data yok olmakta. Sanırım makro yazdınız. Herhangi bir şey mi var acaba eksik yaptığım?
İyi akşamlar.
 

kulomer46

Altın Üye
Katılım
23 Mart 2007
Mesajlar
1,513
Excel Vers. ve Dili
Microsoft Office LTSC Professional Plus 2021 - Türkçe
Altın Üyelik Bitiş Tarihi
08-06-2027
Değerli Arkadaşım Merhaba

Bahsettiğiniz sorunu farkettim. Üzerinde biraz çalışarak Ekli dosyayı hazırladım, deneyiniz.
Bende bahsettiğiniz sorun kalmadı.

Selamlar...
 

Ekli dosyalar

formentera

Altın Üye
Katılım
5 Eylül 2015
Mesajlar
123
Excel Vers. ve Dili
Microsoft Office Excel 2013 pro.
Altın Üyelik Bitiş Tarihi
31-01-2026
Değerli Arkadaşım Merhaba

Bahsettiğiniz sorunu farkettim. Üzerinde biraz çalışarak Ekli dosyayı hazırladım, deneyiniz.
Bende bahsettiğiniz sorun kalmadı.

Selamlar...
Kulomer hocam Merhaba tekrar.

Ben gene bi şeyler yazınca yok oluyor.Acaba aşağıda yazdığınız maktodaki türkçe karakterler yüzünden midir?

Option Explicit

Function FIFO1(Hisse As Range, Lot As Range, iþlem_tipi_sütunu As Range, hisse_sütunu As Range, lot_sütunu As Range, hisse_fiyatý_sütunu As Range)
'04.04.2021 17:17

Dim son3 As Variant, Kalanadet As Variant, tutar1 As Variant, sonuc As Variant, i As Variant

son3 = Cells(Rows.Count, hisse_sütunu.Column).End(3).Row

Kalanadet = Lot
tutar1 = 0

For i = son3 To 3 Step -1

If Trim(Cells(i, iþlem_tipi_sütunu.Column)) = "Alýþ" And Trim(Cells(i, hisse_sütunu.Column)) = Hisse Then

If Kalanadet < Cells(i, lot_sütunu.Column) * 1 Then

tutar1 = tutar1 + (Kalanadet * Cells(i, hisse_fiyatý_sütunu.Column))
sonuc = tutar1 / Lot
GoTo uç1

Else

tutar1 = tutar1 + ((Cells(i, lot_sütunu.Column) * 1) * Cells(i, hisse_fiyatý_sütunu.Column))
Kalanadet = Kalanadet - (Cells(i, lot_sütunu.Column) * 1)

End If

End If

Next

uç1:

FIFO1 = sonuc

End Function
 

kulomer46

Altın Üye
Katılım
23 Mart 2007
Mesajlar
1,513
Excel Vers. ve Dili
Microsoft Office LTSC Professional Plus 2021 - Türkçe
Altın Üyelik Bitiş Tarihi
08-06-2027
Değerli Arkadaşım Tekrar Merhaba

Bir yukardaki #6 numaralı mesajdaki dosya üzerinde yeni eklemeler yaptım.
Siz bu son dosyayı kullanınız.

Selamlar...
 

Ekli dosyalar

formentera

Altın Üye
Katılım
5 Eylül 2015
Mesajlar
123
Excel Vers. ve Dili
Microsoft Office Excel 2013 pro.
Altın Üyelik Bitiş Tarihi
31-01-2026
Değerli Arkadaşım Tekrar Merhaba

Bir yukardaki #6 numaralı mesajdaki dosya üzerinde yeni eklemeler yaptım.
Siz bu son dosyayı kullanınız.

Selamlar...
Sn. Kulomer selamlar,

Teşekkür etmek dışında ne diyeceğimi bilmiyorum. Bu sefer kaldı bilgiler yok olmadı. Süpersiniz.
 

kulomer46

Altın Üye
Katılım
23 Mart 2007
Mesajlar
1,513
Excel Vers. ve Dili
Microsoft Office LTSC Professional Plus 2021 - Türkçe
Altın Üyelik Bitiş Tarihi
08-06-2027
Sn. Kulomer selamlar,

Teşekkür etmek dışında ne diyeceğimi bilmiyorum. Bu sefer kaldı bilgiler yok olmadı. Süpersiniz.
Bizde bu yolda önümüze düşen, bilmediklerimizi öğreten, bu konulardan haberdar eden bizi yetiştirmek ve bilgilendirmek için emek sarfeden öğreticilerimize, kurumlarımıza emeği geçenlere teşekkürler ediyoruz. Emekleri için hepsine teşekkürler.

Selamlar...
 

kulomer46

Altın Üye
Katılım
23 Mart 2007
Mesajlar
1,513
Excel Vers. ve Dili
Microsoft Office LTSC Professional Plus 2021 - Türkçe
Altın Üyelik Bitiş Tarihi
08-06-2027
Değerli Arkadaşım Merhaba

Yukardaki dosyada FIFO (İlk Giren İlk Çıkar) fonksiyonunu daha önce eklemiştik.
Ek 'li dosyaya fazladan LIFO (Son Giren İlk Çıkar) fonksiyonuda eklenmiştir.

Selamlar.
 

Ekli dosyalar

formentera

Altın Üye
Katılım
5 Eylül 2015
Mesajlar
123
Excel Vers. ve Dili
Microsoft Office Excel 2013 pro.
Altın Üyelik Bitiş Tarihi
31-01-2026
Değerli Arkadaşım Merhaba

Yukardaki dosyada FIFO (İlk Giren İlk Çıkar) fonksiyonunu daha önce eklemiştik.
Ek 'li dosyaya fazladan LIFO (Son Giren İlk Çıkar) fonksiyonuda eklenmiştir.

Selamlar.
Siz harikasınız. Çok çok teşekkürler. Bana nasıl yardımcı olduğunuzu anlatamam. Bunu, tüm borsa-btc hareketlerime kullanıp artık tek ekranda herşeyi stratejime göre görüp daha iyi süzerek hareket edicem. Düşündüklerim gerçekleşirse sizin adınıza eğitim seti bağışlarında bulunucam inş. ileride.
 

kulomer46

Altın Üye
Katılım
23 Mart 2007
Mesajlar
1,513
Excel Vers. ve Dili
Microsoft Office LTSC Professional Plus 2021 - Türkçe
Altın Üyelik Bitiş Tarihi
08-06-2027
Siz harikasınız. Çok çok teşekkürler. Bana nasıl yardımcı olduğunuzu anlatamam. Bunu, tüm borsa-btc hareketlerime kullanıp artık tek ekranda herşeyi stratejime göre görüp daha iyi süzerek hareket edicem. Düşündüklerim gerçekleşirse sizin adınıza eğitim seti bağışlarında bulunucam inş. ileride.
Başarılarınızın devamını dilerim.
Ömür boyu mutluluklar : )

Selamlar..
 

formentera

Altın Üye
Katılım
5 Eylül 2015
Mesajlar
123
Excel Vers. ve Dili
Microsoft Office Excel 2013 pro.
Altın Üyelik Bitiş Tarihi
31-01-2026
Başarılarınızın devamını dilerim.
Ömür boyu mutluluklar : )

Selamlar..
Teşekkürler hocam,
Ben ekteki dosyaya veri işlemeye devam ettim. Ancak J ve K sütunları boş kalmaya, hesaplanmamaya başladı gene.
Makroya bakıyorum ama anlamadığımdan ne yapmam lazım bilemedim.
 

Ekli dosyalar

Katılım
1 Ocak 2024
Mesajlar
2
Excel Vers. ve Dili
2021 Türkçe
TARİH FİYAT LOT İŞLEM
22.01.2024 31,28 ₺ 964 ALIŞ
19.01.2024 31,30 ₺ 964 SATIŞ
19.01.2024 30,84 ₺ 1. ALIŞ
19.01.2024 30,92 ₺ 22 ALIŞ
19.01.2024 30,86 ₺ 941. ALIŞ
18.01.2024 32,74 ₺ 909 SATIŞ
17.01.2024 31,60 ₺ 16 ALIŞ
17.01.2024 31,49 ₺ 893 ALIŞ
06.12.2023 33,62 ₺ 10 ALIŞ
17.11.2023 38,36 ₺ 1150 ALIŞ
16.11.2023 38,16 ₺ 1094 SATIŞ
13.11.2023 35,87 ₺ 1094 ALIŞ
01.09.2023 58,40 ₺ 3800 ALIŞ


Bana bunu fifo yöntemi ile maliyet hesaplayabilir misiniz lütfen midas borsa kullanıyorum ama maliyetim yanlış çıkıyor galiba
 
Katılım
1 Ocak 2024
Mesajlar
2
Excel Vers. ve Dili
2021 Türkçe
Arkadaşlar Merhaba,

Ekteki excel'de borsa hisselerimin alış ve satış miktarı ve tutarlarına göre ortalamalar çıkarıyorum. O an elimde herhangi bir hisseden kalmışsa kalan miktar ve detayları açık pozisyonlar başlığı altında. Satışlar ise kapanan pozisyonlar başlığı antında detaylarla birlikte bulunmakta.

Ancak, açık pozisyonlar başlığı altında o an elimde olan bir hissenin ortalama maliyeti, o hisseden daha önceki aldığım tüm fiyat ve miktar üstünden hesaplanıyor.
Bense burada FIFO (İlk giren İlk Çıkar) yöntemine göre elimdeki bir hissenin ortalama maliyetini görmek istiyorum.

Ör: Dosyada göreceğiniz üzere, SASA adlı hissede 175 lot bulunmakta, ort.maliyet: 39.63 lira. Ancak, FIFO'ya göre elimde kalan 175 SASA lot'unun maliyeti, son iki sasa hissesi alış işlemimden ortaya çıkmalı. D16 itibariyle bakarsak: 150 adet aldık, 29 adet aldık, 110 adet sattık (ilk giren ilk çıkara göre 150 lik alımımızdan 40 adet kaldı.), 146 adet aldık, 40 adet sattık (ilk giren ilk çıkara göre, hala ilk alışımızdan elimizde bulunan 40 lot'u sattık.)
Bu durumda elimizde kalan 175 lot, son iki alışımızdaki 29*45.98 tl ve 146*46 tl (Sonuç elimizde kalan 175 lotun lot başı bize maliyeti 45.99 tl olmaktadır.)

Açık pozisyonlarda Ortalama Maliyeti (J sütunundaki), FIFO'ya göre nasıl gösterebilirim?

Saygılarımla
Hocam aşağıda kileri hesaplayabilirmisiniz rica etsem
 
Üst