BAŞLANGIÇ AYI
BİTİŞ AYI
1
3
-1.781,50
GURUP
KODU
Stok Kodu
DÖNEM BAŞI
DÖNEM BAŞI
TUTAR
DÖNEM İÇİ
ALIŞ MİKTAR
DÖNEM İÇİ
ALIŞ TUTAR
TOPLAM MİKTAR
TOPLAM TUTAR
ORTALAMA
MALİYET
GURUP
satış...
Merhaba,
Verilerinizden çıkan sonuç bu. Geçmişten gelen bakiye yok ise, 153.01.001 kodlu ürün için Ocak ayında 75.000 alış, 83.823 satış görünüyor. Dolayısıyla Şubat ayı başındaki stok -8.823 olarak çıkıyor.
...tutarlara istinaden vermiş olduğum parametreye göre değişmesi gerekiyor. ÇOKETOPLA ile yapmaya çalıştım fakat yapamadım. Ekte bulunan dosyamda yeşil alan ile renklendirdiğim yere parametreleri girip.sarı alana ise parametrelere göre dönem başı stok miktarını getirmek istiyorum iyi çalışmalar
...Makro12()
On Error Resume Next
Set s1 = Sheets("ÜRÜNLER")
s1.Select
s1.[F2:F10000].ClearContents 'giren
Son = Cells(Rows.Count, "A").End(3).Row 'STOK KODU
With s1.Range("F2:F" & Son) 'GİREN
.FormulaLocal =...
bir başka excel listesinde yer alan fiyatları (stok kodu benzersiz olarak var)
farklı bir excel dosyasında stok kodlarının karşısına nasıl çağırabilirim?
Merhaba;
Bahsettiğiniz gibi bir stok takip uygulamasını Excel ile yapmayın. İleride, hatta en başlarda bile çok sıkıntı çekersiniz. Mutlaka veritabanı kullanın en basitinden Ms Access olabilir. Yine de siz bilirsiniz tabii....
Merhabalar,
depo stok takip ve giriş çıkış hareketlerini kaydedebileceğim bir uygulamaya ihtiyacım var, depodaki malzemeler yaklaşık 10bin çeşit, günlük 50 hareket oluyor, forumdaki örnekleri inceledim kendime uyarlayamadım veya çok eski örnekler var linklerin çalışmadığı, yardımcı olabilecek...
Maalesef korumalı hocam yukleyemiyorum.
Test adında makro kitaplık oluşturdum, Stok adında sayfa,
Görseldeki kodu belirtilen yere yazdım
Boş bir yere , ekle menüsünden metin kutusu ekledim
Geliştirici seçeneklerinden makro çalıştırdim fakat aynı yerde duruyor metin kutusu
Örneklere göre ayarlayabilirsiniz. Stok isimli sayfada çalışan makro:
' If Resim.Name = "1 Resim" Then
' If Resim.Name = "1 Metin kutusu" Then
' If Resim.Name = "Picture 1" Then
Sub imza()
For Each Resim In Sheets("Stok").Shapes
If Resim.Name = "Picture 1" Then
Resim.Copy...
Şimdi Şöyle bir Sorum var.
Böyle bir menü de Stok Basınca ortadaki frame veya başka birşey de olur o alan içine yeni pencere gibi değil de aynı pencerenin içine kutunun içinde açılmasını sağlayabilir miyiz. Stoğa tıklayınca stok cariye tıklayınca Cari Formu gelse stok.show gibi ama farklı...
Merhaba,
Bence Stok ve Maliyetin tümünü denkleştirip elma-elma bakmakta fayda var. Oyunu bilmemekle birlikte, eğer takas maliyeti yok ise aşağıdaki gibi bir denklik kurulabilir. Tabloya göre toplam üretim 111 adet olacak ve takas miktarı Deut cinsinden olacaktır.
Denk
Materyal
Cost
Stok...
Bunu da Stok sayfasının kod kısmına kopyalayın.
Stok sayfasında C6:D16 aralığında bir değişiklik yapıldığında formül sonucunu Rapor sayfasında D sütununa otomatik yazar.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bul As Range
If Not Intersect(Range("C6:D16"), Target) Is...
Sayın Muzaffer Bey
Söylediğiniz gibi çok güzel çalışıyor. Fakat şöyle bir sorun var. Stok sayfasındaki değişiklik sapor sayfasına gelmiyor. Onu nasıl çözebiliriz.
Sizin de başınızı ağrıtıyorum. Kusura bakmayın.
Merhaba.
Örnek dosyaya göre aşağıdaki kodu kullanınız.
Sub test()
With Range("D5:D14")
.FormulaLocal = "=ETOPLA(stok!$C$6:$C$16;C5;stok!$D$6:$D$16)"
.Value = .Value
End With
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.