Excel VBA Stok Takip Sistemi - Bölüm 2

[@EMRAHAKCIL]

Merhaba hocam emeğiniz için teşekkürler. Benimde Office 64 bit bende mecbur list view yerine listbox kullandım. Fakat 14:55 dakikadaki Custom kısmı bende yok ne yaparsam yapayım bulamadım. Burada işleme devam etmek için ne yapmamızı önerirsiniz?

[@beyzanur1480]

Merhaba, emeğinize sağlık çok güzel anlatıyorsunuz. Fakat benim kaçırdığım bir nokta var muhtemelen. Kaydet tuşuna bastığımda veriler kayıt olmuyor nerede yanlışlık yapmış olabilirim acaba?

[@ilaydabayrakoglu2101]

Aynı sorun ben de oluyor neden olduğunu bulabildiniz mi?

[@beyzanur1480]

@@ilaydabayrakoglu2101 hayır maalesef, kanal sahibine mail de attım fakat geri dönüş olmadı. Excel makro hakkında fazla bilgim olmadığından üzerine de düşemedim.

[@ilaydabayrakoglu2101]

Teşekkürler

[@tyt_ayt_deneme_cozuyorum876]

Bu sıkıntıyı ben de yaşadım. Neden kayıt yapılmadığını anladım. Malzeme ekle kaydet butonuna yazan " if lbislem.caption="kaydet" " komutunda kaydet yazısıyla anaform " malzemeekle.lbislem.caption="kaydet" " komutunda kaydet yazısı bire bir aynı olmalı

[@yusufadguzel5785]

Merhaba çok acil 2 bölümde commandbutton2 aynısını işledim hata veriyor

[@CS2OYNUYORUZ]

Merhaba, listview olayına kadar ben de gayet güzel gidiyordum fakat custom dan ayarlara giremedim. Araştırdığımda 64bit Office programını kaldırıp yerine 32bit kurduğumuzda ilgili nesneyi sorun olmadan kullanabiliyormuşuz. Boş yere regsvr32 C:\Windows\SysWOW64\MSCOMCTL.OCX gibi şeylerle uğraşmayın düzelmiyor Takılan arkadaşlar olursa şimdiden bilsin istedim. listview yerine listbox kullanmakta bir çözüm olabilir. Çalışmanız gayet güzel olmuş.

[@ExcellPedia]

Yorumunuz için teşekkür ederim. Doğrudur 64 bit Excel'de ListView özelliği aktif edilemiyor. 32 Bit olarak kullanmanız gerekiyor.

[@atakan2472]

Hocam, Listview yerine Listbox kullanıyorum. Ama girilen Kodlarda ListItems da hata veriyor :(@@ExcellPedia

[@ismailkorun]

Hocam merhabalar. Çalışmanız çok kıymetli ellerinize sağlık. Fakat aynı proglemi bende yaşıyorum. İşletim sistemim windows10 pro 64 bit, excel de office 2019 32 bit. Bende @SNNAYKAC'ın denediklerini denedim fakat listview in custom unda aynı hatayı almaya devam ediyorum. Class not registered. Looking for object with CLSID:{7EBDAAE1-8120-11CF-899F-00AA00688B10}. İki gündür gezmediğim yerli yabancı forum, okumadığım makale kalmadı, anlatılan tüm yöntemleri denedim, hatta temiz bir win10 kurdum yine de çalıştıramadım şu listview in custom unu. Bu hatanın nedeni ve çözümü hakkında bir bilginiz var mıdır? Yardımlarınızı rica ediyorum. Teşekkürler.

[@ozzfatih]

Daha önce bir takipçimiz sorunu şu şekilde çözdü. Sizde deneyin isterseniz. “Sorun MSSTKRPR.DLL dosyasi. Dosya SysWOW64 klasörüne atilmali. PC yeniden baslatilmadi. CMD yönetici olarak calistirilmali ve " regsvr32 /v msstkprp.dlI" olarak kayit defterine islenmeli.”

[@ismailkorun]

@@ozzfatih çok teşekkür ederim hocam.çok sağolun. İlk yaptığımda yine hata verdi. Win 11 e yükselttim tekrar denedim bu sefer oldu. Elinize emeğinize sağlık.

[@DailyFactsWorth__]

Teacher, I really liked the programs you wrote, I will write this stock program in full, I liked it a lot, so I thank you a thousand times. Teacher, I am asking you very much, if possible, after the end of this Stock Program, you would be happy to start a program like a Big Kilinka, that is, a hospital, or a project like Cafe Restaurant Pos. InshAllah, thank you in advance.

[@kenanbaris9405]

üstadım, şu list view yerine ne kullanılırsa 64 bit olayı çözülür?...emeğinize sağlık ancak bir yardımcı olur musunuz? sanırım herkes aynı şeyden muzdarip...saygılarımla

[@ExcellPedia]

64 bit için Listbox kullanabilirsiniz. Ancak görselleştirme olayı onda olmadığı için 32 bit genelde tavsiye ediyoruz.

[@yusufadguzel5785]

Sen bana bu programı atsan ne dua ederim şimdi

[@yaman6762]

ListView olayında kaldım Üstadım...

[@ExcellPedia]

Hocam kanalda mail adresim var. Oradan bana ulaşabilir misiniz?

[@yaman6762]

@@ExcellPedia ahh bir bulabilsem ulaşacağımda ..Her yere bakıyorum ama mail adresinizi bulamıyorum... buraya yazsanızda bizde rahat etsek üstad...

[@ExcellPedia]

[e-mail]

[@MirafigHasanzade]

Ben Aynen oldugu gibi yazdim amma liswiwewde LSTStok da yazilar ekrana gelmyor bos gorsediyor Private Sub UserForm_Initialize() SehifeniYenile End Sub Sub SehifeniYenile() Dim x, y As Long Dim lst As ListItem Dim ws As Worksheet Set ws = Sheets("Stok") LSTstok.ListItems.Clear For y = 2 To 1000 If ws.Range("A" & y).Value = "" Then Exit For Next For x = 2 To you - 1 Set lst = LSTstok.ListItems.Add(Text:=ws.Range("A" & x).Value) lst.SubItems(1) = ws.Range("B" & x) lst.SubItems(2) = ws.Range("C" & x) lst.SubItems(3) = ws.Range("D" & x) lst.SubItems(4) = ws.Range("E" & x) lst.SubItems(5) = ws.Range("F" & x) lst.SubItems(6) = ws.Range("G" & x) Next Set ws = Nothing Set lst = Nothing End Sub

[@ademerencaparoglu4408]

For x = 2 To you - 1 you deği y yazacaksın :))