excel de makro uygulamaları

[kutlayozbilgin]

personel dosyası hazırlıyorumda bir tane user form yaptım yalnız fazla visual kodlarını bilmiyorum bul falan kod numarası eklemek istiyorum bu konuda yardımcı olursanız sevinirim tşk. ustadlar ve gerçekten bu konuda çok iyisiniz tebrik ederim dosyam asağıdadır cevaplarınızı bekliyorum

 

[kutlayozbilgin]

ustadlar ne olur yardım edin HELP ME ?

 

[kutlayozbilgin]

hocam ne olursunuz yardım edin birde bu dosyada otomatik kayıt no yu atmasını istiyorum nasıl yapabilirim ve userforma tarih ve saat eklemek istiyorum

 

[Orion1]

Merhaba.
Kayıt no yu girip arama yapabiliyorsunuz.
Tarih ve saatte gösteriliyor.
Ekli dosyayı inceleyiniz.

 

[kutlayozbilgin]

hocam kayıt numarasını tabloya otomatik atmasını sormuştum yoksa kayıt no ile arama yapınca her tabloda farklı kayıt no gelicektir buda sorun olur ama güzel olmuş çok tşk ederim birde otomatik kodno nasıl atabilirm söylerseniz sevinirim

 

[Orion1]

hocam kayıt numarasını tabloya otomatik atmasını sormuştum yoksa kayıt no ile arama yapınca her tabloda farklı kayıt no gelicektir buda sorun olur ama güzel olmuş çok tşk ederim birde otomatik kodno nasıl atabilirm söylerseniz sevinirim

Şimdi ad ve soyad girerek ad arama yapabilirsiniz.
Ve sıra numarasıda kayıt yaparken otomatik veriliyor.

Private Sub CommandButton3_Click()
Dim ad As String, syfad As String, k As Long
If TextBox1.Value = "" Or TextBox2.Value = "" Then
MsgBox "Arama yapabilmek için Ad ve Soyad girmelisiniz.", vbCritical
TextBox1.SetFocus
Exit Sub
End If
ad = TextBox1.Value & TextBox2.Value
For i = 1 To Worksheets.Count
    If Sheets(i).Name <> "MENU" Then
        For k = 4 To Sheets(i).Cells(65536, "B").End(xlUp).Row
            syfad = Sheets(i).Cells(k, "B").Value & Sheets(i).Cells(k, "C").Value
            If UCase(Replace(Replace(ad, "ı", "I"), "i", "İ")) = UCase(Replace(Replace(syfad, "ı", "I"), "i", "İ")) Then
                TextBox1.Value = Sheets(i).Cells(k, "B").Value
                TextBox2.Value = Sheets(i).Cells(k, "C").Value
                TextBox3.Value = Sheets(i).Cells(k, "D").Value
                TextBox4.Value = Sheets(i).Cells(k, "E").Value
                ComboBox1.Value = Sheets(i).Cells(k, "G").Value
                GoTo bulundu
            End If
        Next k
    End If
Next i
bulundu:
End Sub