userform oluşturmak için yardım istiyorum

[ormanci_50]

merhaba
arkadaşlar biraz uğraştım fakat yapamadım sizden yardım rica ediyorum.
iyi çalışmalar

 

[Ziynettin]

Merhaba,
Kapat butonuna yazılacak kod

Private Sub CommandButton2_Click()
Unload UserForm1
End Sub

Kaydet butonuna kod,

Private Sub CommandButton1_Click()
Worksheets("ORDER").Select
If Range("A29").Value = 18 Then
MsgBox "Listeniz 18 satır."
Exit Sub
GoTo devam
End If
Range("B12").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
With ActiveCell
ActiveCell = TextBox1.Text
.Offset(0, -1) = .Row - 11
.Offset(0, 3) = TextBox3.Text
.Offset(0, 4) = TextBox4.Text
.Offset(0, 14) = TextBox5.Text
.Offset(0, 15) = TextBox6.Text
.Offset(0, 16) = TextBox7.Text
.Offset(0, 19) = TextBox8.Text
End With
devam:
MsgBox "İşlem tamam", vbInformation
End Sub

Kayıt değiştir butonuna yazılacak kod hangi krıtere göre olcak?