Süper bi içerik ve harika anlatım. Hocam ellerinize sağlık bu kadar ayrıntılı bir konuyu öylesine basit ve anlaşılır şekilde anlamışsınız ki, son zamanlarda RUclips üzerinde izlediğim en kaliteli makro içeriği olmuş. Tebrik ederim 👏👏
Hocam ellerinize sağlık. Hemen her eğitiminizde; "Arkadaşlar hazırlık yapmadım." diyorsunuz. Bunun olumsuz olduğunu düşünüyorsunuz. Evet belki Excel konusunda kendisini belli bir seviyeye kadar taşımış olanlar için geçerli olabilir. Ama benim gibi çalışırken karşılaşılabilecek sorunları canlı olarak görmek isteyenler için bir avantaj. Nitekim eğitiminizde gayet doğal bir anlatım tarzı izliyorsunuz. Sanki fiziki olarak aynı ortamda ders veriyormusçasına. Emeğinize sağlık. Başarılarınızın devamını dilerim. 👍
Hocam Merhaba kolay gelsin text lerin tamamını doldurduğumuzda problem olmuyor fakat yarısını doldurup mesela maaşı yazmadığımızda uyarı veriyor tamama basıyorum tekrar doldurmak içi fırsat vermiyor run time error"5" diye bi hata veriyor DEBUNG düğmesine basınca aşagıdaki yazılım Sheets("Personeller").Range("E" & x).Value = FormatCurrency(txtMaas.Value) üzeri sarı çizgi olarak hata veriyor ne yapmalıyım Private Sub btnKaydet_Click() Dim x As Long If txtTcNo.Value = "" Or txtAd.Value = "" Or txtSoyad.Value = "" Or txtMaas.Value = "" Then frmMesaj.lblMesaj.Caption = "Lütfen Bilgileri Eksiksiz Doldurunuz" frmMesaj.Show End If Sheets("Tanimlamalar").Range("B1").Value = Sheets("Tanimlamalar").Range("B1").Value + 1 For x = 2 To 1000000 If Sheets("Personeller").Range("A" & x).Value = "" Then Exit For Next Sheets("Personeller").Range("A" & x).Value = txtPrsNo.Value Sheets("Personeller").Range("B" & x).Value = txtTcNo.Value Sheets("Personeller").Range("C" & x).Value = UCase(txtAd.Value) Sheets("Personeller").Range("D" & x).Value = UCase(txtSoyad.Value) Sheets("Personeller").Range("E" & x).Value = FormatCurrency(txtMaas.Value) Unload Me frmAnaForm.TumPersoneller frmMesaj.lblMesaj.Caption = "Personel Kaydedildi" frmMesaj.Show End Sub
Arkadaşlar maalesef bilgisayarımın üzerine çay döktüm. 2-3 gün boyunca yeni dersler yayinlayamıyacağım. Sizlerden bol bol tekrar yapmanızı farklı örnekler geliştirmenizi istiyorum. Sabırla bir kaç ay sabırla çalışın. Sonrasinda bana dua edeceksiniz
Muhteşem bir anlatım ve muhteşem bir öğreti, gerisi bizlerin zeka becerisine kalmış elbet. Ben sayenizde 126 dairelik bir sitenin ziyaretçi listesini, aidat ve merkezi ısınma ödeme listelerini ve site oturum listesini yetmez site gider ve gelir, ödeme ve ödenen listelerini kusursuz biçimde hayata geçirdim. hekezin sen mi yaptın dediklerinde elbette ki sizleri referans gösterdikten sonra evet diyorum.. YÜREĞİNİZE ve BİLGİNİZE SAĞLIK. ÂLEMLERİN RABBİNE EMANET OLUNUZ. Saygılarımla
Hayırlı Pazarlar diliyorum, sizden ricam dersin devamında bir arama butonu da yapabilir misniz liste içinde eleman saysısı fazla olması durumunda rahatça isme ve aya göre bulabilmemizi kolaylaştıracak. Saygılarımla.
Hocam çok teşekkür ederim baya detaylı anlattınız ben adım adım yaptım dakika 37 de duraksadim hani bu setfocus varya orda noktadan sonra kendim yazdın ondan mı aceba yardımcı olur musunuz.?
Hocam öncelikle elinize sağlık. Anlatımınız çok akıcı ve basit bir şekilde bizlere bilgiyi aktarıyorsunuz. Bu tarz programlar benim işime yaramasa bile inanılmaz ufkumu açıyorsunuz. Ben üyelere özel videolarınızı da görmek istiyorum fakat üye olamıyorum. Bu konuda yardımcı olabilir misiniz? Teşekkür ederim
abi bir yazılım firmasındayım excel biliyorum dedim ama sektöre girdigimden beri bilmiyormuşum nasıl başlayayım abi nereden başlıyayım kanalına abonede oldum ilk neyi ögreneyim exceli ögreneyim yardımcı olur musunuz
Hocam Merhabalar Son kısımda anlattığınız listeme kodunu kesip Private Sub UserForm_Initialize() TumPersoneller End Sub Public Sub TumPersoneller() Dim x As Long For x = 2 To 10000 If Sheets("Personeller").Range("A" & x).Value = "" Then Exit For Next LstPersoneller.ColumnCount = 5 LstPersoneller.ColumnWidths = "150,120,200,200,150" If x > 3 Then LstPersoneller.RowSource = "Personeller!A2:E" & x = -1 Else LstPersoneller.RowSource = "Personeller!A2:E2" End If End Sub olarak dediğimde ilk personeli normal kaydediyor ikinci personeli kaydet tuşuna bastığımda Run-Time error "13" end Debug hatası meydana çıkıyor Kontrol ettiğimde ise If x > 3 Then yazımını 3 değilde 10000 yaptığımda personell kaydetme çalışıyor fakan bu seferde listeleme yapmıyor. Nerde hata yapıyorum çözemedim Yardımcı olur musunuz ?
Public Sub TumPersoneller() Dim x As Long For x = 2 To 1000000 If Sheets("Personeller").Range("A" & x).Value = "" Then Exit For Next lstPersoneller.ColumnCount = 5 lstPersoneller.ColumnWidths = "120,120,150,150,100" If x > 100 Then lstPersoneller.RowSource = "Personeller!A2:E" & x = 1 Else lstPersoneller.RowSource = "Personeller!A2:E" & x End If End Sub Bu şekilde kodu değiştirince hata ortadan kalkıyor
lstPersoneller.RowSource = "Personeller!A2:E" & x - 1 bu satırda fazla bir = yazmışsınız sanırım. Onun dışında ben ColumnWidth ile ilgili mismatch hatası aldım, virgüller yerine noktalı virgül koyarak çözdüm. lstPersoneller.ColumnWidths = "120;120;100;100;100"
@@Th3Pe4c3M4k3R Private Sub UserForm_Initialize() Dim x As Long For x = 2 To 1000 If Sheets("Personel Detay").Range("A" & x).Value = "" Then Exit For Next lstpersonel.ColumnCount = 10 lstpersonel.ColumnWidths = "80,80,100,100,80,80,80,80,80,80" If x > 3 Then lstpersonel.RowSource = "Personel Detay!A2:J" & x - 1 Else lstpersonel.RowSource = "Personel Detay!A2:J2" End If End Sub bu şekilde yazdığım zaman "Run-Time error '380' could not set the rowsource property. Invalid property value. hatası alıyorum. Bunun çözümü nedir?
hocam kolay gelsin If CloseMode = vbFormControlMenu Then Cancel = True formülünü girdikten sonra run-time error subscript out of range hatası veriyor çözüm nedir acaba ?
merhaba Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If closemod = vbFormControlMenu Then Cancel = True End Sub formülünü yazınca unload me formülü de çalışmıyor sorun nedir?
Süper bi içerik ve harika anlatım. Hocam ellerinize sağlık bu kadar ayrıntılı bir konuyu öylesine basit ve anlaşılır şekilde anlamışsınız ki, son zamanlarda RUclips üzerinde izlediğim en kaliteli makro içeriği olmuş. Tebrik ederim 👏👏
You are a genius teacher.
Hocam ellerinize sağlık. Hemen her eğitiminizde; "Arkadaşlar hazırlık yapmadım." diyorsunuz. Bunun olumsuz olduğunu düşünüyorsunuz. Evet belki Excel konusunda kendisini belli bir seviyeye kadar taşımış olanlar için geçerli olabilir. Ama benim gibi çalışırken karşılaşılabilecek sorunları canlı olarak görmek isteyenler için bir avantaj. Nitekim eğitiminizde gayet doğal bir anlatım tarzı izliyorsunuz. Sanki fiziki olarak aynı ortamda ders veriyormusçasına. Emeğinize sağlık. Başarılarınızın devamını dilerim. 👍
Hocam Merhaba kolay gelsin text lerin tamamını doldurduğumuzda problem olmuyor fakat yarısını
doldurup mesela maaşı yazmadığımızda uyarı veriyor tamama basıyorum tekrar doldurmak içi fırsat vermiyor
run time error"5" diye bi hata veriyor DEBUNG düğmesine basınca aşagıdaki yazılım
Sheets("Personeller").Range("E" & x).Value = FormatCurrency(txtMaas.Value)
üzeri sarı çizgi olarak hata veriyor ne yapmalıyım
Private Sub btnKaydet_Click()
Dim x As Long
If txtTcNo.Value = "" Or txtAd.Value = "" Or txtSoyad.Value = "" Or txtMaas.Value = "" Then
frmMesaj.lblMesaj.Caption = "Lütfen Bilgileri Eksiksiz Doldurunuz"
frmMesaj.Show
End If
Sheets("Tanimlamalar").Range("B1").Value = Sheets("Tanimlamalar").Range("B1").Value + 1
For x = 2 To 1000000
If Sheets("Personeller").Range("A" & x).Value = "" Then Exit For
Next
Sheets("Personeller").Range("A" & x).Value = txtPrsNo.Value
Sheets("Personeller").Range("B" & x).Value = txtTcNo.Value
Sheets("Personeller").Range("C" & x).Value = UCase(txtAd.Value)
Sheets("Personeller").Range("D" & x).Value = UCase(txtSoyad.Value)
Sheets("Personeller").Range("E" & x).Value = FormatCurrency(txtMaas.Value)
Unload Me
frmAnaForm.TumPersoneller
frmMesaj.lblMesaj.Caption = "Personel Kaydedildi"
frmMesaj.Show
End Sub
Arkadaşlar maalesef bilgisayarımın üzerine çay döktüm. 2-3 gün boyunca yeni dersler yayinlayamıyacağım. Sizlerden bol bol tekrar yapmanızı farklı örnekler geliştirmenizi istiyorum. Sabırla bir kaç ay sabırla çalışın. Sonrasinda bana dua edeceksiniz
Muhteşem bir anlatım ve muhteşem bir öğreti, gerisi bizlerin zeka becerisine kalmış elbet. Ben sayenizde 126 dairelik bir sitenin ziyaretçi listesini, aidat ve merkezi ısınma ödeme listelerini ve site oturum listesini yetmez site gider ve gelir, ödeme ve ödenen listelerini kusursuz biçimde hayata geçirdim. hekezin sen mi yaptın dediklerinde elbette ki sizleri referans gösterdikten sonra evet diyorum.. YÜREĞİNİZE ve BİLGİNİZE SAĞLIK. ÂLEMLERİN RABBİNE EMANET OLUNUZ. Saygılarımla
Teşekkürler. Çok mutlu oldum.👏👏👏
Hayırlı Pazarlar diliyorum, sizden ricam dersin devamında bir arama butonu da yapabilir misniz liste içinde eleman saysısı fazla olması durumunda rahatça isme ve aya göre bulabilmemizi kolaylaştıracak. Saygılarımla.
Çok güzel başlangıç. Anlaşılır ve kolay anlatımınız için teşekkürler. Yeni bölümü sabırsızlıkla bekliyoruz
Abi Allah senden razı olsun inşallah bir gün personel izin takip programı da çalışırsınız
Eline sağlık çok güzel olmuş bu programın hazır halini meil atabilecekmisin
İndirme linkine de koyarsan sevinirim
Hocam çok işime yaradı kodlarınız teşekkürlerr 👏👏👏👏
Kolay gelsin.Hocam bölüm3 kurtardım yazıp 4 5 bölümləri yazmak isterdim mümkünse Youtbe brakardız.önceden teşekür ederim
abi keşke yaptığın uygulamayı yayınlasan
programlari nasil kayd edib her defasinda kullana biliriz..ben save yapiyorum yeniden girdiyimde yaptiğim program silinmiş oluyor.
Spectacular...👍👏👏
Hocam çok teşekkür ederim baya detaylı anlattınız ben adım adım yaptım dakika 37 de duraksadim hani bu setfocus varya orda noktadan sonra kendim yazdın ondan mı aceba yardımcı olur musunuz.?
Hocam öncelikle elinize sağlık. Anlatımınız çok akıcı ve basit bir şekilde bizlere bilgiyi aktarıyorsunuz. Bu tarz programlar benim işime yaramasa bile inanılmaz ufkumu açıyorsunuz. Ben üyelere özel videolarınızı da görmek istiyorum fakat üye olamıyorum. Bu konuda yardımcı olabilir misiniz? Teşekkür ederim
Çok samimi, hoş.
bu derste tamamdır hocam emeğinize sağlık.hocam ayrıca 2 gündür yeni video yok yoğunsunuz sanırım.
Teşekkür ederim hocam verdiğin bilgiler için çok sagolun
abi bir yazılım firmasındayım excel biliyorum dedim ama sektöre girdigimden beri bilmiyormuşum nasıl başlayayım abi nereden başlıyayım kanalına abonede oldum ilk neyi ögreneyim exceli ögreneyim yardımcı olur musunuz
Kanaldaki dersleri takip edin. Hepsini uygulayın. Başarılar dilerim
Allah razı olsun.
Merhaba bunu paylaşmanız mümkünmüdür ?
Merhaba.
Aynısını kendiniz yazmaya çalışın birlikte daha pek çok farklı programlar yazacağız inşallah. Başarılar..
@@BstYazilim 16 saat çalışıyorum güne keşke zamanım olsa da yapsam
Hocam emeğine sağlık konusunda uzman kişilerden birisiniz sizden çok şeyler öğreniyoruz
Teşekkürler
Hocam Merhabalar
Son kısımda anlattığınız listeme kodunu kesip
Private Sub UserForm_Initialize()
TumPersoneller
End Sub
Public Sub TumPersoneller()
Dim x As Long
For x = 2 To 10000
If Sheets("Personeller").Range("A" & x).Value = "" Then Exit For
Next
LstPersoneller.ColumnCount = 5
LstPersoneller.ColumnWidths = "150,120,200,200,150"
If x > 3 Then
LstPersoneller.RowSource = "Personeller!A2:E" & x = -1
Else
LstPersoneller.RowSource = "Personeller!A2:E2"
End If
End Sub
olarak dediğimde ilk personeli normal kaydediyor ikinci personeli kaydet tuşuna bastığımda
Run-Time error "13" end Debug hatası meydana çıkıyor
Kontrol ettiğimde ise If x > 3 Then
yazımını 3 değilde 10000 yaptığımda personell kaydetme çalışıyor fakan bu seferde listeleme yapmıyor.
Nerde hata yapıyorum çözemedim
Yardımcı olur musunuz ?
Public Sub TumPersoneller()
Dim x As Long
For x = 2 To 1000000
If Sheets("Personeller").Range("A" & x).Value = "" Then Exit For
Next
lstPersoneller.ColumnCount = 5
lstPersoneller.ColumnWidths = "120,120,150,150,100"
If x > 100 Then
lstPersoneller.RowSource = "Personeller!A2:E" & x = 1
Else
lstPersoneller.RowSource = "Personeller!A2:E" & x
End If
End Sub
Bu şekilde kodu değiştirince hata ortadan kalkıyor
lstPersoneller.RowSource = "Personeller!A2:E" & x - 1 bu satırda fazla bir = yazmışsınız sanırım. Onun dışında ben ColumnWidth ile ilgili mismatch hatası aldım, virgüller yerine noktalı virgül koyarak çözdüm. lstPersoneller.ColumnWidths = "120;120;100;100;100"
@@Th3Pe4c3M4k3R Private Sub UserForm_Initialize()
Dim x As Long
For x = 2 To 1000
If Sheets("Personel Detay").Range("A" & x).Value = "" Then Exit For
Next
lstpersonel.ColumnCount = 10
lstpersonel.ColumnWidths = "80,80,100,100,80,80,80,80,80,80"
If x > 3 Then
lstpersonel.RowSource = "Personel Detay!A2:J" & x - 1
Else
lstpersonel.RowSource = "Personel Detay!A2:J2"
End If
End Sub
bu şekilde yazdığım zaman
"Run-Time error '380'
could not set the rowsource property. Invalid property value.
hatası alıyorum. Bunun çözümü nedir?
Hocam 4 cu bolmu yokmu
.
hocam kolay gelsin
If CloseMode = vbFormControlMenu Then Cancel = True formülünü girdikten sonra
run-time error
subscript out of range hatası veriyor çözüm nedir acaba ?
If CloseMode1 then cancel=1 olarak denermisiniz
merhaba
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If closemod = vbFormControlMenu Then Cancel = True
End Sub
formülünü yazınca unload me formülü de çalışmıyor sorun nedir?
closemod closemode olmalı e harfi eksik yazmışsınız.
Başarılar
@@BstYazilim Teşekkür ederim hocam emeğinize sağlık