Видео

Emeğinize sağlık

Hocam merhaba.Yaptiginiz calismalar ve emeginiz icin cok teşekkür ederim.Hocam oncelikle verdiğim rahatsızlıktan dolayı özür dilerim.Ben fatura kayıt uygulaması yaptım.bu uygulamada Excel çalışma sayfasında etopla ile firmaları veri listesi ile seçip firmaya ait kaç giriş varsa bu girişlerin toplam tutarini toplayıp görebiliyorum ama bu işlemi ana formum açılınca form üzerinde olusturacagim combobox tan firmayı sectigim de o firmaya ait kayıtların tutulması tutar toplamının yine ana form üzerindeki textbox ta yazmasini istiyorum.Bu konuda yardımcı olursanız çok sevinirim.Saygilarimla (Tarih: 2024-09-11)

Hocam yeni eğitim programlarınızı özledik...

Süp süper

Hocam bu dosyayı nasıl temin edebiliriz

Excel’i indirebilir miyim ?

hocam merb. Zamanını ayırıp bu güzel bilgileri bize verdiğiniz için çok tşk ederim. Cari listede arama butonu oluşturmak işimizi kolaylaştırır diye düşündüm

vermiş oldugunuz bilgilerden dolayı teşekkür ederim hocam

vermiş oldugunuz bilgilerden dolayı teşekkür ederim hocam

Çok değer verilmesi ve değerinin bilinmesi gereken bir kanal. Elinize emeğinize sağlık.

Verdiğiniz bilgiler için çok teşekkür ediyorum hocam

Merhaba, Öncelikle video için tebrik ederim. Yıllardır VBA ile uygulama geliştiren biri olarak söylüyorum, gerçekten de harika iş çıkarmışsınız. Naçizane, videoda bahsettiğiniz "activate" ve "initial" methotlarıyla ilgili farktan bahsedeyim. Bir formu açmak istediğimizde "initial" methodunu kullanıyoruz, bunu videoda da bahsetmişsiniz. "Activate" methodu ise şu: Örneğin birden fazla açık form var diyelim. Aktif olmayan formların üstte yer alan pencere rengini gri renkte görürsünüz. Bir başka örnek olarak da iki farklı Excel dosyası açıp ekranı ikiye böldüğünüzde, inaktif olan Excel dosyasının pencere rengini biraz giri görürsünüz. Eğer klavyeden bir tuşa basarsanız, aktif olan excel dosyasına yazmış olursunuz. Bazı karmaşık uygulamalarda, örneğin birbiriyle etkileşim içinde çok sayıda form ya da dosya kullanan bir uygulama tasarlarken "activate" methodunu kullanmak gerebiliyor. Umarım ifade edebilmişimdir. Tekrardan emeğiniz için teşekkürler.

Hocam mukunse bu Programı bana ver kulanalım bu programa çok ihtiyacım var önceden Teşekkür ederim.

Hocam KATIL düğmesi koyun. Katılalım ve siz de bu Stok Takip Programı ile Nakliye Takip Programı eğitimlerini ve ilerde yapacağınız diğer programlar için eğitim videolarını bizler ile paylaşın.

Hocam bu programın eğitim videolarını yayınlayacakmısınız?

Merhaba hocam özel olarak görüşe bilirmiyiz

hocam bankaydı cari-stoklar faturalar çek senet olayları bunların detay anlatımı varmı ?

selamun aleykum. Hocam bu ön muhasebe işlemlerinin detay anlatımı varmı bulamadım başlayıp bilgisayarıma kurmak istiyorum.

Hocam bu programları nasıl lisanslıyoruz? O kadar emek harcayıp bir o kadar kod yazıyoruz birilerinin hazıra konmasını beklememiz beklenmemeli diye düşünüyorum.🤔 Bu yazdığımız programları yine VBA’da kod yazarak nasıl lisanslayacağımızı anlatan bir video yaparsanız güzel olurdu.👍 Mesela program açıldığında bir lisanslama ekranı olsun, bir numara üretsin bu numarayı yine yazdığı mail adresine cevaben gönderelim, deneme süreli, aylık ve yıllık abonelik lisanslayalım. Bir de VBA arayüzüne giren kodlarımızı görmesin gibi.

Hocam herkes küçüklü büyüklü e-faturaya geçti diye biliyorum Türkiye’de. E-faturaya geçmeyen ve böyle programları kullananlar kaldı mı? Bence bir e-fatura modülü ekleseniz daha anlamlı olurdu.Çünkü epey bir emek görüyorum bu programda. Aksi halde ikinci bir iş gibi duruyor bu program. Yani bir programdan hem faturaları kes, hemde bu fatura takip programına bir daha gir gibi.🤔

