• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çözüldü Fifo yöntemiyle fon alım satımı makro ile nasıl yapılabilir?

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

assenucler

Yeni Üye
Katılım
19 Haz 2018
Mesajlar
87
En iyi yanıt
0
Puanları
18
Yaş
78
Konum
Emekli YMM
Ad Soyad
A. Selim Şenüçler
Office Vers.
Office 365 ev 64 bit
Değerli Dostlar;


Öncelikle sizlerin Ramazan Bayramını kutlar, nice güzel bayramlar dilerim.

FİFO İlk Giren İlk Çıkar yöntemine göre, fon alıp satılmasına ilişkin formül ile hazırladığım dosyayı ekliyorum.

Ekli resimde de görüleceği gibi; Sayfa1 Tablo 1 fon alış hareketler, stok hareketleri miktar ve tutarları, fonun stokta bekleme süresi; Tablo 2' de ise satış miktar, fon satış maliyeti, satış tutar, kâr ve zarar tutarı bilgileri ile toplamlar sütunu bulunmakta ve yardımcı sütunda da Fon Maliyeti hesaplanmaktadır.

Sayfa2'de Tablo 1'deki işlemlerin sağlıklı, düzgün ve doğru çalışması için, öncelikle yapılması gerekli işlemlerin sırasına ilişkin açıklamalar bulunmak-tadır.

Açıklama sayfasında önemli görülen başlıklar, resimli olarak anlatılmaktadır. Fon alım satımlarında, bankalar ve aracı kurumlarca % 10 gelir vergisi stopaj ile hizmet giderleri kesilmektedir. Dosyada bu kesintiye yer verilmemiştir.

Veri alanı B9:T111 aralığını içermektedir. Sayfalar 1 şifresi ile koruma altındadır..

İsteğim, değerli üstatlarımın uygun zamanı olursa, bu dosyayı makroyla taçlandırmasıdır.

1590335463119.png
 

Ekli dosyalar

  • Fon_FİFO_Formülle_Alış_Satış_Kâr_Zarar.xlsx
    210.7 KB · Görüntüleme: 24

Vedat ÖZER

Logo Uzmanı
Geliştirici
Katılım
4 Haz 2018
Mesajlar
288
En iyi yanıt
4
Puanları
63
Yaş
33
Konum
Antalya / Merkez
Ad Soyad
Vedat ÖZER
Office Vers.
2019
Merhaba,

Q sütununda formül yok gördüğüm kadarıyla, siz bu kısmın kod ile hesaplanmasını mı istiyorsunuz ?
 

assenucler

Yeni Üye
Katılım
19 Haz 2018
Mesajlar
87
En iyi yanıt
0
Puanları
18
Yaş
78
Konum
Emekli YMM
Ad Soyad
A. Selim Şenüçler
Office Vers.
Office 365 ev 64 bit
Sayın Vedat ÖZER,


Değerli üstadım, öncelikle ilginiz için teşekkür eder ve Ramazan bayramınızı en içten duygularımla kutlarım.

Kod bilgim sıfır olduğu için, ne yaparım diye düşündüm, yardımcı alanda bulduğum fon maliyetini, el ile Q sütununa girilmesini önerdim. Eğer kod ile hesaplanırsa, en uygun ve doğrusu olacaktır.

Saygılar,

Selim
 

assenucler

Yeni Üye
Katılım
19 Haz 2018
Mesajlar
87
En iyi yanıt
0
Puanları
18
Yaş
78
Konum
Emekli YMM
Ad Soyad
A. Selim Şenüçler
Office Vers.
Office 365 ev 64 bit
Sayın Vedat ÖZER,


Benim isteğim, daha doğrusu ricam aşağıdaki sütunlar dışında makro ile çözümdür.

