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

[@omerfarukyilmaz7844]

Ü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

[@BstYazilim]

Teşekkürler

[@enginercan7485]

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

[@oguzturkyilmaz543]

Çok teşekkürler

[@CEYLAN64]

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

[@husrevkpcak1755]

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-q3i]

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

[@MEDKiT90]

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

[@ProGaming55]

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ı.

[@GoatEnnerValencia]

gerçekten müthiş birşey birçok kod yazdırdım başka türlü hayatta yapamazdım