Hocam cbAy_Change()ini aşağıdaki gibi yaptım ama sürekli hata veriyor.Konu hakkında yardımcı olabilir misiniz...? Private Sub cbAy_Change() On Error GoTo ErrorHandler Dim selectedMonth As String Dim rngData As Range Dim filteredData As Range Dim ws As Worksheet Dim lastRow As Long Dim i As Long Dim totalSGK As Double Dim totalYemek As Double Dim totalMaas As Double Dim totalHakedis As Double ' Aktif çalışma sayfasını ayarla Set ws = ThisWorkbook.Sheets("AnaSayfa") ' Seçili ayı alın selectedMonth = cbAy.Value ' Seçili ay boş mu kontrol et If selectedMonth = "" Then MsgBox "Lütfen bir ay seçin.", vbExclamation Exit Sub End If ' Son satırı bulun lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' Veri aralığını ayarla Set rngData = ws.Range("A1:D" & lastRow) ' A1:D sütunlarındaki verilere göre ayarlayın ' Verileri filtrele rngData.AutoFilter Field:=1, Criteria1:=selectedMonth On Error Resume Next Set filteredData = rngData.SpecialCells(xlCellTypeVisible) On Error GoTo ErrorHandler ' Filtrelenmiş veri yoksa mesaj göster If filteredData Is Nothing Then MsgBox "Seçili ay için veri bulunamadı.", vbExclamation ws.AutoFilterMode = False Exit Sub End If ' Toplam hesaplamaları sıfırla totalSGK = 0 totalYemek = 0 totalMaas = 0 totalHakedis = 0 ' Filtrelenmiş verilerde döngü For i = 2 To filteredData.Rows.Count ' Değerlerin sayısal olup olmadığını kontrol et If IsNumeric(filteredData.Cells(i, 2).Value) Then totalSGK = totalSGK + filteredData.Cells(i, 2).Value ' SGK değerini topla End If If IsNumeric(filteredData.Cells(i, 3).Value) Then totalYemek = totalYemek + filteredData.Cells(i, 3).Value ' Yemek değerini topla End If If IsNumeric(filteredData.Cells(i, 4).Value) Then totalMaas = totalMaas + filteredData.Cells(i, 4).Value ' Maaş değerini topla End If Next i ' Hakediş hesapla totalHakedis = totalSGK + totalYemek + totalMaas ' Sonuçları hücrelere yazdır ws.Range("E1").Value = "Toplam SGK" ws.Range("E2").Value = totalSGK ws.Range("F1").Value = "Toplam Yemek" ws.Range("F2").Value = totalYemek ws.Range("G1").Value = "Toplam Maaş" ws.Range("G2").Value = totalMaas ws.Range("H1").Value = "Toplam Hakediş" ws.Range("H2").Value = totalHakedis ' Filtreyi temizle ws.AutoFilterMode = False Exit Sub ErrorHandler: MsgBox "Bir hata oluştu: " & Err.Description, vbCritical End Sub

vermiş oldugunuz bilgilerden dolayı teşekkür ederim hocam

Sayın Hocam elinize sağlık harika bir program olmuş emeğinize sağlık

Teşekkürler değerli Hocam...Çok faydalı çalışmalarla bizleri bilgilendiriyorsunuz.Yeni çalışmalarınızı özlemle bekliyorum... Hocam bir konuyu arz etmek istiyorum ANA SAYFADAKİ "AYLAR" COMBOBOXA BİR İŞLEM YAPMADINIZ ONU KALDIRALIM MI..? SAYGI VE SELAMLARIMLA...

Merhaba carilere toplu borçlandırma yapa bilirmiyiz

Hocam programı için bu kadar emek vermişsiniz yani sonuna kimi yazsaydiz iyi olurdu ben yazmağı başladım bölüm 5 yim birde bakdım bu programın sonu yok tam bir program toparlamacam😢durdum .Hocam bu benim fikrimdir bende isterdim sizin videolarına RUclips kanalına az olsa destek verim videolarına sonuna kimi bakım yani bir programı yazmağı baştamışsanız sonuna kimi 200 video olsa ben hepsini yazacam videolarınada sonuna kimi bakıram

Hocam kusura bakmayın ne olur.Gönderdiğiniz kodlarla da hesaplama olmadı..Mailinize attım hocam... Bakarsanız çok sevinirim...Hocam bana düzeltilmiş halini atamaz mısınız..?

Hocam mailinize bakar mısınız lütfen...Kaldım burada ve bundan sonraki videoda...Hesaplama olmuyor.Kodları 5 defa kontrol ettim...

Hocam size mail attım mail adresinize bakar mısınız lütfen...

Hocam bu programın kalan bölümleri gelecekmi

❤❤❤

Super olmuş Hocam elerne üreyne salık ❤❤❤🙏🙏🙏

Üstat emeğine sağlık. Sizinle birlikte merak ettiğim bir çok konuyu öğreniyorum. Teşekkürler...

Cari Alacak verecekte döküman Vardı ne güzel bu ve Fatura Takipte de yok mu acaba :)

Videoda gösterdiğiniz DTPicker ekleme, özellik ekleme listesinde çıkmıyor. Bunun çözümü nedir? Emeğinize sağlık.

