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
Sayın Muzaffer Bey
Aşağıdaki şekilde kendime uyarlayıp yazdım ama ilgili hücreye hiç bir veri gelmedi. Nerede yanlış yapıyor olabilir.
With Range("n4")
.FormulaLocal = "=TOPLA.ÇARPIM((Stok!$p$2:$p$5000=b7)*(Stok!$ı$2:$ı$5000))"
.Value = .Value
End With
General - Declarations
Merhaba, Makro bilgim bulunmuyor. Aşağıdaki formülü makro olarak nasıl yazabilirim. Onun üzerinden geliştireceğim. Şimdiden teşekkür ederim.
=TOPLA.ÇARPIM((Stok!$B$2:$B$4958=A95)*(Stok!$K$2:$K$4958))
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.