Sarı renkli alanlar ile bir kaç hücrede formül bulunmakta olup, Tablo 1'de B9,C9,D9 ile Tablo 2'de N9,O9,P9 sütunlarına manuel olarak veri girişi yapılacaktır. (Q9) sütununa makroyla maliyet aktarılabiliyorsa, Q9 hariç; veri aralığının başlangıç için 9:1000 satırları olmasının normal olacağını düşünüyorum.
 
Son düzenleme:

assenucler

Yeni Üye
Katılım
19 Haz 2018
Mesajlar
87
En iyi yanıt
0
Puanları
18
Yaş
78
Konum
Emekli YMM
Ad Soyad
A. Selim Şenüçler
Office Vers.
Office 365 ev 64 bit
1 üstadım,
 

Vedat ÖZER

Logo Uzmanı
Geliştirici
Katılım
4 Haz 2018
Mesajlar
288
En iyi yanıt
4
Puanları
63
Yaş
33
Konum
Antalya / Merkez
Ad Soyad
Vedat ÖZER
Office Vers.
2019
Merhabalar,

İş yoğunluğundan tam kontrol etme fırsatım olmadı aşağıdaki kodu çalıştırıp kontrol edebilir misiniz.

Kod:
Sub FIFOMALIYETAT()
Dim satır As Long
Dim SONUC As Long

Zaman = Timer

With Application
 .ScreenUpdating = False
 .Calculation = xlCalculationManual
 .EnableEvents = False
End With

Range("AA1:AZ65536").ClearContents
GIREN = Cells(Rows.Count, "B").End(3).Row
CIKAN = Cells(Rows.Count, "N").End(3).Row
Range("B9:D" & GIREN).Copy Range("AA9")
Range("N9:P" & CIKAN).Copy Range("AE9")
GIRENSONSATIR = Cells(Rows.Count, "AA").End(3).Row
CIKANSONSATIR = Cells(Rows.Count, "AE").End(3).Row
  For CIKAN = Range("Ag8").End(4).Row To CIKANSONSATIR
  SONUC = 0
  SAT = Range("AB8").End(4).Row
   While Range("AG" & CIKAN) > 0
     If Range("AG" & CIKAN) >= Range("AB" & SAT) And Range("AB" & SAT) <> 0 Then
     SONUC = SONUC + (Range("AB" & SAT) * Range("AC" & SAT))
     Range("AG" & CIKAN) = Format(Range("AG" & CIKAN) - Range("AB" & SAT), "0.00") * 1
     Range("AB" & SAT).ClearContents
     SAT = SAT + 1
     End If
     If Range("AB" & SAT) > Range("AG" & CIKAN) And Range("AG" & CIKAN) <> 0 Then
     SONUC = SONUC + (Range("AG" & CIKAN) * Range("AC" & SAT))
     Range("AB" & SAT) = Format(Range("AB" & SAT) - Range("AG" & CIKAN), "0.00") * 1
     Range("AG" & CIKAN).ClearContents
     Range("Q" & CIKAN) = SONUC
     End If
    Wend
  Next CIKAN

With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
End With

    MsgBox "Hesaplama Yapıldı " & Chr(10) & Chr(10) & _
           "İşlem süresi ; " & Format((Timer - Zaman) / 60, "0.00") & " Saniye", vbInformation
  

End Sub
 
Son düzenleme:

assenucler

Yeni Üye
Katılım
19 Haz 2018
Mesajlar
87
En iyi yanıt
0
Puanları
18
Yaş
78
Konum
Emekli YMM
Ad Soyad
A. Selim Şenüçler
Office Vers.
Office 365 ev 64 bit
Sayın ÖZER,


Öncelikle yoğun çalışma ortamında zaman ayırarak, hazırladığınız dosyaya verdiğiniz emek için çok teşekkür ederim.

Dosyanızı indirdikten sonra, size yolladığım ilk dosyada, halen satılmamış 15.036 adet fonun tümünün, tablo 2'de satışını yaptıktan formüle göre doğru fon maliyeti ve kâr tutarını tespit ettim ve çektiğim ekran görüntüsünü size yolluyorum. (Bkz: Resim 1)

