Allah razı olsun. Emeğinize sağlık. Hocam dersleriniz anlaşılır ve çok faydalı. Devamlı talip ediyorum. Yapmak istediğim uygulamalarda çok faydasını görüyorum. Sigorta acenteleri içinde küçük bir çalışma yaparsanız sevinirim. Derslerinizin devamını sabırsızlıkla bekliyorum.
Hocam elinize sağlık. Sayenizde bir şeyler öğrenmeye çalıştım. Sepeti temizlemeden önce sepet detaydaki satılan ürünleri yeni bir sheets açıp oraya atıp kalması içi hangi kodlamaya ihtiyacımız var. yeni bir button üzerinden direk sheets e kopyalamasını sağlamamız için..
Tesekkurler.Bir problem var kusuratli toplam olunca debug oluyor. double ilede tanitdim yine ayni hata.sonraki dersde ne yapacagmzi anlatrsanz memnun olaram.ugurlar
Merhaba güzel ve detaylı anlatım için teşekkürler programı yaptım oldu fakat alış fiyatına 1,25 tl veya 1,75 tl girdiğimde toplam tutar 10 katı oluyor tam sayılarda sorun yok yardımcı olabilir misiniz herşey için teşekkürler
selam hocam hızlı satış programını eksik kalan kısmını tamamlamadınız. Tanıtım videosunda günsonu vb. konularıda ekleyeceğinizden bahsetmiştiniz ne zaman yapacaksınız viedonuzu merakla bekliyorum. size anlık ulaşma imkanımız varmı?
Hocam; Selam satış yaptıktan sonra sepet içindeki "F" sütunundaki tutarlar kodları siliyor bende barkod okutucu yok manuel elle sepete ekliyorum ürün satış yaptığımda siliniyor sebebi nedir? yardımcı olurmusunuz. Teşekkürler....
Hocam hayırlı ramazanlar, Bu projeyi yapıp bir şeyler öğrenmeye çalıştım. Mesela sepete eklerken 1,5 tl ürün yazdığımda sepete eklediğimde toplam tutara bu ücretler eklenmiyor. Tam sayılar mesela 2 yazdığımda ekleniyor ama virgüllü tutarlarları toplama yansıtamıyorum. Ne yapmak lazım?
Hocam merhabalar emeğinize sağlık hızlı satış programı için bir isteğim olacak . Bir ürüne birden fazla barkod no atamak istiyorum böyle birşey mümkünmüdür? Benim ürün portföyümde örneğin ; SİLİKON 280 ML diye bir ürünüm var fakat bu ürünün 10 dan fazla markası var fiyatları aynı barkodları farklı . Bu yüzden sanırım genel bir ihtiyaç olabilir .Dükkanımda logo kullanıyorum onda bunu yapabiliyorum . Saygılar..
Hocam 🥰 cidden bu güzel oldu süpersiniz tebrik ediyorum hocam ürün stok sayısı ve satıldıkca ürünleri eksiltme kasiyer giriş gün sonu 2 tarih arası ciro stok cesiti mesala temel gıda giyecek muhtelif gıda gibi hocam müsait bi zamanınıda yaparsanız cok makbule gecer 😊🥰🙋sevgiler saygılar hocam
Dim stk As Label Dim x As Long Dim i As Long For x = 2 To 120000 For i = 2 To 120000
If Sheets("SEPET").Range("A" & x).Value "" Then GoTo stk If Sheets("SEPET").Range("A" & x).Value = "" Then Exit For
stk: If Sheets("STOK").Range("A" & i).Value = Sheets("SEPET").Range("A" & x).Value Then Sheets("STOK").Range("G" & i) = Sheets("STOK").Range("G" & i) - Sheets("SEPET").Range("F" & x) Sheets("SEPET").Range("A" & x).Value = "" End If
Next i Next x
3 года назад
@@esareddiyetanrlar7733 Selam üstadım. Bu kodları neyin içerisine yazmam gerektiğini söyleyebilirmisin acaba? Ben hiç kod yazması bilmiyorum kusuruma bakma. Teşekkürler.
Yaptığınız ile ilgili bir problem var mesela nakit ve kredi kartı tahsilatı yaptıktan sonra 3. Satırdan sonra kredi kartı ve nakit toplamı yapmıyor onunla ilgili bir kod gönderseniz rica etsem
Hocam elinize saglık benim bi sorum olacak herşeyi yaptım ama 0.50 krş u 5 tl olarak gösteriyor mesela 1.25 tl yi 125 tl olarak gösteriyor ciroya nasıl düzeltirim
merhaba küsüratlı sayı girdiğimizde virgülü algılamıyor ve sonuçlar 10 katı çıkıyor birim fiyatı 1,8 olunca 1 adet ürün için toplam fiyat 18 tl çıkıyor bunun çözümü nedir
@@BstYazilim hocam saygım sonsuz ancak bütün programları yarım bırakıyorsunuz bu şekilde takipçiler tek tek gidiyor bir anlamı kalmıyor yarım kaldıktan sonra youtube'da bu şekilde teksiniz ancak yarım bıraktığınızda sıkıntılar çıkıyor
Hocam ondalıklı sayıları metin olarak algıladığı için toplama dahil etmiyor ve bunu excel içerisinde hücre biçimlendirme vs. ile çözemiyoruz. bir kaç formül buldum ama uygulama kısmında bilgim yetersiz. örn. if sheets("SEPET").range("F2").value=cdbl(textbox1.text) gibi. bu konuda bilgi verirseniz sevinirim. çok teşekkür ederim.
@@BstYazilim Hocam ya kodları yanlış yere giriyorum ya da bir şeyleri eksik yapıyorum. Program bu haliyle çok işime yarayacak eğer şu problemi çözersek. Stok sayfasından sepet e ondalıklı sayıları metin olarak aktarıyor, sadece ondalıklı sayıları, diğerlerinde problem olmuyor.
@@BstYazilim hocam emeğinize sağlık.Fakat bu programı sizin sayenizde kodladık.Hazır halde.Biz kitap sektöründeyiz ve barkodlu şekilde calısıyoruz.Herşey hazır ama sadece sepetten silme konusuna gelmediğiniz için orayı yapamadık.Sizleri takipteyiz.
SELAMIN ALEYKÜM ABİCİM PROGRAMI YAPTIM ÇOK GÜZEL OLDU EMEĞİNE SAĞLIK AMA SIKINTI BÜYÜK EN SON YAPTIĞIM PROGRAM AÇILINCA SAYFA KAPANIYOR YA ONUN KODUNU YANLIŞ GİRİDİM ŞİMDİ DE PROGRAM AÇILIĞ HEMEN KAPANIYOR LÜTFEN YARDIM EDER MİSİN??? KOLAY GELSİN ABİCİM
@@esareddiyetanrlar7733 Out of Memory Hatası veriyor
3 года назад
Selamlar ve çok teşekkürler hocam. Hiç kodlama bilgisine sahip değilim fakat, anlatımınız sayesinde; Private Sub TxtNakit_Change() If TxtNakit.Value "" Then TxtParaustu.Value = TxtNakit.Value - TxtToplam.Value End If End Sub bu işleme kadar sorunsuz geldim. fakat burada TxtParaustu.Value = TxtNakit.Value - TxtToplam.Value işlemi hata veriyor. Ve bir türlü sorunu çözemedim. Yardımcı olabilirmisiniz?
dim tpl as double dim pustu as double dim nakit as double tpl=cdbl(txttoplam) nakit=cdbl(txtnakit) pustu=tpl-nakit txtparaustu=formatcurrency(cdbl(pustu)
3 года назад
Teşekkür ederim hocam. Akşama deneyeceğim. İlgilendiğin ve dönüş yaptığın için çok sağol.
3 года назад
@@BstYazilim Selamlar hocam. Ben sorunumu " Value değerlerini Text olarak değiştirerek çözdüm. Yani örnek olarak; txtBarkod. Value yerine, txtBarkod.Text olarak değiştirdim. Ve az önce programı tamamladım ve şu an hatasız çalışıyor. Daha önce de videolar izleyerek denemeler yapmıştım fakat hiç biri sonuca ulaşmamıştı. Sizin sade anlatımınız sayesinde ilk defa çalışan bir kod yazabildim. Çok teşekkür ederim size. Ve sormak istediğim, aylık ciro ve gün sonu gibi programı geliştirebileceğimiz yeni videolar çekecekmisiniz?
3 года назад
Tekrar selamlar hocam. Programı tamamladım ve size mail olarak gönderdim. Kontrol eder ve yardımcı olabilirseniz çok memnun olurum. Saygılar hocam.
stoktan düşmek için kod en son satış butonuna formu temizletmeden önce yağıştırınız . benim stok adet g stununda sepet adet f stununda kendinize göre ayarlayın Dim stk As Label Dim x As Long Dim i As Long For x = 2 To 120000 For i = 2 To 120000 If Sheets("SEPET").Range("A" & x).Value "" Then GoTo stk If Sheets("SEPET").Range("A" & x).Value = "" Then Exit For stk: If Sheets("STOK").Range("A" & i).Value = Sheets("SEPET").Range("A" & x).Value Then Sheets("STOK").Range("G" & i) = Sheets("STOK").Range("G" & i) - Sheets("SEPET").Range("F" & x) Sheets("SEPET").Range("A" & x).Value = "" End If Next i Next x
Merhaba hocam elinize emeğinize sağlık bende daha önce bir kaç Excel çalışması yaptım ama sizin anlatımınız ve makro ile yapmaniz harika ellerinize sağlık lakin hocam şimdi ben kaç gündür ugrasiyrum ama bazı yerlerde hata veriyor beynim yandi eğer bana gönderebilirseniz benzeri üzerimde kıyaslama yapip kendimi geliştirme ye çalışacam şimdiden çok teşekkür ederim 😇 attuni_2012@hotmail.com
hocam kolay gelsin delizliden selamlar bu programda coundif kodunu nasıl yazmamız lazım yani aynı üründen satıldığı zaman alt alta değilde adet ve ve tutarının artmasını nasıl yapabiliriz yardım ederseniz çok ama çok memnun olurum alisemraakhan@gmail.com
Hocam merhaba sayenizde projem son aşamaya geldi ancak son aşamada istediğimi bir türlü yapamadım, bu hızlı satış programını barkod okuttuğumda stoktan bir düşecek şekilde ayarlamak istiyorum. "Private Sub txtMiktar_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 And IsNumeric(txtMiktar.Text) Or IsNumeric(txtMiktar.Text) < 10000 Then txtTutar.Value = txtMiktar.Value * txtFiyat.Value for i = txtYeniStok.Value - txtMiktar.Value to 0 Step -1 Next i SEPETE_EKLE End If End Sub" diyerek kalıcı bir şekilde barkodu her okuttuğumda ilgili ürünün stoğundan 1 adet düşsün ve ekranıma bastırsın istiyorum, ben elimdeki ürün bitmeye yaklaştığında ise sizin yanıp sönen hücre programınızla ilgili hücreden kendimizi uyarmak istiyorum. Yardımınıza çok ihtiyacım var. Çok sağolun.
Hocam merhaba barkoda bağlı stok programımın son adımını halletmek üzere kodlarımı aşağıdaki gibi aynen sizin derste anlattığınız gibi yeniden ayarladım object variable or with block variable not set gibi hatalar alıyorum, bir türlü son aşamayı tamamlamak kısmet olmadı, rica etsem sizin mailinize programımı atsam programımı çalıştırmanız ve hatalarımı öğretmeniz mümkün müdür? Ben bir türlü çalıştıramadım, sizin sihirli dokunuşlarınıza ihtiyacı var programımın, ilginize çok teşekkür ediyorum. Sub STOK_AZALT() Dim x As Long Dim sttok As Worksheet Dim seppet As Worksheet 'stok satır sayısı Dim ss As Worksheet Dim gg As Long 'sepet satır sayısı Set sttok = Sheets("STOK") ss = sttok.Range("A10000").End(xlUp).Row Set seppet = Sheets("SEPET") gg = seppet.Range("A10000").End(xlUp).Row For x = 2 To ss sttok.Range("I" & x).Value = Application.WorksheetFunction.SumIfs(seppet.Range("C:C"), stok.Range("A" & x).Value, seppet.Range("A:A")) sttok.Range("G" & x).Value = sttok.Range("H" & x).Value - sttok.Range("I" & x).Value Next Set sttok = Nothing Set seppet = Nothing
Hocam merhaba barkoda bağlı stok takip programımdaki Debugları halen aşamadım, VBA yolu bol Debug lu bir yol oldu benim için :) Hocam programı çalıştırdığımda Kalın ve italik yazdığım yerde Obje tanımlanmadı 1004 hatası alıyorum, nerede hata yapıyorum acaba, saygılar Private Sub txtMiktar_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 And IsNumeric(txtMiktar.Text) Or IsNumeric(txtMiktar.Text) < 10000 Then txtTutar.Value = txtMiktar.Value * txtFiyat.Value For b = 10000 To 2 If Sheets("SEPET").Range("A" & x).Value = Sheets("STOK").Range("A" & x).Value Then For i = 10 To 5 Step -1 Sheets("STOK").Range("G" & i) = Range("H" & i) - 1 Next i End If Next b
Öncelikle şunu söylim Teksiniz tek kelime ile Hocam elinize dilinize sağlık devamı gelecek demiştiniz . merakla bekliyoruz takipçilerin olarak.
Allah razı olsun. Emeğinize sağlık.
Hocam dersleriniz anlaşılır ve çok faydalı. Devamlı talip ediyorum.
Yapmak istediğim uygulamalarda çok faydasını görüyorum.
Sigorta acenteleri içinde küçük bir çalışma yaparsanız sevinirim.
Derslerinizin devamını sabırsızlıkla bekliyorum.
Devamını bekliyoruz hocammmm
HOCAM ELİNİZE SAĞLIK FAKAT BUNUN SON DERSİNİ 4. PART BULAMADIM SİLDİNİZ Mİ ACABA ??
Hocam 37:59 excelde CİRO daki "K" yada "N" yazdırmak yerine doğrudan tutarları yazdırın yeterlidir. Formüle yada fazladan koda gerek yok kanımca.
btnKart kliğine
Sheets("CIRO").Range("A" & x).Value = Date
Sheets("CIRO").Range("D" & x).Value = txtToplam.Value
'Sheets("CIRO").Range("D" & x).Value = "K"
Elinize emeğinize sağlık hocam. bir sonraki ders videosu gelecek mi, gelirse ne zaman gelir?
Harbiden gelsin yenisi ben bunu markette kullanırım
Valla hocam çok güzel bir program devamını getirseniz keşke eğer getirirseniz bir kaç eklenti var aklımda onları da yaparsanız tadından yenmez
Hocam elinize sağlık. Sayenizde bir şeyler öğrenmeye çalıştım.
Sepeti temizlemeden önce sepet detaydaki satılan ürünleri yeni bir sheets açıp oraya atıp kalması içi hangi kodlamaya ihtiyacımız var. yeni bir button üzerinden direk sheets e kopyalamasını sağlamamız için..
Hocam cok tşk ederiz diğe bölüm gelecekmi merakla bekliyoruz 😊😊
Hocam öncelikle emeğinize sağlık. Video da devamı gelecek demişsiniz. Diğer arkadaşlar da aynı dertten mustarip. Devamı gelecek mi acaba ?
daha gelişmişine başladık. Son yüklenen derslere bakabilirsiniz
Tesekkurler.Bir problem var kusuratli toplam olunca debug oluyor. double ilede tanitdim yine ayni hata.sonraki dersde ne yapacagmzi anlatrsanz memnun olaram.ugurlar
Videonun devamı ne zaman gelecek 🌸
Merhaba güzel ve detaylı anlatım için teşekkürler programı yaptım oldu fakat alış fiyatına 1,25 tl veya 1,75 tl girdiğimde toplam tutar 10 katı oluyor tam sayılarda sorun yok yardımcı olabilir misiniz herşey için teşekkürler
hocam sepetten ürün silme satır silme çok acil azım lütfen yardımcı olurmusunuz
Aynen. Bana da fazlası ile gerekiyor.
Hocam programın devamı gelecek mi program diğerleri gibi yarım kaldı
selam hocam hızlı satış programını eksik kalan kısmını tamamlamadınız. Tanıtım videosunda günsonu vb. konularıda ekleyeceğinizden bahsetmiştiniz ne zaman yapacaksınız viedonuzu merakla bekliyorum. size anlık ulaşma imkanımız varmı?
Hocam; Selam satış yaptıktan sonra sepet içindeki "F" sütunundaki tutarlar kodları siliyor bende barkod okutucu yok manuel elle sepete ekliyorum ürün satış yaptığımda siliniyor sebebi nedir? yardımcı olurmusunuz. Teşekkürler....
Hocam hayırlı ramazanlar, Bu projeyi yapıp bir şeyler öğrenmeye çalıştım. Mesela sepete eklerken 1,5 tl ürün yazdığımda sepete eklediğimde toplam tutara bu ücretler eklenmiyor. Tam sayılar mesela 2 yazdığımda ekleniyor ama virgüllü tutarlarları toplama yansıtamıyorum. Ne yapmak lazım?
Hocam merhabalar emeğinize sağlık hızlı satış programı için bir isteğim olacak . Bir ürüne birden fazla barkod no atamak istiyorum böyle birşey mümkünmüdür? Benim ürün portföyümde örneğin ; SİLİKON 280 ML diye bir ürünüm var fakat bu ürünün 10 dan fazla markası var fiyatları aynı barkodları farklı . Bu yüzden sanırım genel bir ihtiyaç olabilir .Dükkanımda logo kullanıyorum onda bunu yapabiliyorum . Saygılar..
Hocam iskonto yapmak istersek nasıl bir yol izleyebiliriz. Teşekkürler
Hocam 🥰 cidden bu güzel oldu süpersiniz tebrik ediyorum hocam ürün stok sayısı ve satıldıkca ürünleri eksiltme kasiyer giriş gün sonu 2 tarih arası ciro stok cesiti mesala temel gıda giyecek muhtelif gıda gibi hocam müsait bi zamanınıda yaparsanız cok makbule gecer 😊🥰🙋sevgiler saygılar hocam
Dim stk As Label
Dim x As Long
Dim i As Long
For x = 2 To 120000
For i = 2 To 120000
If Sheets("SEPET").Range("A" & x).Value "" Then GoTo stk
If Sheets("SEPET").Range("A" & x).Value = "" Then Exit For
stk:
If Sheets("STOK").Range("A" & i).Value = Sheets("SEPET").Range("A" & x).Value Then
Sheets("STOK").Range("G" & i) = Sheets("STOK").Range("G" & i) - Sheets("SEPET").Range("F" & x)
Sheets("SEPET").Range("A" & x).Value = ""
End If
Next i
Next x
@@esareddiyetanrlar7733 Selam üstadım. Bu kodları neyin içerisine yazmam gerektiğini söyleyebilirmisin acaba? Ben hiç kod yazması bilmiyorum kusuruma bakma. Teşekkürler.
HOCAM ÖNCELİKLE ELİNİZE EMEĞİNİZE SAĞLIK. BUNA BAŞLADIM EKLİYORUM FAKAT STOK TAKİBİ NASIL EKLERİZ BUNA ? YANİ SATTIĞIM ÜRÜNÜ STOKTAN DÜŞÜREBİLİRMİYİM
Dim stk As Label
Dim x As Long
Dim i As Long
For x = 2 To 120000
For i = 2 To 120000
If Sheets("SEPET").Range("A" & x).Value "" Then GoTo stk
If Sheets("SEPET").Range("A" & x).Value = "" Then Exit For
stk:
If Sheets("STOK").Range("A" & i).Value = Sheets("SEPET").Range("A" & x).Value Then
Sheets("STOK").Range("G" & i) = Sheets("STOK").Range("G" & i) - Sheets("SEPET").Range("F" & x)
Sheets("SEPET").Range("A" & x).Value = ""
End If
Next i
Next x
Mrb.
Excel Hızlı Satış 4. Bölümü bulamıyorum lütfen yardımcı olmanız mümkün mü?
Yaptığınız ile ilgili bir problem var mesela nakit ve kredi kartı tahsilatı yaptıktan sonra 3. Satırdan sonra kredi kartı ve nakit toplamı yapmıyor onunla ilgili bir kod gönderseniz rica etsem
Hocam elinize dilinize emeğnize sağlık. Emre Bey'in dediği gib 3. satırdan sonra toplamı atmıyor yardımcı olursanız seviniriz.
Hocam elinize saglık benim bi sorum olacak herşeyi yaptım ama 0.50 krş u 5 tl olarak gösteriyor mesela 1.25 tl yi 125 tl olarak gösteriyor ciroya nasıl düzeltirim
merhaba küsüratlı sayı girdiğimizde virgülü algılamıyor ve sonuçlar 10 katı çıkıyor birim fiyatı 1,8 olunca 1 adet ürün için toplam fiyat 18 tl çıkıyor bunun çözümü nedir
Hocam bir sonraki dersi bulamadım en son ders 3 var
Hocam bu hızlı satış derslerinin devamını yapacakmısınız yarım kaldık.... hadi bi el atın lütfen
Merhaba Mustafa Bey. Maalesef devamı yok. Bu aralar biraz yoğunluk var. İlerde fırsatım olursa devam ettirebilirim. Başarılar dilerim
Abi nolursun devami gelsin
@@BstYazilim hocam saygım sonsuz ancak bütün programları yarım bırakıyorsunuz bu şekilde takipçiler tek tek gidiyor bir anlamı kalmıyor yarım kaldıktan sonra youtube'da bu şekilde teksiniz ancak yarım bıraktığınızda sıkıntılar çıkıyor
merhaba hocam eline sağlık fakat satış yap dediğinde satış toplamını baz alsın tekrar rakam girmene gerek kalmasın birde veresi satış kısmı olsun
Hocam ondalıklı sayıları metin olarak algıladığı için toplama dahil etmiyor ve bunu excel içerisinde hücre biçimlendirme vs. ile çözemiyoruz. bir kaç formül buldum ama uygulama kısmında bilgim yetersiz.
örn. if sheets("SEPET").range("F2").value=cdbl(textbox1.text)
gibi. bu konuda bilgi verirseniz sevinirim. çok teşekkür ederim.
dim fiyat as double
fiyat=cdbl(textbox1)
if cdbl(sheets("SEPET").range("F2"))=fiyat then
....
...
end if
@@BstYazilim Hocam ya kodları yanlış yere giriyorum ya da bir şeyleri eksik yapıyorum. Program bu haliyle çok işime yarayacak eğer şu problemi çözersek. Stok sayfasından sepet e ondalıklı sayıları metin olarak aktarıyor, sadece ondalıklı sayıları, diğerlerinde problem olmuyor.
mail adresinize atıyorum çalışmayı. Lütfen 2 dakikanıza ihtiyacım var.
HOCAM EN AZINDAN SEPETTEN ÜRÜN SİLME KONUSUNDAN KODLARI VERSENİZ
aynı konunun daha gelişmiş bir serisine başladık
son yayınladığım seriyi takip edebilirsiniz.
Başarılar
@@BstYazilim hocam emeğinize sağlık.Fakat bu programı sizin sayenizde kodladık.Hazır halde.Biz kitap sektöründeyiz ve barkodlu şekilde calısıyoruz.Herşey hazır ama sadece sepetten silme konusuna gelmediğiniz için orayı yapamadık.Sizleri takipteyiz.
Hatta keşke bu seriye devam edip stok ekleme ve çıkarma yapsanız harika olur
SELAMIN ALEYKÜM ABİCİM PROGRAMI YAPTIM ÇOK GÜZEL OLDU EMEĞİNE SAĞLIK AMA SIKINTI BÜYÜK EN SON YAPTIĞIM PROGRAM AÇILINCA SAYFA KAPANIYOR YA ONUN KODUNU YANLIŞ GİRİDİM ŞİMDİ DE PROGRAM AÇILIĞ HEMEN KAPANIYOR LÜTFEN YARDIM EDER MİSİN??? KOLAY GELSİN ABİCİM
Hocam, Satılan ürün stoktan nasıl azalacak??? Cevaplarsanız sevinirim. Çok teşekkür ediyorum.
Dim stk As Label
Dim x As Long
Dim i As Long
For x = 2 To 120000
For i = 2 To 120000
If Sheets("SEPET").Range("A" & x).Value "" Then GoTo stk
If Sheets("SEPET").Range("A" & x).Value = "" Then Exit For
stk:
If Sheets("STOK").Range("A" & i).Value = Sheets("SEPET").Range("A" & x).Value Then
Sheets("STOK").Range("G" & i) = Sheets("STOK").Range("G" & i) - Sheets("SEPET").Range("F" & x)
Sheets("SEPET").Range("A" & x).Value = ""
End If
Next i
Next x
@@esareddiyetanrlar7733 Out of Memory Hatası veriyor
Selamlar ve çok teşekkürler hocam. Hiç kodlama bilgisine sahip değilim fakat, anlatımınız sayesinde;
Private Sub TxtNakit_Change()
If TxtNakit.Value "" Then
TxtParaustu.Value = TxtNakit.Value - TxtToplam.Value
End If
End Sub
bu işleme kadar sorunsuz geldim. fakat burada
TxtParaustu.Value = TxtNakit.Value - TxtToplam.Value işlemi hata veriyor. Ve bir türlü sorunu çözemedim. Yardımcı olabilirmisiniz?
dim tpl as double
dim pustu as double
dim nakit as double
tpl=cdbl(txttoplam)
nakit=cdbl(txtnakit)
pustu=tpl-nakit
txtparaustu=formatcurrency(cdbl(pustu)
Teşekkür ederim hocam. Akşama deneyeceğim. İlgilendiğin ve dönüş yaptığın için çok sağol.
@@BstYazilim Selamlar hocam. Ben sorunumu " Value değerlerini Text olarak değiştirerek çözdüm. Yani örnek olarak; txtBarkod. Value yerine, txtBarkod.Text olarak değiştirdim. Ve az önce programı tamamladım ve şu an hatasız çalışıyor. Daha önce de videolar izleyerek denemeler yapmıştım fakat hiç biri sonuca ulaşmamıştı. Sizin sade anlatımınız sayesinde ilk defa çalışan bir kod yazabildim. Çok teşekkür ederim size. Ve sormak istediğim, aylık ciro ve gün sonu gibi programı geliştirebileceğimiz yeni videolar çekecekmisiniz?
Tekrar selamlar hocam. Programı tamamladım ve size mail olarak gönderdim. Kontrol eder ve yardımcı olabilirseniz çok memnun olurum. Saygılar hocam.
Hocam merhaba, lutfen kodları yollayabilirmisiniz ? eposta bbkdrm@gmail.com
stoktan düşmek için kod en son satış butonuna formu temizletmeden önce yağıştırınız . benim stok adet g stununda sepet adet f stununda kendinize göre ayarlayın
Dim stk As Label
Dim x As Long
Dim i As Long
For x = 2 To 120000
For i = 2 To 120000
If Sheets("SEPET").Range("A" & x).Value "" Then GoTo stk
If Sheets("SEPET").Range("A" & x).Value = "" Then Exit For
stk:
If Sheets("STOK").Range("A" & i).Value = Sheets("SEPET").Range("A" & x).Value Then
Sheets("STOK").Range("G" & i) = Sheets("STOK").Range("G" & i) - Sheets("SEPET").Range("F" & x)
Sheets("SEPET").Range("A" & x).Value = ""
End If
Next i
Next x
Din x As Long da hata alanlar x lerin tamamını c olarak değiştirebilir yada dim x as long kodunu silip deneyin
@@esareddiyetanrlar7733 Selamlar. Kod hata vermiyor fakat çalışmıyor da. Ne yapmalıyım?
hocam erensoyusuf13@gmail.com lütfen yollar mısınız???
Merhaba hocam elinize emeğinize sağlık bende daha önce bir kaç Excel çalışması yaptım ama sizin anlatımınız ve makro ile yapmaniz harika ellerinize sağlık lakin hocam şimdi ben kaç gündür ugrasiyrum ama bazı yerlerde hata veriyor beynim yandi eğer bana gönderebilirseniz benzeri üzerimde kıyaslama yapip kendimi geliştirme ye çalışacam şimdiden çok teşekkür ederim 😇 attuni_2012@hotmail.com
Hocam 6 saat ugrasdim ama hala hata aliyorum rica. Etsem mail atabilimisiniz. Programi emeginize saglik
ilkereryetis@hotmail.com
Selam aleykum hocam zahmet diyilse proqramın son durumunu bana yollarmısın yollarsanız bu qardaşa cox iylik yapmış olacaksınız ilyaszade@gmail.com
hocam kolay gelsin delizliden selamlar bu programda coundif kodunu nasıl yazmamız lazım yani aynı üründen satıldığı zaman alt alta değilde adet ve ve tutarının artmasını nasıl yapabiliriz yardım ederseniz çok ama çok memnun olurum alisemraakhan@gmail.com
Elinize , emeğinize sağlık. Rica etsem excell dosyasının son güncel halini atabilir misiniz ? canerserin14@gmail.com
hocam merhabalar..çok ihtiyacım var lütfen akifsalgn@gmail.com atabilir misiniz? çok teşekkürler..
Hocam merhaba sayenizde projem son aşamaya geldi ancak son aşamada istediğimi bir türlü yapamadım, bu hızlı satış programını barkod okuttuğumda stoktan bir düşecek şekilde ayarlamak istiyorum.
"Private Sub txtMiktar_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 And IsNumeric(txtMiktar.Text) Or IsNumeric(txtMiktar.Text) < 10000 Then
txtTutar.Value = txtMiktar.Value * txtFiyat.Value
for i = txtYeniStok.Value - txtMiktar.Value to 0 Step -1
Next i
SEPETE_EKLE
End If
End Sub"
diyerek kalıcı bir şekilde barkodu her okuttuğumda ilgili ürünün stoğundan 1 adet düşsün ve ekranıma bastırsın istiyorum, ben elimdeki ürün bitmeye yaklaştığında ise sizin yanıp sönen hücre programınızla ilgili hücreden kendimizi uyarmak istiyorum. Yardımınıza çok ihtiyacım var. Çok sağolun.
Hocam merhaba barkoda bağlı stok programımın son adımını halletmek üzere kodlarımı aşağıdaki gibi aynen sizin derste anlattığınız gibi yeniden ayarladım object variable or with block variable not set gibi hatalar alıyorum, bir türlü son aşamayı tamamlamak kısmet olmadı, rica etsem sizin mailinize programımı atsam programımı çalıştırmanız ve hatalarımı öğretmeniz mümkün müdür? Ben bir türlü çalıştıramadım, sizin sihirli dokunuşlarınıza ihtiyacı var programımın, ilginize çok teşekkür ediyorum.
Sub STOK_AZALT()
Dim x As Long
Dim sttok As Worksheet
Dim seppet As Worksheet 'stok satır sayısı
Dim ss As Worksheet
Dim gg As Long 'sepet satır sayısı
Set sttok = Sheets("STOK")
ss = sttok.Range("A10000").End(xlUp).Row
Set seppet = Sheets("SEPET")
gg = seppet.Range("A10000").End(xlUp).Row
For x = 2 To ss
sttok.Range("I" & x).Value = Application.WorksheetFunction.SumIfs(seppet.Range("C:C"), stok.Range("A" & x).Value, seppet.Range("A:A"))
sttok.Range("G" & x).Value = sttok.Range("H" & x).Value - sttok.Range("I" & x).Value
Next
Set sttok = Nothing
Set seppet = Nothing
End Sub
Hocam merhaba barkoda bağlı stok takip programımdaki Debugları halen aşamadım, VBA yolu bol Debug lu bir yol oldu benim için :) Hocam programı çalıştırdığımda Kalın ve italik yazdığım yerde Obje tanımlanmadı 1004 hatası alıyorum, nerede hata yapıyorum acaba, saygılar
Private Sub txtMiktar_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 And IsNumeric(txtMiktar.Text) Or IsNumeric(txtMiktar.Text) < 10000 Then
txtTutar.Value = txtMiktar.Value * txtFiyat.Value
For b = 10000 To 2
If Sheets("SEPET").Range("A" & x).Value = Sheets("STOK").Range("A" & x).Value Then
For i = 10 To 5 Step -1
Sheets("STOK").Range("G" & i) = Range("H" & i) - 1
Next i
End If
Next b
SEPETE_EKLE
End If
End Sub
Hata aldığım yeri çizemedim tam olarak burası hocam
If Sheets("SEPET").Range("A" & x).Value = Sheets("STOK").Range("A" & x).Value Then