Excel Forum


Geri Git   Excel Forum > EXCEL-Soruları > Fonksiyonlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ

Fonksiyonlar Bir fonksiyonun, nasıl işlediğini veya aradığınız bir işleme uygun olup olmadığını bu başlık altında sorabilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama



Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 24-02-2010, 12:12   #11
qbilay06
Altın Üye
 
Giriş: 18/02/2009
Şehir: İstanbul
Mesaj: 73
Excel Vers. ve Dili:
Office 2010 Tr
Varsayılan

Alıntı:
mancubus tarafından gönderildi Mesajı Görüntüle
fifo görünce onu aramıştım.

şimdi dosyanıza bakınca sizin aslında fifo yöntemini de bilen bir bütçe uygulamasına ihtiyacınız var.

tablonuz çok dağınık. bir yerden kopyaladığınız için mi böyle yoksa görüntü amaçlı siz mi yaptınız. İnce boş sütunları çıkarmanız hem tablo yapmanızı kolaylaştırır hem de uygulamaları.

Şöyle bir tablo organize edilebilir:

Tarih -- İşlem -- Adet -- Alış Fiyat -- Stok -- İhtiyaç -- Banka -- Satılacak -- Satış fiyatı --- Kümüle Kar
xxxx Alış 1000 5 1000

Satılacak = (İhtiyaç - Banka)/Satış Fiyatı

stok rakamını alış ve satış işlemine göre bakiye yürüterek if'li Offset formülü ile hesaplatmak mümkün.

FİFO'ya net kar için ihtiyaç var. Bu da excel'de ancak KTF (UDF) ile mümkün oluyormuş. Önceki mesajımda yer alan dosyadaki "kullanıcı tanımlı fonksiyon" belki ilham verebilir.

Umarım yardımcı olabilicek bir arkadaşımız çıkar.
İlginiz için yürekten teşekkür ediyorum.
Dosya aslında benim kendi düzenim değil. Yeni bir düzen ile komple değiştirmek en mantıklısı olacağı kesin ama öncelikle kısa yol olarak nasıl işlem yapacağıma karar vermek istemiştim.
Buradan cevap alamayınca daha basit hale getirmeyi düşündüm ama icraate geçememiştim. ben tekrar bir düzen yapmaya çalışayım . O sırada da belki farklı görüş bildirenler olur.
Tekrar teşekkür ederim ilginize.
Saygılar...
qbilay06 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-02-2010, 08:36   #12
qbilay06
Altın Üye
 
Giriş: 18/02/2009
Şehir: İstanbul
Mesaj: 73
Excel Vers. ve Dili:
Office 2010 Tr
Question Basitleştirilmiş dosya

Günaydın,
1. mesajda eklenen dosyanın aradaki işlemleri yok ederek basite indirgenmiş halini ekledim. Bir yandan kendi kapasitemce sonuçlandırmaya çalıştımsa da malesef sonuç elde edemedim.
Saygılar...[/font]
Eklenmiş Dosyalar
Dosya Türü: rar fon alis satis-1.rar (26.0 KB, 28 Görüntülenme)

Bu mesaj en son " 25-02-2010 " tarihinde saat 08:40 itibariyle qbilay06 tarafından düzenlenmiştir.... Neden: (imla hatası)
qbilay06 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-02-2010, 15:21   #13
mancubus
Destek Ekibi
 
mancubus kullanıcısının avatarı
 
Giriş: 06/01/2010
Şehir: İ>S>T>A>N>B>U>L
Mesaj: 1,972
Excel Vers. ve Dili:
İŞ: 2010 Eng EV: 2013 Eng
Varsayılan

Merhaba.

Sağdan soldan toparlayıp uyarlayarak ekteki gibi bir dosya yaptım.

zemin rengi beyaz olanlar veri girişi amaçlı renkli olanlar formül içerenlerdir.

Fon aldığınız zaman alınan adet ve alış fiyatı F ve G sütunlarına girilmeli.

Paraya ihtiyaç duyulduğunda ihtiyaç tutarı, banka hesap bakiyesi ve satış fiyatı J, K ve I sütunlarına girilmeli.

Buradan satılacak adet basit bir formülle hesaplanıyor.

fifo yöntemine göre kazancı ise bulup uyarladığım bir KTF ile ancak kümülatif olarak yapabildim. her bir satış işlemi için ayrı ayrı kar/zarar hesaplamayı ise ilgilenen olur ise konunun uzmanlarından rica edelim.

eldeki fon miktarından fazla adette fon satılmak istendiğinde bir uyarı mesajı da çıkıyor. (E15 hücresine 5000000 yazarak test ediniz.)