Karşılaştırmak için yolladığınız dosyada; Satılan 15.036 fonu tablo 2 ye kaydettikten sonra, makroyu çalıştırdığımda:
Tablo 1'deki bilgilerin doğru geldiğini, tablo 2'de ki verilerden Q, S, T, V sütunu 13, 14 ve 15. satırlardaki tutarların hatalı olduğunu gördüm.(Bkz: Resim 2)

Bilgilerinizi rica ederim.

1590602140477.png

1590602176345.png
 

Ekli dosyalar

  • ASS_Fon_FİFO_Formülle_Alış_Satış_Kâr_Zarar_DoğruHesap.xlsx
    210.5 KB · Görüntüleme: 3
  • Fon_FİFO_Makroyla_Alış_Satış_Kâr_Zarar_VedatÖzer_Hatalı.xlsm
    222.9 KB · Görüntüleme: 7

Vedat ÖZER

Logo Uzmanı
Geliştirici
Katılım
4 Haz 2018
Mesajlar
288
En iyi yanıt
4
Puanları
63
Yaş
33
Konum
Antalya / Merkez
Ad Soyad
Vedat ÖZER
Office Vers.
2019
Merhaba,

Aşağıdaki şekilde değiştirip deneyin.

Kod:
Sub FIFOMALIYETAT()
Dim satır As Long
Dim SONUC As Long

Zaman = Timer

With Application
 .ScreenUpdating = False
 .Calculation = xlCalculationManual
 .EnableEvents = False
End With

Range("AA1:AZ65536").ClearContents
GIREN = Cells(Rows.Count, "B").End(3).Row
CIKAN = Cells(Rows.Count, "N").End(3).Row
Range("B9:D" & GIREN).Copy Range("AA9")
Range("N9:P" & CIKAN).Copy Range("AE9")
GIRENSONSATIR = Cells(Rows.Count, "AA").End(3).Row
CIKANSONSATIR = Cells(Rows.Count, "AE").End(3).Row
  For CIKAN = Range("Ag8").End(4).Row To CIKANSONSATIR
  SONUC = 0
  SAT = Range("AB8").End(4).Row
   While Range("AG" & CIKAN) > 0
     If Range("AG" & CIKAN) >= Range("AB" & SAT) And Range("AB" & SAT) <> 0 Then
     SONUC = SONUC + (Range("AB" & SAT) * Range("AC" & SAT))
     Range("AG" & CIKAN) = Format(Range("AG" & CIKAN) - Range("AB" & SAT), "0.00") * 1
     Range("AB" & SAT).ClearContents
     SAT = SAT + 1
     End If
     If Range("AB" & SAT) > Range("AG" & CIKAN) And Range("AG" & CIKAN) <> 0 Then
     SONUC = SONUC + (Range("AG" & CIKAN) * Range("AC" & SAT))
     Range("AB" & SAT) = Format(Range("AB" & SAT) - Range("AG" & CIKAN), "0.00") * 1
     Range("AG" & CIKAN).ClearContents
     Range("Q" & CIKAN) = SONUC
     End If
     If Range("AB" & SAT) = Range("AG" & CIKAN) Then
     SONUC = SONUC + (Range("AG" & CIKAN) * Range("AC" & SAT))
     Range("AB" & SAT) = Format(Range("AB" & SAT) - Range("AG" & CIKAN), "0.00") * 1
     Range("AG" & CIKAN).ClearContents
     Range("Q" & CIKAN) = SONUC
     End If
    
    
    Wend
  Next CIKAN

With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
End With

    MsgBox "Hesaplama Yapıldı " & Chr(10) & Chr(10) & _
           "İşlem süresi ; " & Format((Timer - Zaman) / 60, "0.00") & " Saniye", vbInformation
 

