...genelde yaptığı hatalardan bir tanesi Raporlama ile Veri saklamayı aynı olarak hissetmeleri.
Cari Hesap Kartı başkadır
Cari İşlemler başkadır
Stok Kartı başkadır
Stok İşlemleri başkadır
Fatura İşlemleri başkadır ve tamamen ayrı tablolarda tutulması gerekir. Ki işlemler birbirine girmesin...
...olan olursa asagidaki gibidir. Kolay gelsin..
Private Sub Worksheet_Change(ByVal Target As Range)
Dim kullanilan_hucre As Range
Dim stok_hucre As Range
' Degisiklik yapilan hücrenin A sütununda olup olmadigini kontrol eder
If Not Intersect(Target, Me.Range("B:B")) Is Nothing...
...üzerine on bilgilendirmede orneklediğiniz basamakları multipage sayfalar oluşturmak ekranı tasarruflu kullanmayı saglayabilir.
MultiPage ile stok girişi, malzeme raporlaması ve üretim takibi gibi sayfalar oluşturabiliriz. Aşağıdaki adımlarla başlayalım:
MultiPage Oluştur:
UserForm üzerinde...
...gibi olmalı.
Private Sub UserForm_Initialize()
Dim firstDayOfYear As Date
firstDayOfYear = DateSerial(Year(Date), 1, 1)
TextBox11.Value = Format(firstDayOfYear, "dd.mm.yyyy")
TextBox10.Value = "STOK"
End Sub
Private Sub UserForm_Activate()
Me.TextBox1.SetFocus
End Sub
örnek dosya
bu şekilde de olmadı, orijinal hali ile yükledim. Bakabilirseniz iyi olur. zira üç forma geçiş yapıyorum. ürün giriş ve ürün çıkış da aktif olmuyor, aynı form üzerinde stok kart açış formunda aktif oluyor.
...başka bir sorun olmalı. Dosyayı paylaşırsanız kontrol edelim.
Private Sub UserForm_Initialize()
Dim firstDayOfYear As Date
firstDayOfYear = DateSerial(Year(Date), 1, 1)
TextBox11.Value = Format(firstDayOfYear, "dd.mm.yyyy")
TextBox10.Value = "STOK"
TextBox1.SetFocus
End Sub
...1)
' TextBox11'de yılın ilk günü tarihini gösterelim
TextBox11.value = Format(firstDayOfYear, "dd.mm.yyyy")
TextBox10.value = "STOK"
Me.TextBox1.SetFocus
End Sub
Private Sub UserForm_Activate()
Me.TextBox1.SetFocus
End Sub
Private Sub TextBox1_Change()
Dim...
...Sayfa2'de en sola bir boş sütun ekleyiniz.
B ve C sütunlarını bu boş sütunda aşağıdaki formülle birleştiriniz ve bu formülü alta doğru ihtiyacınız kadar çoğaltınız.
=B2&C2
Sonrasında önerdiğim formül yerine aşağıdaki formülü deneyebilirsiniz..
=EĞERHATA(DÜŞEYARA(A2&B2;Sayfa2!A:D;4;0);"STOK...
Hocam önemli bir detayı yazmamışım.Sayfa2 deki veriler 6.000 satır civarında.Formül çalışıyor bir problem yok fakat bekleme süresi uzun sürüyor.Müsait bir zamanınızda formülü daha hızlı çalışacak şekilde revize edebilirseniz çok sevinirim veya daha hızlı olacaksa makro kodu da olabilir.Her şey...
Merhaba
Yapmak istediğim,Sayfa1 in A ve B sutununa yazdığım değerler,Sayfa2 nin A ve B sutunundaki değerler ile aynıysa Sayfa1 in C sutununa,Sayfa2 nin C sutununda yazan değeri formül ile getirebilmek.Eğer veriler aynı değilse STOK YOK yazılacak.
Yardımlarınız için şimdiden teşekkürler.
üstad öncelikle teşekkür ederim ben günlük masraflarıda yazıp rapor çıkarmakta istiyorum tek kalemde albeni kaç tane alınmış kaç tane satılmış bir nevi stok ve kasa gibi
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.