modülde yer alanlar: uyarı mesajı ve fifo isimli kullanıcı tanımlı fonksiyon

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub mesaj()
MsgBox "Satılacak miktar bakiye değerinden fazla olamaz!", 48, "U Y A R I"
End Sub

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Function Fifo(DataTable As Range)
Application.Volatile False
Dim ConQty1()
Dim DElQty1()
Dim Price1()
Dim TMP As Range

ReDim ConQty1(0)
ReDim DElQty1(0)
ReDim Price1(0)
For i = 1 To DataTable.Rows.Count
    Select Case UCase(DataTable(i, 1))
    Case UCase("Satış")
        ConQty1(UBound(ConQty1)) = Abs((DataTable(i, 2)))
        ReDim Preserve ConQty1(UBound(ConQty1) + 1)
    Case UCase("Alış")
        DElQty1(UBound(DElQty1)) = (DataTable(i, 2))
        Price1(UBound(Price1)) = (DataTable(i, 3))
        ReDim Preserve DElQty1(UBound(DElQty1) + 1)
        ReDim Preserve Price1(UBound(Price1) + 1)
    End Select
Next i

costx = 0
i = 1
For k = LBound(ConQty1) To UBound(ConQty1) - 1
  
    For l = LBound(DElQty1) To UBound(DElQty1) - 1
        p = Price1(l)
        If DElQty1(l) > ConQty1(k) Then
        costx = costx + p * (ConQty1(k))
        DElQty1(l) = DElQty1(l) - ConQty1(k)
        ConQty1(k) = 0
        GoTo NXTCON:

        ElseIf ConQty1(k) > DElQty1(l) Then
        costx = costx + p * DElQty1(l)
        ConQty1(k) = ConQty1(k) - DElQty1(l)
        DElQty1(l) = 0
        Price1(l) = 0
        
        GoTo NXTDEL:
        Else
        costx = costx + p * ConQty1(k)
        ConQty1(k) = 0
        DElQty1(l) = 0
        Price1(k) = 0
        End If

NXTDEL:
    Next l
NXTCON:
i = i + 1
Next k
Fifo = costx
' örnek formül =Fifo($B$2:$D$4)
End Function

fon isimli sayfada yer alan ve uyarı çıkmasını sağlayan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Calculate()

Dim r As Range, c As Range
Set r = Range("E2:E65000")
   
For Each c In r
If c.Offset(0, 5).Value <> "" And c.Value < 0 Then Call mesaj
       Next c

End Sub
Eklenmiş Dosyalar
Dosya Türü: xls fifo son.xls (78.0 KB, 47 Görüntülenme)
mancubus Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-02-2010, 15:36   #14
qbilay06
Altın Üye
 
Giriş: 18/02/2009
Şehir: İstanbul
Mesaj: 73
Excel Vers. ve Dili:
Office 2010 Tr
Varsayılan

Merhaba ,
Emeğinize yüreğinize sağlık.
Tabii şahsım adına yazarsam,VBA bilgim yok denecek kadar az olduğu için dosyanızı birçok arkadaş gibi anında yorumlayamasam da elimden geldiğince ilerlemeye çalışacağım.
Bu arada ne kadar etkisi olur bilmiyorum ama D sütünundaki Fiyat rakamı, hiçbir zaman azalan tepki göstermiyor.Yani döviz şeklinde inişli çıkışlı bir grafiği yok .Devamlı artış gösteren bir kalem. Ufak da olsa kolaylık sağlar diye düşündüm.
Bir de I sütunundaki "Satış fiyatı" tutarları elle girilmiş sanırım ve D sütunundaki O günkü kur rakamına eşit olarak düşünüldü değil mi ?
Tekrar teşekkürler.
Saygılar...
qbilay06 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-02-2010, 16:35   #15
mancubus
Destek Ekibi
 
mancubus kullanıcısının avatarı
 
Giriş: 06/01/2010
Şehir: İ>S>T>A>N>B>U>L
Mesaj: 1,972
Excel Vers. ve Dili:
İŞ: 2010 Eng EV: 2013 Eng
Varsayılan

Alıntı:
qbilay06 tarafından gönderildi Mesajı Görüntüle
Merhaba ,
Emeğinize yüreğinize sağlık.
Tabii şahsım adına yazarsam,VBA bilgim yok denecek kadar az olduğu için dosyanızı birçok arkadaş gibi anında yorumlayamasam da elimden geldiğince ilerlemeye çalışacağım.
Bu arada ne kadar etkisi olur bilmiyorum ama D sütünundaki Fiyat rakamı, hiçbir zaman azalan tepki göstermiyor.Yani döviz şeklinde inişli çıkışlı bir grafiği yok .Devamlı artış gösteren bir kalem. Ufak da olsa kolaylık sağlar diye düşündüm.
Bir de I sütunundaki "Satış fiyatı" tutarları elle girilmiş sanırım ve D sütunundaki O günkü kur rakamına eşit olarak düşünüldü değil mi ?
Tekrar teşekkürler.
Saygılar...
Rica ederim.