End Sub
 

assenucler

Yeni Üye
Katılım
19 Haz 2018
Mesajlar
87
En iyi yanıt
0
Puanları
18
Yaş
78
Konum
Emekli YMM
Ad Soyad
A. Selim Şenüçler
Office Vers.
Office 365 ev 64 bit
Sayın Vedat Özer,


Son yolladığınız dosya çok güzel ve hatasız çalışıyor.

Yoğun iş yoğunluğunuz arasında, bana ve bizlere verdiğiniz destek ve katkı için, size ne kadar teşekkür etsem azdır.

Vedat bey şahsen tanışmasak bile, bizlerin kalbinde yaşayan gönül dostlarısınız.. Allah'ım sizi üstatları başımızdan eksik etmesin; rızkınız bol ve her şey gönlünüzün güzelliğince olsun.

Lütfen hakkınızı helâl eder misiniz?

En içten sevgi ve saygılarımı sunarım.

Selim,
 

Vedat ÖZER

Logo Uzmanı
Geliştirici
Katılım
4 Haz 2018
Mesajlar
288
En iyi yanıt
4
Puanları
63
Yaş
33
Konum
Antalya / Merkez
Ad Soyad
Vedat ÖZER
Office Vers.
2019
Merhaba,

Güzel düşünceleriniz için teşekkür ederim.
Helalı hoş olsun,
Biraz bir boşluk buldum dosyayı biraz iyileştirdim.
 

Ekli dosyalar

  • FIFO MALİYET.rar
    34.6 KB · Görüntüleme: 36
Son düzenleme:

assenucler

Yeni Üye
Katılım
19 Haz 2018
Mesajlar
87
En iyi yanıt
0
Puanları
18
Yaş
78
Konum
Emekli YMM
Ad Soyad
A. Selim Şenüçler
Office Vers.
Office 365 ev 64 bit
Yeni eklediğiniz dosya için bir kez daha teşekkür ederim.

Sağ olun, var olun.
 

assenucler

Yeni Üye
Katılım
19 Haz 2018
Mesajlar
87
En iyi yanıt
0
Puanları
18
Yaş
78
Konum
Emekli YMM
Ad Soyad
A. Selim Şenüçler
Office Vers.
Office 365 ev 64 bit
Sayın Vedat ÖZER,

11. iletiye eklediğiniz dosyada "LISTE" ve "DETAY" sayfaları var. LISTE sayfasındaki makro çalıştır düğmesine tıklayınca, DETAY sayfasındaki kayıtlar makroyla mı yaratılıyor. Yoksa, DETAY'da bulunan verilerin bir kısmını (manuel) girmem mi gerekiyor?
 

Vedat ÖZER

Logo Uzmanı
Geliştirici
Katılım
4 Haz 2018
Mesajlar
288
En iyi yanıt
4
Puanları
63
Yaş
33
Konum
Antalya / Merkez
Ad Soyad
Vedat ÖZER
Office Vers.
2019
Detay kısmı makro ile oluşturuluyor. Elle bir şey girmenize gerek yok, Hangi maliyetin hangi alıştan geldiğini gösteriyor.
 

assenucler

Yeni Üye
Katılım
19 Haz 2018
Mesajlar
87
En iyi yanıt
0
Puanları
18
Yaş
78
Konum
Emekli YMM
Ad Soyad
A. Selim Şenüçler
Office Vers.
Office 365 ev 64 bit
Teşekkürler. Detay sayfadaki 1. satır başlığını da makro mu yaratıyor?
 

assenucler

Yeni Üye
Katılım
19 Haz 2018
Mesajlar
87
En iyi yanıt
0
Puanları
18
Yaş
78
Konum
Emekli YMM
Ad Soyad
A. Selim Şenüçler
Office Vers.
Office 365 ev 64 bit
Teşekkürler ve hayırlı Cuma'lar.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt