Yapay Zeka Yardımıyla Program Yazma- DERS-1
Вставка
- Опубліковано 8 вер 2024
- Üyelere özel eğitimleri görmek için kanala katılın
/ @bstyazilim
#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
Ü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
Teşekkürler
vermiş oldugunuz bilgilerden dolayı cok tesekkür ederim hocam
Emeğinize sağlık hocam. Bu seriyi bir proje dahilinde adım adım çekseniz daha makbule geçer diye düşünüyorum.
Çok teşekkürler
Hocam sizin yaptığınız çalışmalar için pro uyelikmi gerekiyor
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ı ???
O değilde beni UA-cam ün yapay zekası şaşırtıyor sesleri alt yazıya çeviriyor anlayamadıklarını da hatalı çeviriyor.
Macrodan kod çalma, Chatgpt den kod çalmaya evrilmiş :D
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ı.
gerçekten müthiş birşey birçok kod yazdırdım başka türlü hayatta yapamazdım