hocam ellerinize sağlık çok güzel bi uygulama olmuş nasıl indirebilirim

Hocam yazı karakterini değiştirseniz nasıl olur.Bu karakterde harfler tam net görünmüyor videonun kalitesinden dolayı...mesela "Trebuchet Ms" çok güzel görülüyor...

Merhaba değerli Hocam, Senet Kayıt formunda ; Private Sub UserForm_Activate() txtIslemTarihi.Value = Date If frmSenetKayit.islem = "alinansenet" Then txtSenetKodu.Value = "asenet0000" & Sheets("Ayarlar").Range("H2").Value + 1 End If If frmSenetKayit.islem = "verilensenet" Then txtSenetKodu.Value = "vsenet0000" & Sheets("Ayarlar").Range("I2").Value + 1 End If End Sub prodesüründe "asenet" kodu forma geliyor fakat "vsenet" kodu forma gelmiyor sebebi nedir hocam...

Hocam sizi tekrar rahatsız ediyorum.Ne olur kusura bakmayın.Bu bölümü bir türlü geçemiyorum.Bu seferde GÜNCELLEME yaptığımda bende aynı tarihe 2 tane güncelleme yapıyor.Kodları sizinle beraber yaptım ve şu an 3. kontrol edişim nedenini bir türlü bulamadım..Örnek olarak: TARİH SAAT ÇEK KODU KEŞİDE YERİ VADE TARİHİ ÇEK TUTARI ÇEK DURUMU 28.03.2024 01:12 ACek001 ANKARA 11.01.2024 5750 ÖDENMEDİ 28.03.2024 01:14 ACek001 ANKARA 11.01.2024 5000 ÖDENMEDİ 28.03.2024 14:47 ACek001 ANKARA 11.01.2024 5750 ÖDENMEDİ güncellemenin saatleri bile farklı oluyor..Bende bu şekilde görünüyor hocam...01.12 ve 01:14 gece yapmıştım 14:47 yazanı yeni yaptım...rakam 4800 idi... neyi kontrol etmeliyim Hocam...

Merhaba değerli hocam, sizinle birlikte buraya kadar kodları sorunsuz bir şekilde yaparak geldim örnekleri sizinle birlikte yaptım.Fakat bu videonun 21:52 dakikasına kadar herşey iyi idi siz güncelleme yaptınız çeklerde ben bir türlü yapamıyorum ve tam 3 defa aynı yere kadar videoyu tekrar tekrar izledim kodlarda bir yanlışlık yok bende sürekli olarak "Kod tanımlamadı" mesajı geliyor.Hatanın neden kaynaklandığını bir türlü bulamadım...Çalışma için çok teşekkür ederim.Bu konu hakkında yardımcı olursanız çok sevineceğim...Kalbi selamlarımla...

Hocam sorunu çözdüm... :))

Merhaba Hocam,sizi ilgi ile izliyorum..Diğer programda size mesaj bıraktım ama bilemiyorum olumlu dönüş alamadım... Evet değerli hocam bu seride de şimdi bir sırun yaşıyorum.Cari Kayıt formunda excel sayfasına il ve ilçeleri yazdığımda formun açılışı 30 saniye sonra açılıyor.Kodları iki defa kontrol ettim ama değişen bir şey olmuyor.İl ve ilçeleri excel sayfasından silince hemen açılıyor.Sebebini bir türlü anlayamadım...İyi akşamlar diliyorum.

Hocam bu " YAZDIR" butonlarını yapmadık...

Hayırlı günler Hocam,Cari Listesi formunda bir cari seçmeden "Güncelle" dediğimde "özellik listesi alınamadı. geçersiz özellik dizisi dizini" hata mesajı alıyorum...Ama cari seçtiğimde olmuyor.Ne yapmalıyım Hocam...

Sub CariHareketleri() txtToplamBorc.Value = Format(Sheets("CariHareketleri").Range("S2").Value, "#,##0.00") & " TL" txtToplamAlacak.Value = Format(Sheets("CariHareketleri").Range("T2").Value, "#,##0.00") & " TL" bu şekilde yapınca oluyor hocam...

Hocam AnaFormun btnYenile'nin kodları yok...

Hocam program için çok teşekkür ederim.Emeğinize ve bilginize sağlık...Fakat biz sayfaların başlıklarını ve formülleri tam giremedik.Yeni öğrenen ve meraklı biri olarak yardımcı olursanız çok sevinirim. Birde RAPOR SAYFALARINI YAPMAYACAK MISINIZ..?

hocam merhabalar, yapmış olduğunuz programın kullanıcı adı ve şifresinde hata alıyorum. alper-123456 diye yazdığımda açılmıyor.

"iskontoyuzde = (txtUrunIskontoYuzde.Value * (1 / 100))" satırında bende sürekli "tür uyumsuzluğu" hata mesajı veriyor.

Videodaki örneğinizde ara toplam 500 tl %20 kdv'si 100 tl yapar ama videoda 95 görünüyor.ve toplam tutar da 575 olması lazım...