Excel VBA Stok Takip Sistemi

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

Рет қаралды 2,194

5 ай бұрын

Merhaba Arkadaşlar! vba excel programlama ile ilgili olarak hazırlanan stok takip sistemi serisinin 2. dersi ile vba excel hakkında daha fazla bilgiye sahip olabilirsiniz. Bu derste vba userform ve vba kodları ve anlamaları ile ilgili daha fazla bilgi sahibi olabilirsiniz. Sonraki derslerde görüşmek üzere.
#vba #vbaprogramming #excelvba #microsoftexcel #excelvba #excelvbaguide #excelvbatutorial #stoktakipsistemi #vbaprogramming #excelpedia #excel #exceltutorial #exceltips #vbauserform

Пікірлер: 15

@DailyFactsWorth__ 3 ай бұрын

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 3 ай бұрын

ü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 3 ай бұрын

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

@SNNAYKAC 4 ай бұрын

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 4 ай бұрын

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 3 ай бұрын

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

@ismailkorun1 3 ай бұрын

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 3 ай бұрын

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.”

@ismailkorun1 3 ай бұрын

@@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.

@yaman6762 4 ай бұрын

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

@ExcellPedia 4 ай бұрын

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

@yaman6762 4 ай бұрын

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

@ExcellPedia 4 ай бұрын

excellpedia@hotmail.com

@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 29 күн бұрын

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