Ben de pek anlamıyorum. Nette bulduklarımdan uyarladım.

Alış (G) ve satış (I) fiyatı elle giriliyor. D sütunundaki değer ise B sütunundaki değerin Alış veya Satış olmasına göre G ve I sütunlarından geliyor.

Alış fiyatı yerine alış kuru, satış fiyatı yerine satış kuru diyebilirsiniz. Ortada bir ürün var ve bunun alınırken veya satılırken olmak üzere kullanılan 2 fiyatı var. Her bir işlemde toplam ödenen veya toplam tahsil edilen tutarı hesaplamak üzere miktar (Adet) ile çarptığımız bir değer bu.

Kar/zarar ancak bir satış işlemi var ise hesaplandı.

İhtiyaç olmadan da satış işlemi yapabilirsiniz. C sütununa "-" olarak adeti el ile girdiğinizde de hesaplama yapar. Ancak başka yerlerde kullanılacak ise el ile girilen değerleri silerek formülü tekrar kopyalamanız gerekecektir.

İyi çalışmalar.
mancubus Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-02-2010, 10:02   #16
qbilay06
Altın Üye
 
Giriş: 18/02/2009
Şehir: İstanbul
Mesaj: 73
Excel Vers. ve Dili:
Office 2010 Tr
Varsayılan

Alıntı:
mancubus tarafından gönderildi Mesajı Görüntüle
Rica ederim.

Ben de pek anlamıyorum. Nette bulduklarımdan uyarladım.

Alış (G) ve satış (I) fiyatı elle giriliyor. D sütunundaki değer ise B sütunundaki değerin Alış veya Satış olmasına göre G ve I sütunlarından geliyor.

Alış fiyatı yerine alış kuru, satış fiyatı yerine satış kuru diyebilirsiniz. Ortada bir ürün var ve bunun alınırken veya satılırken olmak üzere kullanılan 2 fiyatı var. Her bir işlemde toplam ödenen veya toplam tahsil edilen tutarı hesaplamak üzere miktar (Adet) ile çarptığımız bir değer bu.

Kar/zarar ancak bir satış işlemi var ise hesaplandı.

İhtiyaç olmadan da satış işlemi yapabilirsiniz. C sütununa "-" olarak adeti el ile girdiğinizde de hesaplama yapar. Ancak başka yerlerde kullanılacak ise el ile girilen değerleri silerek formülü tekrar kopyalamanız gerekecektir.

İyi çalışmalar.
Günaydın ,
paylaşımınız için tekrar teşekkür ederim. Gönderdiğiniz dosyada yeni bir sekme açarak ben de bazı oynamalar yaptım.

-- H sütununu Yukarıyuvarla formülü olarak değiştirdim.
-- E ve M sütununlarını EĞER formülü ile düzenledim.
-- P sütununa Sağlama adı altında geçici olarak bir formül yazdım. Çünkü temel olarak asıl amacımız ihtiyaç kadar fon satılması.Akabinde de tablo içi işlemlerin doğruluğu geliyor tabiiki.
Bunun için de, L (satış tutarı ) ile K (Bankadaki rakam) toplatıp , J (ihtiyaç ) 'tan büyük ya da eşit olup olmadığını kontrol ettirdim.
------------------------------------------------------------------
Tabii tüm bunlar işin normal kısımları ve ilk mesajdan beri çözüm bulamadığım yer ise , tabloda da belirttiğim gibi Satış işleminde birden fazla fon grubunun işleme girmesi. En son hangi fon grubundan satılıp ne kadar fon kaldığını göstermesi.
Sizin de belirttiğiniz gibi bunun için UZMAN arkadaşlardan veya yardım edebilecek diğer arkadaşlardan yardım bekliyoruz...

Emeğiniz için tekrar teşekkür ederim sayın MANCUBUS...

Saygılar...
Eklenmiş Dosyalar
Dosya Türü: rar fifo son.rar (31.1 KB, 49 Görüntülenme)
qbilay06 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-02-2010, 14:16   #17
mancubus
Destek Ekibi
 
mancubus kullanıcısının avatarı
 
Giriş: 06/01/2010
Şehir: İ>S>T>A>N>B>U>L
Mesaj: 1,972
Excel Vers. ve Dili:
İŞ: 2010 Eng EV: 2013 Eng
Varsayılan

Merhaba.

Eğer bir çözüm öneren olmaz ise elinizdeki her bir fon için ayrı bir sayfada bu tablo formatı oluşturarak çözüm üretebilirsiniz.

