-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
FİFO (İLK GİREN İLK ÇIKAR) A GÖRE EXCEL DE TAKİP
- Konbuyu başlatan alaoglu
- Başlangıç tarihi
- Katılım
- 23 Mart 2006
- Mesajlar
- 303
- Excel Vers. ve Dili
- Microsoft Office 2003
Excel 2003
Sayın aloğlu Ben bir dosya hazırladım işinizi görürmü bilmiyorum ama ?
Saygılar
Saygılar
- Katılım
- 31 Aralık 2005
- Mesajlar
- 4,400
- Excel Vers. ve Dili
- Office 365 (64 bit) - Türkçe
Zaman zaman aklıma gelen bir konuydu (FİFO). Ekte bir tablo hazırladım. Stok ilgilenen arkadaşların işine yarayacağını umuyorum.
NOT : Kalan sütunlarındaki kümülatif toplam hatası düzeltildi.
NOT : Kalan sütunlarındaki kümülatif toplam hatası düzeltildi.
- Katılım
- 31 Aralık 2005
- Mesajlar
- 4,400
- Excel Vers. ve Dili
- Office 365 (64 bit) - Türkçe
Sn. alaoglu,
Sorunuzdaki her çıkışın maliyetinin tespit edilmesi zor tespit. Belki yapacak bir arkadaş çıkar.
Sorunuzdaki her çıkışın maliyetinin tespit edilmesi zor tespit. Belki yapacak bir arkadaş çıkar.
ELİMDE BİR MAKRO VAR AMA ANCAK 10 SATIR DOĞRU ÇALIŞIYOR.
BU KONUDA BİLGİSİ OLAN VARMI
YARDIMLARINIZI BEKLİYORUM.
Function FIFO(ProductCode As Range, UnitsSold As Range) As Currency
Dim StartCount As Range, UnitCost As Range, Products As Range, PurchaseUnits As Range
Dim Counter As Integer, RemainingUnits As Long, UnitsAccountedFor As Long
FIFO = 0
Set Products = Range("ProductCode")
Set StartCount = Range("StartCount")
Set UnitCost = Range("UnitCost")
Set PurchaseUnits = Range("PurchaseUnits")
UnitsAccountedFor = UnitsSold
For Counter = 1 To StartCount.Rows.Count
If ProductCode = Products(Counter, 1) Then
RemainingUnits = Application.WorksheetFunction.Max(0, StartCount(Counter, 1) + _
PurchaseUnits(Counter, 1) - UnitsAccountedFor)
FIFO = FIFO + UnitCost(Counter, 1) * RemainingUnits
UnitsAccountedFor = UnitsAccountedFor - (StartCount(Counter, 1) + _
PurchaseUnits(Counter, 1) - RemainingUnits)
End If
Next Counter
End Function
BU KONUDA BİLGİSİ OLAN VARMI
YARDIMLARINIZI BEKLİYORUM.
Function FIFO(ProductCode As Range, UnitsSold As Range) As Currency
Dim StartCount As Range, UnitCost As Range, Products As Range, PurchaseUnits As Range
Dim Counter As Integer, RemainingUnits As Long, UnitsAccountedFor As Long
FIFO = 0
Set Products = Range("ProductCode")
Set StartCount = Range("StartCount")
Set UnitCost = Range("UnitCost")
Set PurchaseUnits = Range("PurchaseUnits")
UnitsAccountedFor = UnitsSold
For Counter = 1 To StartCount.Rows.Count
If ProductCode = Products(Counter, 1) Then
RemainingUnits = Application.WorksheetFunction.Max(0, StartCount(Counter, 1) + _
PurchaseUnits(Counter, 1) - UnitsAccountedFor)
FIFO = FIFO + UnitCost(Counter, 1) * RemainingUnits
UnitsAccountedFor = UnitsAccountedFor - (StartCount(Counter, 1) + _
PurchaseUnits(Counter, 1) - RemainingUnits)
End If
Next Counter
End Function
- Katılım
- 21 Ekim 2005
- Mesajlar
- 17,093
- Excel Vers. ve Dili
- Excel, 365 - İngilizce
Dosyadaki alan adlarına bakınız. Muhtemelen bunlar 10 satırlık.
Set Products = Range("ProductCode")
Set StartCount = Range("StartCount")
Set UnitCost = Range("UnitCost")
Set PurchaseUnits = Range("PurchaseUnits")
Yani bu kodlardaki alanlar tabloda yer alan satır sayısı kadar tanımlanmıştır.
Set Products = Range("ProductCode")
Set StartCount = Range("StartCount")
Set UnitCost = Range("UnitCost")
Set PurchaseUnits = Range("PurchaseUnits")
Yani bu kodlardaki alanlar tabloda yer alan satır sayısı kadar tanımlanmıştır.
veyselemre
Özel Üye
- Katılım
- 9 Mart 2005
- Mesajlar
- 3,652
- Excel Vers. ve Dili
- Pro Plus 2021
Ekteki örnekte makro ile yapılmış örnek var.
- Katılım
- 10 Nisan 2007
- Mesajlar
- 3
- Excel Vers. ve Dili
- excel 2003 ingilizce
slm Ben de yeni başladım exel ile uğraşmaya Fifo ile ilgili bilgi toplamaya çalışıyorum sevkiyat yapıyoruz ve exelde fifo takip ediyoruz ancak burdaki yazışmalarda hiç ekli dosya göremiyorum acaba bir kaç örnek var mı inceleyebileceğim. Şimdiden Tşkler.