Yapay Zeka Yardımıyla Program Yazma- DERS-1

Üyelere özel eğitimleri görmek için kanala katılın

#excel tutoring #vba excel #visual basic #excel vba #excel macro #zoho crm
#vba macros in excel #vba for beginners #excel vba tutorial
#php #mysql #yazılım #yazılım #programlama #programcı #kod #kodlayıcı #kodlama #geliştirici #excelvba # vba #vba programing
#fullstack #fullstackdeveloper #python #javascript #programminglife #github #webdeveloper #codinglife0dan #kodlama #javadeveloperbilgisayar
#yazilimmuhendisligi #yazilimogren #yazilimci #yazilimoloji #yazilimcigenclik #yazilimcikafasi #yazılımgeliştirme #yazilimciolmakistiyorum #yazılımcı #bilgisayarmühendisliği
#bilgisayar #bilgisayarprogramcılığı #cod #softwareengineer #computerengineeringi̇nsanı #yazılım #programlamabir #computerengineer #csharp #csharpprogramming
#csharpdotnet #csharpdeveloper #csharpcode #csharpcoder #programming #womanengineer #engineerwoman #finers #codingdays #dev_girls
#programmerlife #stackoverflow #worldcode #codeismylife #codinglife #backanddeveloper #tren8283herkes #codinglifearaç #corsa #opel
#duman #dumanspec #istanbul #bursa #ankaraherkes #yazılımmühendisliği #kod #html #java #programlama
#bilgisayarburak #tbt #asüybs #asüteknokid #asü #aksarayüniversitesi #aksaray #somuncubaba #likes #likeforlikes
#discovery #style #love #photodaily #followforfollowback #pazar #nevsehir #ıhlaravadisi #teknoloji #ybs
#soft #kodlamaeğitimi #ios #program
#evdekorasyonu #evim @megusanet #evimgüzelevim #evdekorasyon #evyapımı #evtekstili #evhediyesi #eğitim #egitim #eğitimi @megusanet #egitimbilimleri #eğitimşart #eğitimfakültesi #egitimsart #film #filmtavsiyesi #filmönerisi @megusanet #filmreplikleri #filmler #müzik #muzik #müzikal @megusanet #müzikkutusu #muzikal #müzikkeyfi #müziksizolmaz #kitap #kitaplık #kitapaşkı #kitapagaci #kitapsever #kitapkokusu #kitapoku #kitapokuyorum #kitapayraci #kitaptavsiyesi @megusanet #kitapkurdu #kitapkardeşliği #kitaplar #kitapyurdu #kitapaski #fotografturkiye #kedi #kedicikler #kedimanyaklari @megusanet #kedisahiplendirme #kedim #kediaşkı #kediler #kediseverler #kedicik #köpek #kopek #köpekler #köpekcik @megusanet #köpekaşkı #köpekeğitimi #köpekdostları #kopekler
#tarih #tarihi #tarihtebugün @megusanet #tarihiyarımada #tarihiasansör #tarihieser #tarihiyarimada
#tasarım #tasarim #tasarımcı @megusanet #tasarımlar #tasarımı #tasarimci #tasarimlar #tasarımpasta
#tasarımürünler #tasarimpasta #tasarımkurabiye
#tatil #tatili #tatile #tatill @megusanet #tatilde #tatilin #tatilden #tatildeyiz #tatilbaşlasın #tatilhicbitmesin
#tatildenkalanlar #tatiller #tatilkeyfi #tatilhiçbitmesin #tatiledevam #tatilmodu #tatilzamanı #tatilbitti #tatilbiter #tatilkafası
#yemek #yemektarifleri @megusanet #yemektakimi #yemekneredeyenir #yemekler #yemekte #yemektakip #yemekmasasi #yemekgram #yemekgünlüğü #yemekyemek #yemekfotografcilig #yemekteyiz
#yemekblogu #yemekcom #yemekdeyemek @megusanet #yemekodasi #yemektakımı
#çocuk #cocuk #çocuklar #çocukluk #çocuklu #cocuklar #çocukolmak #çocukla #cocukluk #çocuklara
#çocukları #çocukluğu #çocukgiyim @megusanet #çocukkitapları #çocukgelişimi #cocukodasi #çocuklarla #cocukgiyim #çocuklariçin #cocukgelisimi #cocuklugum #cocukolmak #çocukbayramı #çocukmodası @megusanet #çocukluktan
#cocuklari #cocuklarim #cocukkitaplari
#boncuk #boncuklu @megusanet #boncukkaynak #boncukgöz #boncuklar #boncukgozlum
#gelinlik #gelinlikmodelleri #gelinlikci @megusanet #gelinlikler #gelinlikmodeli #gelinlikaski #gelinlikhollanda
#gelin #gelinbaşı #gelinsaçı #gelinayakkabısı #gelintaci #gelinim #gelindamat #gelinler #gelintacı
#gelincik #gelinsaci #gelinaksesuarı @megusanet #gelinçiçekleri #gelinbuketi #gelinçiçeği #gelinbasi
#makyaj #makyajblogu #makyaji #makyajblog @megusanet #makyajı #makyajsız #makyajvideoları #makyajmasası
#makyajtrendi #makyajmalzemesi #makyajsiz #makyajaski #makyajsever #makyajgunlugu
#makyajblogum #makyajcantasi #makyajdelisi #makyajaşkı #makyajblogger #makyajkutusu
#kuaför #kuafor #kuaförü @megusanet #kuaförde #kuaförler #kuaförüm
#sanat #sanatı #sanatetkinligi #sanatci #sanatçı #sanattarihi #sanatsal #sanatetkinliği #sanateseri
#sanatevi #sanatsokağı #sanatmerkezi
#kozmetik #kozmaetiksatisi @megusanet #kozmetiksatis #kozmetikblogu #kozmetikvar #kozmetikpasaji
#gezi #geziyoruz #gezinti @megusanet #gezilecekyerler #geziyorum #gezisi #geziyoz #gezimiz
#yaz #yazdankalmabirgün #yazmodası @megusanet #yazlık #yazgelsinartık #yazdankalma #yazgelsin #yazgeliyor
#yazlik
#teknoloji #teknolojik #teknolojikanneler