Hangi fondan satacağınıza siz karar verirsiniz. Veya birden fazla fondan karşık olarak ihtiyacı karşılayacak toplama ulaşana kadar dilediğiniz miktarda satabilirsiniz. Bu takdirde ihtiyaç verisini boş geçerek formülsüz satış adedi girebileceğiniz gibi, ihtiyaç rakamını bölerek fon sayfalarına ayrı ayrı yazıp oradan gelen adetleri kullanabilirsiniz.

dosya içine kar zarar isimli bir sayfa ekleyerek 7 no.lu mesajda yer alan kod ile kar zarar hesaplayabilirsiniz.

a: fon ismi
b: alınan fon adedi
c: alış fiyatı (kuru) [not: bahsettiğiniz yatırım fonu ise fiyat demek daha doğru. aslında "kur" kelimesi de dövizin fiyatını ifade eder.]

e: fon ismi
f: satılan fon adedi
g: satış birim maliyet [fifo_test makrosu tarafından hesaplanacak] burada her bir satış işlemine konu miktarın ortalama maliyeti hesaplanmaktadır.

bu dosyada (i: satış fiyatı) şeklinde bir sütun ilave eder satış fiyatlarını yazarsınız. J sütununda da F2*(I2-G2) formülü ile kar/zar hesaplarsınız.

yapmanız gereken bu yeni sayfadaki a, b, c sütunlarına tarih sırasında alış bilgilerini, e, f sütunlarına da satış işlemlerini yazmak olur.

her satış işleminden sonra makroyu çalıştırısınız.

7 no.lu mesajdaki dosyayı incelerseniz dediğim şekle kolaylıkla dönüştürebilirsiniz. tabii tek sayfada halletmeyi sağlayan bir formül ve makro desteği gelir ise buna gerek kalmaz.
mancubus Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-02-2010, 14:35   #18
qbilay06
Altın Üye
 
Giriş: 18/02/2009
Şehir: İstanbul
Mesaj: 73
Excel Vers. ve Dili:
Office 2010 Tr
Varsayılan

Merhaba,
Evet tek sayfada istenilen makroya ulaşabilmek zaten temel çözüme ulaşmak anlamına gelecek. Çünkü ilk mesajda eklediğim karışık dosyada ;
ihtiyaç-banka ve fon fiyatını yazdıktan sonra yaklaşık kaç adet fon gerektiğini bulup ona göre el ile satır ekleyerek işlem yapıyordum.Eklediğim satırları da önceki günler de yapılan sayfalardan kopyalayınca formüllerle ugraşmama gerek kalmıyordu...
Eğer destek verebilecek bir arkadaş çıkmaz ise sizin de dediğiniz gibi eski düzendeki tabloyu biraz sağdan soldan düzelterek yenilemiş olurum ...
Alış rakamı her zaman artan bir rakam olduğu için aynı şekilde satış rakamı da bir oncekinden büyük olacağı için aslında fonksiyonların yardımıyla çözüleceğini düşünüyorum fakat oradaki mantığı bir türlü oturtamadım ...
indis , kaçıncı , düşeyara gibi fonk kalemlerini kullanarak kombinasyonlar denemeye çalışsam da bi sonuç bulamadım )):
umarım yardımcı olacak arkadaşlar paylaşım sağlar...
İlginiz ve paylaşımınız için tekrar yürekten teşekkür ediyorum...
Saygılar...
qbilay06 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-02-2010, 17:29   #19
qbilay06
Altın Üye
 
Giriş: 18/02/2009
Şehir: İstanbul
Mesaj: 73
Excel Vers. ve Dili:
Office 2010 Tr
Varsayılan

Dosyayı okuyan çıkıyor sanırım ... 300 ü geçti görüntüleme sayısı ama sonuca yaklaşılamadı bile ((:

Saygılar...
qbilay06 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-10-2010, 13:08   #20
forest22
 
Giriş: 20/03/2009
Şehir: istanbul
Mesaj: 10
Excel Vers. ve Dili:
Office Excel 2003
Varsayılan ortalama maliyet hesaplatmak

Ekli dosyada alım ve satımlar yer almaktadır. Buna göre satış sırasında enson stok durumuna göre satışı maliyetlendirip kar zarar hesaplamak istemiştim. Yardımlarınız için şimdiden teşekkürler
Eklenmiş Dosyalar
Dosya Türü: xls ORTALAMA MALİYET.xls (21.0 KB, 23 Görüntülenme)
forest22 Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 06:13


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.


Bahis Forum - Define - Çorlu Kamera - Çorlu Petek Temizleme - Site Yönetimi - TYPO3 Türkiye - 2015 Fuar - Çorlu Mimarlık - Çorlu Hotel
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden