Excel VBA ile Stok Takip Programı - 3 Ders
ฝัง
- เผยแพร่เมื่อ 8 ก.พ. 2025
- bit.ly/2ZGHJhI
Excel VBA ile STOK TAKİP PROGRAMI yazıyoruz.
Birkaç dersten oluşan bir seri olacaktır.
Birebir aynısını yazarak takip etmenizi tavsiye ediyorum.
Hepinize başarılar dilerim.
Program hakkındaki görüş ve önerilerinizi yorum sayfasına yazmanızı bekliyorum.
www.bstkanali.com
-----------------ETİKETLER --------------------
#yapayzeka
#makineöğrenmesi
#dünyayıdeğiştirecekteknolojiler
#python #pythonprogramming #learnpython #creategui #gui #graphicuserinterface #pythontutorial #programming #createapp #createpythonapp #interface #designinterface
#python #pythonprogramming #learnpython #creategui #gui #graphicuserinterface #pythontutorial #programming #createapp #createpythonapp #interface #designinterface
#Excel #vba #program #Eğitim #programlama #bilişim #programing #enginiring #excel #vba
#Muhasebe #Programı #excel #macro #eğitimi #excel #macro #learn #üretim #Stoktakipprogrmı #TH-camparakazanma #youtubekanalınasılaçılır #youtubevideoindirme #youtubekanalımkapatıldı
#youtubetürkiye #youtubemp3dönüştürücü #videodüzenleyici #abonekasma
#oyun #gaming #eğlence #challenge #komedi #şaka #şarkı #vlog #montaj #tepki #c#learning
#python #promotion #javalearning #excelvba #excellearn #javalearning #microsoftoffice
#game #facebook #instagram #tiktok
"Stok giriş" formunda ürün stoklardan seçildiğinden dolayi yeni id stok kodu yaratamaz mevcut olan ürünün stok kodunu göstermesi lazim
Hocam sizin sayenizde ben de 1 yıla yakın süredir kodlama yapıyorum sizin videolarınızı izleyerek geliştirdim kendimi Duam sizinle çok teşekkür ederim herşey için
Başarılarının devamını diliyorum
Geçmiş Olsun Hocam Hoş Geldiniz
Emeğine sağlık teşekkür ederim .
Stok takibin 2 ve 1 egitim videoları gözükmüyor hocam
3.Ders Tamamdır Hocam :)
Saygılarımla...
3.Ders tamam dir hocam
iyi gunler hocam tesekkurler paylasimlariniz icin. hocam stok kodunu combo box yapip kodu secince, geri kalan kisimlari otomatik getirmek istiyorum. buna nasil yapabilirim. yardimci olursaniz sevinirim. tesekkurler.
Emeğinize sağlık hocam Allah razı olsun çok geçmiş olsun. Ders 3 de bitti sayenizde.
Merhaba Hocam Sizin derslerinizi ilgi ile izliyorum. Ayrıca Sunumunuzdaki samimi üslubu her daim takdir ediyorum.
Hocam Stok konusunda az buçuk bilgi sahibi olmam münasebeti ile naçizane bir kaç öneride bulunmak isterim.
Anasayfa içindeki Stok Tanımlama Butonu içine Malzeme tanımlamanın yanı sıra eldeki stok miktarını da girmeyi tercih ettiniz ancak bu butonla sadece Malzeme Rehberini yani Listesini oluştursak, girişi veya çıkışı diğer buton altından gerçekleştirsek sanki daha mantıklı olacak
Ayrıca Malzeme Girişi Butonu altına da Malzemenin Giriş Türü aynı şekilde Çıkışa da Çıkış türü eklenmesi sanki daha iyi olacaktır. (Tüketim, Satış, Üretim, Zayi, Değişim, Emanet vb.)
(Not: Stok Tanımlarken elde bulunan stok verisini Stok girişi menüsüne taşırken İşlem türü Açılış Stok girişi, Envanter Girişi vb. yazılabilir. )
Ellerinize sağlık, kolay gelsin.
saygılarımı sunarım.
En basit haliyle yazıyorum. Sizlerin üzerine koyarak kendinize göre geliştirmeniz lazım
Stok tanımlama da stok kodu üretiyorsunuz doğrudur, stok giriş te ise stok adını seçtiğinizde ürettiğiniz stok kodu, adına bağlı gelmesi lazım değilmi😊 saygılarımla. Emeğinize sağlık.
Hocam memleket neresi, hangi köyden? Belki aynı köyden çıkarız...
Hocam öncelikle çok faydalı paylaşımlarınız, emeğiniz için teşekkürler.
Ayrıca bir sorum olacaktı. Stok ürün adı yüzlerce olduğu zaman stok girişi ve çıkışı için combobox tan yüzlerce ürün arasından istenilen stok adını seçmek zor olacak bunu nasıl çözebiliriz.
Bir tane boş textbox aç kardeşim oraya filtreleme kodları var onunla araıdıgın ürünü seçebilirsin
Hocam bu değerli bilgiler için çok teşekkür ederim, çok değerlisiniz. Hepsini yaptım ancak girenlerin toplamı bir türlü işlemiyor. Yardımcı olabilir misiniz ?
Formlarda fontlar neden türkçe karakteri desteklemiyor? Form ismi yazıyorum mesela STOK GİRİŞ FORMU gibi türkçe karakterler form başlığında görünmüyor.
girenlerin toplamı işlemiyor ? nasıl çözebilirim
Hocam stok tanımlama yapınca stok sayfasında stok mevcudu dogru gosterıyr ama yenı stok girişi yaptigim zaman stoklardakı stok mevcudu yanlıs diye gösterıyr eski stokla yenı gırısı toplayamıyr sanrm bıyerde Bı hata yaptım ama bulamadm nerden olabilir acaba ☺️
Hocam ön muhasebe programı 20. Ders olacak mı yoksa sonlandırdık mı
Hocam Stok girişini kaydederken şu hatayı alıyorum "sg.Range("E2").Value = txtmevcut.Value" sebebi nedir?
Hocam elinize sağlık çok yararlı oldu videolar memleket nere bu arada hocam :)
HOCAM ÖNCELİKLE EMEGİNİZE SAĞLIK BENİM İÇİN FAYDALI BİR EĞİTİM OLUYOR. BENDE SOYLE BİR SIKINTI OLDU. stok.Range("D" & x).Value = Application.WorksheetFunction.SumIfs(G.Range("E:E"), G.Range("B:B"), Trim(stok.Range("B" & x).Value)) STOK TANIMLAMA YAPGIM ZAMAN STOKLARDA MİKTARI GÖRÜNÜYOR STOK GİRİS YAPTIGIM ZAMAN GİRİŞTE GÖRÜNÜYOR STOKLARDA STOK ADI NORMAL GİREN VE MEVCUT 0 OLUYOR
bunu çözdünüz mü ?
stok.Range("F"&x).Value =Application.WorksheetFunction.SumIfs(giris.Range("G:G"),stok.Range("A"&x).Value ,giris.Range("A:A") burda hata veriyor hocam
en sona bir ) daha eklemeniz lazım
@@BstYazilim çok teşşekür ederim hocam
Hocam elinize ,dilinize sağlık.Ben de bu satırda hata veriyor."stok.Range("D" & x).Value = Application.WorksheetFunction.SumIfs(giris.Range("E:E"), giris.Range("B:B").Value, Trim(stok.Range("B" & x).Value))
" neden acaba ?Bulamadım..
"stok.Range("D" & x).Value = Application.WorksheetFunction.SumIfs(giris.Range("E:E"), giris.Range("B:B"), Trim(stok.Range("B" & x).Value)) olarak yazın
@@BstYazilim Teşekkür ederim,düzeldi.İnsan bazen baktığını görmüyor.
@@BstYazilim stok.Range("D" & x).Value = Application.WorksheetFunction.SumIf(giris.Range("E:E"), giris.Range("B:B"), Trim(stok.Range("B" & x).Value)) merhaba hocam hata veriyor bu sekilde videonun son pause kismindan sonra oldu düzeltemedim bir türlü..yardimci olabilirmisiniz ?
Bize bir mail adresi verebilir misiniz??? Lütfen hocam çok acil
bstkanali@gmail.com
Hocam emeğinize sağlık bir sorum olucak bende Set giris = Sheets(“Giris”) kısmı hata veriyor ne yapmalıyım?
Dim giris as worksheet tanımlaması yaptınız mı
Ayrıca Giris isimli bir sayfanız var mı?
Kontrol ederseniz büyük ihtimalle sorun çözülür
hocam sağolun giris degil giren yapmışım düzeldi suan teşekkürler
Hocam yanlış anlamayın ancak sizi esefle kınıyorum...
Hocam elinize sağlık bunu mail olarak atmanız mümkünmüdür teşekkürler. (umitcivan06@gmail.com)
Dosya size geldi mi acaba?
stok.Range("G" & x).Value = Application.WorksheetFunction.SumIf(giris.Range("G:G"), stok.Range("A" & x).Value, giris.Range("A:A"))
stok.Range("I" & x).Value = stok.Range("G" & x).Value - stok.Range("H" & x).Value hocam bunu dediğniz şekilde yazdım ama girişe ekliye stoklarada ekliyo ancak stoklardaki miktarları sıfırlıyor neden
Sub stok_topla()
Dim x As Long
Dim stok As Worksheet ' Stoklar sayfası
Dim ss As Long ' Stoklar sayfasındaki satır sayısı için
Dim giris As Worksheet ' StokGiris sayfası
Dim gg As Long ' StokGiris sayfasındaki satır sayısı için
Set stok = Sheets("Stoklar")
ss = stok.Cells(Rows.Count, 1).End(xlUp).Row ' Kaç tane stok satırı olduğunu buluyoruz.
Set giris = Sheets("StokGiris")
gg = giris.Cells(Rows.Count, 1).End(xlUp).Row ' Kaç tane stok satırı olduğunu buluyoruz.
' StokGiris sayfasındaki her satır için
For x = 2 To ss
' Ürün adını ve giren stoku al
Dim urun_ad As String
Dim giren_stok As Double
urun_ad = giris.Cells(x, 2).Value
giren_stok = giris.Cells(x, 5).Value
' Stoklar sayfasındaki ilgili ürünü bul
Dim urun_satir As Range
Set urun_satir = stok.Range("B:B").Find(urun_ad, , xlValues, xlWhole)
Dim kalanStok As Double
If Not urun_satir Is Nothing Then
' Urun satırı bulundu, değerleri güncelle
urun_satir.Offset(0, 3).Value = urun_satir.Offset(0, 3).Value + giren_stok
' kalan stok Başlangıç değerini al
kalanStok = urun_satir.Offset(0, 5).Value
' Güncel değeri hesapla
kalanStok = kalanStok + giren_stok
' Değeri güncelle
urun_satir.Offset(0, 5).Value = kalanStok
Else
' Urun satırı bulunamadı, hata mesajı göster
MsgBox "Ürün bulunamadı!", vbExclamation
End If
Next
' Ram'den dolayı sheets'leri boşaltıyoruz.
Set stok = Nothing
Set giris = Nothing
End Sub
bu şekilde düzeltebildim belki yardımcı olur :)