- Видео 221
- Просмотров 152 142
EXCEL VBA İLE HERŞEY
Добавлен 23 сен 2022
Merhabalar, Kanalıma Hoşgeldiniz!.. Kanalımda Excel VBA ile İlgili Kodlama ve Eğitim Videoları, bunun yanında Excel VBA ile yazmış olduğum Program Tanıtım videolarına yer vereceğim. Tüm Excel VBA Eğitim Videolarıma Ulaşmak İçin Kanalıma Abone Olmayı Unutmayın.
PUANTOR Puantaj Takip Programı
( Video İle İlgili 2 Satırlık Açıklama )
Yazdığım Programlar Hoşunuza Giderse veya Kendiniz İçin Özel Program Yazdırmak İsterseniz Benimle İletişime Geçebilirsiniz.
Ücretsiz Programların da Yer Aldığı Onatma Listesi
► Program Tanıtımları : ruclips.net/p/PL1g-bsMK5hqxYCHw66uZpJ6feydPXFnAX
► VBA Eğitim Videoları : ruclips.net/p/PL1g-bsMK5hqxO1d90Poq8OJIgJxGpWoAF
► Excel Eğitim Videoları : ruclips.net/p/PL1g-bsMK5hqz77Z8S-NTr8qhIqjiRgLZ9
Video işinize yaradıysa desteğinizi göstermek adına beğenmeyi ve kanala abone olmayı unutmayın. Yeni yükleyeceğim videolarımdan haberdar olmak için bildirimleri açınız.
Mail ( Contact ) - bilgekazaz@gmail.com
Yazdığım Programlar Hoşunuza Giderse veya Kendiniz İçin Özel Program Yazdırmak İsterseniz Benimle İletişime Geçebilirsiniz.
Ücretsiz Programların da Yer Aldığı Onatma Listesi
► Program Tanıtımları : ruclips.net/p/PL1g-bsMK5hqxYCHw66uZpJ6feydPXFnAX
► VBA Eğitim Videoları : ruclips.net/p/PL1g-bsMK5hqxO1d90Poq8OJIgJxGpWoAF
► Excel Eğitim Videoları : ruclips.net/p/PL1g-bsMK5hqz77Z8S-NTr8qhIqjiRgLZ9
Video işinize yaradıysa desteğinizi göstermek adına beğenmeyi ve kanala abone olmayı unutmayın. Yeni yükleyeceğim videolarımdan haberdar olmak için bildirimleri açınız.
Mail ( Contact ) - bilgekazaz@gmail.com
Просмотров: 269
Видео
WhatsApp OTOMATİK MESAJ PROGRAMI WPAM Shorts
Просмотров 697 часов назад
Bu Shorts video ile WPAM Programının kullanımını göstermeye çalıştım Yazdığım Programlar Hoşunuza Giderse veya Kendiniz İçin Özel Program Yazdırmak İsterseniz Benimle İletişime Geçebilirsiniz. Ücretsiz Programların da Yer Aldığı Onatma Listesi ► Program Tanıtımları : ruclips.net/p/PL1g-bsMK5hqxYCHw66uZpJ6feydPXFnAX ► VBA Eğitim Videoları : ruclips.net/p/PL1g-bsMK5hqxO1d90Poq8OJIgJxGpWoAF ► Exce...
Hata Düzeltmeleri
Просмотров 1819 часов назад
Yapmış olduğumuz Programda Hata Düzeltmelerini yapmıştım. Kodların neler olduğunu paylaştım. İyi seyirler. Yazdığım Programlar Hoşunuza Giderse veya Kendiniz İçin Özel Program Yazdırmak İsterseniz Benimle İletişime Geçebilirsiniz. Ücretsiz Programların da Yer Aldığı Onatma Listesi ► Program Tanıtımları : ruclips.net/p/PL1g-bsMK5hqxYCHw66uZpJ6feydPXFnAX ► VBA Eğitim Videoları : ruclips.net/p/PL1...
İzin Takip Programı
Просмотров 21712 часов назад
8 videodan oluşan Excel VBA'da Access Veri Tabanı kullanmak adlı seri ile ortaya çıkan programı merak ettiniz mi? İşte programımızın tanıtım videosu. Yazdığım Programlar Hoşunuza Giderse veya Kendiniz İçin Özel Program Yazdırmak İsterseniz Benimle İletişime Geçebilirsiniz. Ücretsiz Programların da Yer Aldığı Onatma Listesi ► Program Tanıtımları : ruclips.net/p/PL1g-bsMK5hqxYCHw66uZpJ6feydPXFnAX...
Access Veri Tabanı İle Çalışmak - 8
Просмотров 19714 часов назад
Excel VBA ile Access Veri Tabanı kullanarak yazmakta olduğumuz PROGRAMIMIZIN SON VİDEOSU. Programımız Bitti Arkadaşlar. Yazdığım Programlar Hoşunuza Giderse veya Kendiniz İçin Özel Program Yazdırmak İsterseniz Benimle İletişime Geçebilirsiniz. Ücretsiz Programların da Yer Aldığı Onatma Listesi ► Program Tanıtımları : ruclips.net/p/PL1g-bsMK5hqxYCHw66uZpJ6feydPXFnAX ► VBA Eğitim Videoları : rucl...
Access Veri Tabanı İle Çalışmak - 7
Просмотров 20316 часов назад
Excel VBA ile Access Veri Tabanı Kullanarak yazmakta olduğumuz Personel Takip veya Personel İzin Takip olarak adlandırabileceğimiz Programın bu videosunda Kullanıcıyı Zorunlu Alanları Doldurmaya Zorlamayı Fonksiyon Yazmayı Mesaj Kutusu Detayları gibi çeşitli kodlamaları göstermeye çalıştım. Yazdığım Programlar Hoşunuza Giderse veya Kendiniz İçin Özel Program Yazdırmak İsterseniz Benimle İletişi...
Access Veri Tabanı İle Çalışmak - 6 ( İZİN TAKİP PROGRAMI )
Просмотров 28019 часов назад
Bu videoda Excel VBA ile Access Veri Tabanı kullanarak yazdığımız programımız artık Personel İzin Takip Programı olarak evrildi. Bu video ile Multipage Kullanımı da dahil olmak üzere Yıllık İzin Hesaplarını nasıl yaptığımızdan tutun da Arrayleri Transpose etmeye kadar bir çok güzel kodlarımız var. Lütfen videoyu atlatmadan izleyin ki geri döne döne her yerde iyileştirme ve düzeltmeler yapmış ol...
Access Veri Tabanı İle Çalışmak 5
Просмотров 275День назад
Bu video da ise Excel VBA ile Access Veri Tabanı Kullanarak yazmakta olduğumuz İzin Takip Programında İzin Hesaplamasını yapmayı göstermeye çalıştım. İyi seyirler... Yazdığım Programlar Hoşunuza Giderse veya Kendiniz İçin Özel Program Yazdırmak İsterseniz Benimle İletişime Geçebilirsiniz. Ücretsiz Programların da Yer Aldığı Onatma Listesi ► Program Tanıtımları : ruclips.net/p/PL1g-bsMK5hqxYCHw6...
Access Veri Tabanı İle Çalışmak - 4
Просмотров 241День назад
Bu videoda Formda Kişi için Resim Yükleme ve Yeniden Adlandırma olaylarını gösterdim. Benim çok sevdiğim ve kullandığım bir kod. Umarım beğenirsiniz. Yazdığım Programlar Hoşunuza Giderse veya Kendiniz İçin Özel Program Yazdırmak İsterseniz Benimle İletişime Geçebilirsiniz. Ücretsiz Programların da Yer Aldığı Onatma Listesi ► Program Tanıtımları : ruclips.net/p/PL1g-bsMK5hqxYCHw66uZpJ6feydPXFnAX...
Access Veri Tabanı İle Çalışmak - 3
Просмотров 235День назад
Excel VBA ile Access Database kullanırken bir de küçük bir Class Yazalım. Umarım beğenirsiniz. Yazdığım Programlar Hoşunuza Giderse veya Kendiniz İçin Özel Program Yazdırmak İsterseniz Benimle İletişime Geçebilirsiniz. Ücretsiz Programların da Yer Aldığı Onatma Listesi ► Program Tanıtımları : ruclips.net/p/PL1g-bsMK5hqxYCHw66uZpJ6feydPXFnAX ► VBA Eğitim Videoları : ruclips.net/p/PL1g-bsMK5hqxO1...
Listbox'ta DİNAMİK Sütun Genişlikleri
Просмотров 38121 день назад
Listbox'ta DİNAMİK Sütun Genişlikleri
Stok İmalat Programı - İş Emri Onaylama
Просмотров 2522 месяца назад
Stok İmalat Programı - İş Emri Onaylama
Stok İmalat Programı - Eksik Kontrol ve Profil Kesim Planlama
Просмотров 2492 месяца назад
Stok İmalat Programı - Eksik Kontrol ve Profil Kesim Planlama
Stok İmalat Programı - Reçete Oluşturma
Просмотров 2002 месяца назад
Stok İmalat Programı - Reçete Oluşturma
Stok İmalat Programı - Malzeme Tanımlama
Просмотров 2852 месяца назад
Stok İmalat Programı - Malzeme Tanımlama
hocam aşağıdaki kodda rs.addnew e gelince geçersiz değişken hatası veriyor. debug yapıp addnew ı tekrar yazınca çalışıyor. connect SQL = "Select * From acilanlar" rs.Open SQL, cn, 1, 3 rs.AddNew With UserForm2 rs!Tarih = .TextBox46 rs!Kalite = .TextBox44 rs!AcilanTop = .ComboBox2 rs!Yazili = .TextBox47 rs!Yazisiz = .TextBox48 rs!LekeliHatali = .TextBox49 rs!Numune = .TextBox50 rs!Fire = .TextBox51 End With rs.Update neden olabilir?
hocam tabloyu sildim tekrar oluşturdum düzeldi
Muhteşem olmuş hocam
Çok teşekkür ederim. Mehmet Ali yazıyor. Ben de öğrenmeye çalışıyorum
teminat mektubu takip programı varmıdır
Biz bunları hep sipariş üzeri kişiye özel olarak yazıyoruz. Ama bunu biraz daha genele hitap edecek şekilde yazdık. Eğer sizin de siparişiniz olursa teminat mektubu takibi için yazarız
Hocam Excel VBA ile mi yazdınız programı?
Hayır ben yazmadım, bu web tabanlı PHP ile Mehmet Ali yazıyor. Ben de öğrenmeye çalışıyorum.
8 Nisan 2024 5 gün sonra 13 ü iş başı yapar hadi cumartesite denk geldi diyelim 15 i olur 17 nereden çıktı.
Bayram tatilinde yıllık izin sayılmaz
@@excelvbailehersey Bizde sayıyorlar hafta sonu bayram falan dinlemiyorlar yani.
Yıllık ücretli izin günlerinin hesabında , izin süresine rastlayan hafta tatili, ulusal bayram ve genel tatil günleri izin süresinden sayılmaz. (İş kanunu madde 56/5 yönetmelik madde 6). Yani başka bir deyişle yıllık izin süresi içindeki hafta tatili,ulusal bayram ve genel tatil günleri izin süresinden sayılmaz ve dikkate alınmaz
Hocam mail adresinize bakar mısınız.?Kalbi selam...
Baktım
waiting for final steps
We finished the program. I made a few minor corrections. I also shot a video and published it.
teşekkürler değerli Hocam...
👍
Hayırlı günler Hocam, ekesik ve kusurlarıyla şükür tamamladım.Öncelikle çok teşekkür ederim böyle eğitici ve öğretici bir progrmı bizimle paylaştığınız için...Rabbim ilminize sağlık versin...Hocam bir konu arz edeceğim bu ListBoxtların başlıklarını Label ile ayarlamak çok zor oluyor.Bunu listboxların içinde yapamaz mıyız? veya ListView ile yapsak nasıl olur?Tabii kodları gerekli...
Öncelikle sizlerin de emeğine sağlık. Hata gideme yaptığım kodların da videosu birazdan yüklenmiş olur. Artık tamamen hatasız program diyebiliriz. Listboxlarda başlıkları kendi özelliği ile alabiliriz ancak görseli hoşuma gitmiyor diye ben kullanmadım. Listview için de herkeste ocx dosyaları olmayabilir ve Excel 32 bit dışında hata veriyor o nedenle tercih etmedim. Son olarak listbox1.column =rs.getrows sadece Listboxlarda ve comboboxlarda kullanılabilir aksi halde listciew kullanımında rs den tek tek yüklemek gerekecekti. 😉
For k = LBound(arr) To UBound(arr) arr(k, 3) = Application.WorksheetFunction.RoundDown _ (Application.WorksheetFunction.YearFrac(CDate(arr(k, 2)), 0)) Hocam bu kodda "RoundDown _" kelimesinde "argument not optional" ("argüman isteğe bağlı değil") hata mesajı veriyor.Bunu nasıl düzeltmeliyim...
Bu kod aşağı yuvarlamak için kullanılır. Bunu ChatGpt de araştırır mısın kodu ver alternatif kod verir
@@excelvbailehersey yaptım hocam...Ama bu seferde IzinGoster prodesöründe Form.lblKalanIzin=rs!KalanIzin satırında Type mismatch hatası veriyor
orada bir hata vermemesi lazım çok büyük ihtimalle bir harf hatası falan vardır. Çünkü lblKalanIzin'i zaten value olarak ilk açıldığında 0 (sıfır) olarak ayarlamıştık, rs ile de zaten Access tablosundaki o kolonda bulunan değeri alıyoruz.
Eline sağlık kardeşim çok güzel olmuş. Fakat bunu normalde print etmen gerekmiyormu. Islak imza için
Evet doğru ama artık vaktim kalmadı. O nedenle sayfaya aktarma ve print olaylarım eksik kaldı. Zaten buraya kadar gelen birisi ChatGPT ye bile o kodları yazdırabilir diye bıraktım. Ama fırsat bulursam onu da eklerim.
VİDEOYU ÇEKERKEN BİRKAÇ UFAK TEFEK HATA VARDI BEN KENDİMDE DÜZELTTİM. Bu tarz programlarda ilk denemelerde ister istemez hatalar olacaktır. Ama bunlar normal şeyler. Ben kendi hatalarımı düzelttim. Şuan sanırım hatasız çalışıyor.
Selamun Aleyküm. Hocam bu seriyi izlemek için epeydir çaba sarfediyorum ama bir türlü fırsat bulamadım. Eminim gayet güzel ve açıklayıcı olmuştur. Ben bir şey sormak istiyorum. Sürekli windows kullananan birisiyim ama linux deneyimlemek istiyorum. Çok az araştırma fırsatı bulabildim linux'uda. Bottle gibi bir uygulama ile microsoft ürünleri çalışıtırılabiliyormuş. Merak ettiğim şey ise, excel ve vbs acces de dahil olmak üzere linux üzerinden geliştirebilir mi? geliştirilirse oluşturulan dosya windows'ta çalışır mı? bu konu hakkında bilgilendirebilirmisiniz?
Benim hiç bilgimin olmadığı yerden geldi bu soru. Öğrencilerin tabiriyle daha oraya gelmedik. 🙂
@@excelvbailehersey 🙂 Anladım hocam. Verdiğiniz bilgiler için teşekkür ederim. Olurda bu konu hakkında bilgi sahibi olursanız bu konu hakkında video da çekerseniz sevinirim. Allah'a emanet olun
Değerli Hocam..Öncelikle emeğinize ve bilginize sağlık. Böyle bilgilendirici programı bizlerle paylaştığınız için çok teşekkür ediyor minnetlerimi sunuyorum... Göndermiş olduğunuz kodları indirdim ve tek tek yeniden kodları yazdım ilgili formlara ve modüllere..Fakat bende sürekli olarak yanı hata mesajı geliyor.."Can't find object or library" "Nesne veya kütüphane bulunamadı" hata mesajı.. Benim excelde bir referans eksik herhalde,o yüzden bir türlü formları çalıştıramıyorum.Konu hakkında ne öneriniz olabilir...Araştırdığımda "hatası, genellikle VBA projenizde referans olarak ayarlanmış bir kütüphanenin bulunamaması sonucunda oluşur." diye bir bilgi elde ediyorum..Şaşırdım ne yapacağımı bilemiyorum...Kalbi selamlarım ve hürmetlerimle... Hocam birde Extra Kodlar var bunları nereye yazacağız...
O exrta olan kodların programla alakası yok. Sadece arşivde bulunsun diye yazdım Bu arada hangi değişkende hatayı veriyor. Tüm değişkenleri dim i as integer falan diye tanımlıyorduk ya. Ya onun gibi değişkenlerin tanımlanması gerekebilir ya da Sanırım 8. Videoda olacak kendi referanslarımı paylaşmıştım. Onları karşılaştırabilir misiniz.
Merhaba hocam Application.DisplayFormulaBar = False Kodunu çalıştırdığım zaman aynı anda açık olan diğer Excel dosyalarında da bu kod çalışıyor. Bu kodu sadece belirttiğim çalışma kitabında çalıştırmak için bir öneriniz var mı
Merhaba Application.DisplayFormulaBar özelliği, Excel'in global bir ayarıdır, yani Excel uygulamasındaki tüm çalışma kitaplarını etkiler. Ne yazık ki bu ayar, sadece belirli bir çalışma kitabı için ayrı ayrı yapılamaz. Ancak belirttiğiniz çalışma kitabı aktif olduğunda formül çubuğunu gizleyip, diğer çalışma kitaplarına geçildiğinde tekrar görünür hale getirebilirsiniz. Private Sub Workbook_Activate() ' Bu çalışma kitabı aktif olduğunda formül çubuğunu gizle Application.DisplayFormulaBar = False End Sub Private Sub Workbook_Deactivate() ' Bu çalışma kitabı pasif olduğunda formül çubuğunu geri getir Application.DisplayFormulaBar = True End Sub
elline diline sağlık hocam seri birebir seninle beraber yaptım. özellikle sql sorgularını anlaşılır bir sekilde anlattınki kafamdaki soru işaretleri silindi.
Çok teşekkür ederim. Bu tarz yorumlar gururumu okşuyor, hoşuma gidiyor. Demek ki anlatabiliyorum diyorum :))
Tüm kodları PDF olarak paylaştım. www.dosya.tc/server/f0tkwb/YILLIK_IZIN_TAKIP_PROGRAMI_KODLARI.pdf.html
Hocam harika ötesisiniz...Çok teşekkür ederim...gerçi yazarak öğrenmek çok güzel ama hatalar beni bıktırdı değerli Hocam...saygılarımla...
Hocam burayıda kontrol ettim ama bende bazı ne diyeceğimi de tam bilmiyorum ama prodesürler veya özellikler yok herhalde..Mesala siz MouseMoveIcon yazdınız bende bu yok.Bende sadece MouseIcon görünüyor.Eksik olan nedir bilmiyorum..Sizi takip ederek birşeyler yapayım diye uğraşıyorum ama önüme hep hata mesajları geliyor.Neyse sağlık olsun diyorum...Emeğinize bilginize sağlık...Benim excelde bazı özellikler yok sanıyorum...Tools menüsünden birşeyler eklemeye çalıştım ama ne yaptımsa olmuyor.Sağlıcakla kalınız...
Excel MouseMove için #If VBA7 And Win64 Then ' // 64bit Private Declare PtrSafe Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long Private Declare PtrSafe Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long #Else ' // 32bit Private Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long #End If Function MouseMoveIcon() Dim lngRet As Long lngRet = LoadCursorBynum(0&, 32649&) lngRet = SetCursor(lngRet) End Function bu kodları yazmalısınız Bu kodları kopyalayıp mdlClassModule içerisinde en üste yapıştırın
Tüm kodları PDF olarak paylaştım. www.dosya.tc/server/f0tkwb/YILLIK_IZIN_TAKIP_PROGRAMI_KODLARI.pdf.html
Hocam PersonelID tanımlaması nerede...?Ben çalıştırmaya çalıştığımda yine "Can't find project or library" hatası alıyorum...
son videoda tüm kodları gösterdim, hatta kullandığım referansları da gösterdim. Ama dakikasını hatırlamıyorum. :)) Sonlara doğru olacak 35. dk sonrasına bakar mısınız
merhaba bu seri için teşekkürler elinize emeğinize sağlık ayrıca önceki videolarınıza göz gezdirirken tiny task programını kullandığınızı gördüm görece autohotkey daha kullanışlı değil midir ? bilginiz var ise autohotkey ve Excel senkron çalışan videolar da yapabilir misiniz ?
excel 32 bit mi 64 bitte listview bulamadım
@@ilkudayBenim excelim 32 bit. mscomct2.ocx ve mscomctl.ocx dosyaları var onları internetten bulup indirmeniz gerek. Bu dosyalar sa 32 bitte çalışı RUclips kanallarında ocx hatası diyerek arayabilirsiniz.
Üstad listboxun sütun genişliğinde 0,120 yaptınız orda ; olması gerekiyor videoyu tüm izleyemedim.Değiştirmeyseniz diye yazdım.Kolay gelsin.
@@zafergun68 onu farkettim. Düzelttim. Çok teşekkür ederim.
@@excelvbailehersey rica ederim :)
👍👍
Teşekkür ederim
Emeklerine sağlık üstat. Teşekkürler
Teşekkür ederim. Verdiğim bir söz vardı. Sözümü tuttum. 🙂
Hocam ağzınıza sağlık çok güzel bir seri oldu
Teşekkür ederim
Hocam bende Format(Date,"yyyy") satırı için "proje veya kütüphane bul" hata mesajı alıyorum...ne yapmalıyım.?İlerleyemiyorum bunu düzeltmeyince...Etkisiz hale getirdim fakat bu seferde Sub YillikIzinHesaplamak() prodesöründe txtIzinBaslangicTarihi için aynı hata mesajı geliyor.
Bir sonraki videoda ( edit yapıyorum şuan ) kendi kullandığım referansları da açıp göstereyim. Büyük ihtimalle referanslardan kaynaklıdır.
Verileri nereden çekiyormuş? VBA da sayılar stringe çevirildiğinde pozitif olanların başında boşluk bırakılır.. Trim() ile kırpılır genelde.. Ama boşluk ascii 32 olur ve o kırpılır, burada ascii 160 nasıl olmuş acaba..
Bulana kadar uğraştırdı beni. Kendi server'ında bir muhasebe programı vardı
elinize sağlık üstadım...maşallah...
Teşekkür ederim. Bittiğinde ücretli satılacak kadar güzel bir program ortaya çıkartmış olacağız inşallah. 🙂
@@excelvbailehersey uğraşarak kendimizin bunu yapma şansı nedir üstat? malum para verip almak istesek çoluk çocuk hakkına girmiş oluyoruz...ev geçindirmek zor :))) videonuzu izleyerek başarabilir miyim ?
Ben sırf videoyu izleyerek yapılabilsin diye adım adım yazıyorum. Tüm izleyenler sıfır bilgi ile yapabilecekler.
Hocam merhaba elinize sağlık. Hangi excel sürümünü kullanıyorsunuz. 32 bit mi 64 bit mi. listview sorununu nasıl çözüyorsunuz
Merhabalar. Ben 32 bit Office 2021 kullanıyorum. mscomct2.ocx ve mscomctl.ocx bende yüklü.
Private Sub cmbAdiSoyadi_AfterUpdate() Dim cmbListItem As Boolean Dim inputValue As String inputValue = cmbAdiSoyadi cmbListItem = ComboBoxListItem(cmbAdiSoyadi, inputValue) If cmbListItem Then lblPersonelID = cmbAdiSoyadi.Column(1) Connect If frmPersonel.lblPersonelID <> 0 Then SQL = "SELECT * FROM tbl_Personel WHERE ID = " & frmPersonel.lblPersonelID rs.Open SQL, cn, 1, 3 With frmPersonel .cmbAdiSoyadi = rs!AdiSoyadi .txtTCKNo = rs!TCKNo .txtDogumYeri = rs!DogumYeri .txtDogumTarihi = rs!DogumTarihi .txtTelefon = rs!Telefon End With Else Dim deger As Integer lblPersonelID = 0 deger = cmbAdiSoyadi Temizle Private Sub cmbAdiSoyadi_AfterUpdate() Dim cmbListItem As Boolean Dim inputValue As String inputValue = cmbAdiSoyadi cmbListItem = ComboBoxListItem(cmbAdiSoyadi, inputValue) If cmbListItem Then lblPersonelID = cmbAdiSoyadi.Column(1) Connect If frmPersonel.lblPersonelID <> 0 Then SQL = "SELECT * FROM tbl_Personel WHERE ID = " & frmPersonel.lblPersonelID rs.Open SQL, cn, 1, 3 With frmPersonel .cmbAdiSoyadi = rs!AdiSoyadi .txtTCKNo = rs!TCKNo .txtDogumYeri = rs!DogumYeri .txtDogumTarihi = rs!DogumTarihi .txtTelefon = rs!Telefon End With Else Dim deger As Integer lblPersonelID = 0 deger = cmbAdiSoyadi Temizle cmbAdiSoyadi = deger End If End Sub End If End Sub Hocam bu şekilde yaptım ama yeni kayıt yapmak istediğimde bu sefer de " cmbAdiSoyadi = deger" satırında "type mistmatch" hatası veriyor...bu sizin göndermiş olduğunuz indirdiğim programdan...
Bu aradada emeğinize saglik
Teşekkür ederim
Hocam arama kısmında aynı sini yaptım ürünümü buluyor fakat ürün başka sayfdan alıyorum gösterdiği kısımda ise formu açtığım giriş ekranında buluyor
Tek kelime ile müthiş bir serisi oldu. Emeğinize sağlık.
Teşekkürler
Bugüne kadar olan kodlar bu linkte. İsteyen indirip karşılaştırabilir. ruclips.net/video/CNOX4xr7JZ0/видео.html
Şuana kadar olan dosyamız bu linkte. İsteyen indirip karşılaştırma yapabilir. www.dosya.tc/server/3zqzuc/Ders_Notlari.rar.html
Hocam harika bir ders klasiği çekmiş paylaşmışsınız. ellerine ve emeğinize sağlık. bunun gibi dersler paylaştığınızda çok daha verimli oluyor. inşallah bundan sonrada dersler bu şekilde devam eder. kolaylıklar gelsin.
teşekkür ederim. İlk fırsatta diye sözüm vardı :))
Hocam dün akşamdan beri "Sub ResimEkle(form As MSForms.UserForm)" kodlarında kaldım...Ha bire hata mesajı veriyor.Personel formunu açamıyorum "File not found" hatası veriyor.Kodları 4 defa kontrol ettim ve "Sub ResimEkle(form As MSForms.UserForm) ' RESİM EKLEME BUTONU Dim Pencere As FileDialog Set Pencere = Application.FileDialog(msoFileDialogOpen) If form.txtTCKNo = "" Then Exit Sub With Pencere .InitialFileName = ThisWorkbook.path & "\Resimler\" .Filters.Add "Resim Dosyaları", " * .jpg,* .jpeg" If .Show <> 0 Then Beep bu kodda da " .Filters.Add "Resim Dosyaları", " * .jpg,* .jpeg"" kodunda hata veriyordu...Resim dosyalarını bulmuyor.
www.dosya.tc/server/3zqzuc/Ders_Notlari.rar.html dosyayı indirip karşılaştırabilirsiniz
@@excelvbailehersey Hocam şimdi anladım problemi ben excel ikili çalışma kitabı olarak pogramı yazıyorum.Birisi xlsm bir xlsb... :)) doğru mu hata..
@@excelvbailehersey Hocam çok teşekkür ederim..
@@excelvbailehersey hocam bunu indirdim fakat bunda da formatlı kodlarda hata veriyor ve afterupdate de "deger" yazdığımızı da "proje veya kütüphane bulunamadı" diye hata mesajı ceriyor.Formatlarda da aynı hata veriyor.Ben Office365 kullanıyorum ondan olabilir mi?
O zaman dim deger as string diye tanımlamasını yapmalısınız
Çok emek veriyorsunuz ancak çok ta güzel işler çıkartıyorsunuz. Bir konu anlatmaktan daha önemli bir iş yapıyorsunuz. Bir proje üstünde çalışmak bir çok sorunu/konuyu açıklığa kavuşturmuş oluyorsunuz. Gerçekte karşılaşılan problemleri de nasıl çözülmesi gerektiğini de göstermiş oluyorsunuz. Başarılarınızın devamını dilerim. UserForm_Initialize kısmına yazdığınız kodu modules kısmına yazarsak her UserForma yazmamıza gerek kalmaz. ResimEkle de yaptığınız gibi. Kolaylıklar diliyorum. Takibe devam :)
Teşekkür ederim. Aslında sadece 2 form yaparım diye düşünmüştüm. Ama sanırım dediğiniz gibi değiştirmek zorunda kalacağım.
Hocam kodların tamamını göremedim ben...Acaba sonunda var mı bilmiyorum.Uzun olan kodların sonları gözükmüyor..Birde label89 gibi labeller hangileri..?
Dosyayı unutmazsam dosyatc sitesine yüklerim bakarsınız
Merhaba. filesystem.object ile aslında uzantı ve file adını rahatlıkla bulabilirsiniz split,ubound vs...kullanmadan çünkü özelliklerinde var ama mobilden aklımda yok.Araştırırsanız bence çok işinize yarar hocam.
Ağzınıza sağlık hocam yine bir çok şey öğrendik
Sanırım özellikler resim kaydetme adını kişiye atama ve görüntüleme kodları başka bir yerde yok. Çünkü çok aramıştım. Hep klasik şekilde yapılıyordu.
@@excelvbailehersey bende ilk defa denk geldim, dosya ismini ayıklama konusunda bi beynim yandi ama olsun 😅 mantığını anladım ama kod uzun olunca biraz karıştı
Bende tam anlatamadım sanırım. Ama sonuçta ismini path seperatore göre bölüyor. Kaç tane seperator var 6 tane. 6.dan sonrasını alınca nokta ya göre bölüyor bu defa. Ve 2 tane bölünmüş kelime diyeyim kalıyor. Bunlardan indexi büyük olan dosya ismi (yani 1 olan), indexi sıfır olan uzantı
Hocam Hesaplanmış veri türünü yapamıyorum.Yapamazsınız diye mesaj geliyor...Başka satırda oldu... :))
Aslında direk sütun başlıklarını kopyala yapıştır yaparak yapmıştım. Ama kod ile de hesaplandıktan sonra kayıt yapılabilir
@@excelvbailehersey hocam çift tıklama ile silinme olmuyor şimdi de...Kodları kaç defa kontrol ettim aynı ama silme yapmıyor...Artık yarın bakacağım baştan...
Class Kodlarını tam yazman lazım. Bir de Userform daki kodları da yazmalısın. Classın adını da kontrol et 🙂
@@excelvbailehersey İnitalize kodlarını yazmamışım Hocam... :))
Bazen çok uzun çalışmak yoruyor 😉
Good Job
Thanks
İndex Te önemli veri arttıkça
Videoyu biraz daha ilerleterek daha kapsamlı bir program yapabilir mısınız hocam, cok açık anlaşılır anlatıyorsujuz cok yararlı oluyor
O zaman bunu küçük bir yıllık izin takip programı olarak devam edelim. Ortaya kullanışlı bir program çıksın
@@excelvbailehersey mantıklı hocam
@@excelvbailehersey Hocam Cari bir program yapsak daha faydalı olur bence...
@@yaman6762 Aslında kodlamada mantık aynı. Yani ne olursa olsun kaydet görüntüle düzenle kısmı tüm formlar için geçerli. Ama ben 2 yada 3 gün içinde tekrar yoğun tempo çalışmaya başlayacağım. O nedenle en küçük program olarak yıllık izin takibi yetişir. Yoksa cari de olabilirdi ama o bir tık daha büyük bir program olacağından yetiştiremem
Excel ve acces kullanımının devamını bekliyorum hocam
2. Video beklediğim ilgiyi görmeyince acaba istenmiyor mu dedim. 🙂
Her yerde bulunmayan kısayolları sizden öğrendim hocam, bu videoyu izleyene kadar her comboboxa veri eklemek için bir sürü kodu tekrar tekrar yazıyordum ancak çok basit yolu varmış öğrendim sayenizde. Excel acces kullanımı açısından çok fazla video yok, olan videolar da bu tarz kısayollar az oluyor, varsa böyle kısa yollar ben şahsen merakla bekliyorum 😊 Elinize emeğinise sağlık
@@excelvbaileherseyTercih meselesi tabi ama bana çok yararlı oluyor böyle şeyler, keşke bu tarz kısayollarında yer aldığı olduğu bir personel programı yazıp, bunun yapım aşamasını buraya ya da udemye ekleseniz 😊
@@mahmutnazik Udemy de hesabım yok. Yani ücretli ders videoları paylaşmadım şimdiye kadar. Ancak ücretli programlar yazdım. Halen de ekip arkadaşlarımla beraber yazmaya devam ediyoruz. Personel Takip Programı biraz fazla kapsamlı ve büyük. Onun için çok fazla vakit bulamayabilirim. Şimdilik bir kaç günlük babamlara geldiğim için fırsat bulabildim. Kısa ve küçük bir program çıkarabilirsem ne mutlu bana.
@@excelvbailehersey yok hocam bekliyoruz...
👏
;)
Hocam farkı nedirki Excel sayfaslna kayd etmek olurda access neye gerekirki
Çok farkları var da bir kaçı şöyle: Excel sayfasında 1048576 satır var. Veri tabanında çok daha büyük verileri saklayabilirsiniz. Ayrıca veri büyüdükçe Excel kasma yapar. Verimlilik açısından veri tabanı daha iyi. Bunların dışında SQL sorgular daha hızlı.
Teşekkürler hocam
Devam edecek 😉
Daha large data serisinde işe yaramıyor maalesef .
Büyük verilerde denemedim. Ama diğer metodu da paylaşmıştım.