[omerfarukyilmaz]

Üstat harbi kralsın sayende excelde istediğim programı yazıyorum izlemeyenler için excelde muhasebe programı yazdığı video serisini izlemenizi tavsiye ediyorum
Emeğine sağlık

[enginercan]

vermiş oldugunuz bilgilerden dolayı cok tesekkür ederim hocam

[CEYLAN]

Emeğinize sağlık hocam. Bu seriyi bir proje dahilinde adım adım çekseniz daha makbule geçer diye düşünüyorum.

[husrevkpcak]

Hocam sizin yaptığınız çalışmalar için pro uyelikmi gerekiyor

[MehmetSDemir]

hocam merhaba, uzun zamandır ara verdik tekrar başlasak iyi olur. Excel VBA-SQL dersleri yarım kaldı, 19. dersten sonra yayın olmadı, . Böyle bir düşünceniz var mı ???

[MehmetŞentürk-qi]

O değilde beni YouTube ün yapay zekası şaşırtıyor sesleri alt yazıya çeviriyor anlayamadıklarını da hatalı çeviriyor.

[ProGaming]

sağol hocam Chatgpt mucize bir şey sadece ne istediğini tam olarak anlatabilmek önemli


Private Sub bul_Click()
Dim aranan As String
aranan = Trim(TextBox1.Text) ' TextBox1'den veriyi al, başındaki ve sonundaki boşlukları sil

If Len(aranan) <> 11 Or Not IsNumeric(aranan) Then
MsgBox "Geçerli 11 karakterli T.C. Kimlik Numarası giriniz!", vbExclamation, "Uyarı"
Else
Dim bulunanHücre As Range
On Error Resume Next
Set bulunanHücre = Sheets("Sahisbilgileri").Columns("A").Find(What:=aranan, LookIn:=xlValues, LookAt:=xlWhole)
On Error GoTo 0

If Not bulunanHücre Is Nothing Then
MsgBox "Kayıt bulundu!", vbInformation, "Bilgi"
TextBox2.Value = Sheets("Sahisbilgileri").Cells(bulunanHücre.Row, 2).Value
TextBox3.Value = Sheets("Sahisbilgileri").Cells(bulunanHücre.Row, 3).Value
TextBox4.Value = Sheets("Sahisbilgileri").Cells(bulunanHücre.Row, 4).Value
TextBox5.Value = Sheets("Sahisbilgileri").Cells(bulunanHücre.Row, 5).Value
TextBox6.Value = Sheets("Sahisbilgileri").Cells(bulunanHücre.Row, 6).Value
TextBox7.Value = Sheets("Sahisbilgileri").Cells(bulunanHücre.Row, 7).Value
TextBox8.Value = Sheets("Sahisbilgileri").Cells(bulunanHücre.Row, 8).Value
Label1.Caption = Sheets("Sahisbilgileri").Cells(bulunanHücre.Row, 9).Value
Else
Dim cevap As VbMsgBoxResult
cevap = MsgBox("Kayıt bulunamadı! Şahıs kaydı gerçekleştirmek istiyor musunuz?", vbExclamation + vbYesNo, "Uyarı")
If cevap = vbYes Then
Unload frmsahisbul 'Bul sayfasını kapa
UserForm1.Show ' UserForm1 adlı formu aç
End If
End If
End If
End Sub

bu işlemi chatgpt sağolsun yaptı.

[MEDKiT]

Macrodan kod çalma, Chatgpt den kod çalmaya evrilmiş :D