...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
...verdiğiniz listeyi özümsemem için çok ayrı bir zaman vermem gerekecek , çözüm olarak sql bulsam ve o da access gerektirse de istediğiniz bu olmayacaktır , ancak ; detaylı stok satış programı alanında benden daha iyi ve hızlı anlayacak uzman bilgisi sahibi olan arkadaşlarım daha yardımcı olabilir.
merhaba
üstatlar ben kendi ufak bir stok takip programı yaptım ve bir yere kadar getirdim. ama bir yerde baya bir takıldım bu konu hakkında yardımlarınızı bekliyorum
Frm_SatisFaturaListesi listesinde bir evrakın üstünde DblClick yaptığımda o evrak açılıyor tüm bilgiler geliyor ve altta kaydet...
...de çalışan kodla olabilecek bir şey herhalde
Kod 2
Sub tarıhdegıstır()
Set S1 = Sheets("ÜRÜNLER")
Son = Cells(Rows.Count, "A").End(3).Row 'STOK KODU
With S1.Range("I16:I" & Son) 'GİREN
.Formula = "=IF(RC[1]<>0,NOW())"
End With
End Sub
Kod 1
Dim GH As Variant, GT As Date
Function...
...Ham malzeme çap+kalite+kullanılcak miktar yazıyor ilgili stunları fosforladım,
Ham malzeme sekmesinde ise aynı yada faklı ham malzemelerden stok miktarları var sizden ricam sipariş teslim tarihini dikkate alarak eldeki stok miktarı hangi siparişe kadar nekadar karşılıyor ve eğer olabilse...
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.