Soru Form ile Güncelle / Kaydet

[sirkülasyon]

If Label41.Caption = "Bordro Sayfasında Kayıtlı" Then
    For i = 4 To Sheets("Bordro").Cells(Rows.Count, "D").End(xlUp).Row
        If Sheets("Bordro").Cells(i, "D").Value = TextBox3.Value Then
            Sheets("Bordro").Cells(i, "B").Value = ComboBox2.Value
            Sheets("Bordro").Cells(i, "C").Value = TextBox2.Value
            Sheets("Bordro").Cells(i, "D").Value = TextBox3.Value
            Sheets("Bordro").Cells(i, "E").Value = TextBox4.Value
            Sheets("Bordro").Cells(i, "F").Value = TextBox5.Value
            Exit For
        End If
    Next i
Else
    For i = 4 To Sheets("Bordro").Cells(Rows.Count, "B").End(xlUp).Row
        If Sheets("Bordro").Cells(i, "B").Value = "" Then
            Sheets("Bordro").Cells(i, "B").Value = ComboBox2.Value
            Sheets("Bordro").Cells(i, "C").Value = TextBox2.Value
            Sheets("Bordro").Cells(i, "D").Value = TextBox3.Value
            Sheets("Bordro").Cells(i, "E").Value = TextBox4.Value
            Sheets("Bordro").Cells(i, "F").Value = TextBox5.Value
            Exit For
        End If
    Next i
End If

Selamün Aleyküm
Yapmak istediğim olay şu: Commandbutton1 ile
Label41' de "Bordro Sayfasında Kayıtlı" ibaresi var ise
Bordro sayfasında Textbox3 de yazılı T.C. kimlik numarasını D sütununda ara bul GÜNCELLE
Eğer Label41' de "Bordro Sayfasında Kayıtlı" ibaresi Yok ise
Bordro sayfasında İlk boş satırın altına gelecek şekilde KAYDET
Ayrıca
Kayıt 65 kişiye kadar yapılacak. 65' ten fazlasını kaydetmeyecek
A sütununa da kayıt ettikçe sıra numarası verecek
Yardımcı olabilir misiniz?

 

[omerap06]

hocam youtubeda detaylı videoları var baştan aşşağı anlatan ordan izlemenizi tavsiye ederim

 

[sirkülasyon]

Link verebilir misiniz

 

[omerap06]

bu hoanın 2. Ve 3. Videolarıda var mutlaka bak

 

[sirkülasyon]

Teşekkür ederim