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

[@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.

[@oguzturkyilmaz543]

Çok teşekkürler

[@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 UA-cam ü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