Tam anladıysam eğer kaydetme olayı için dediniz.


Exit Sub vardı Exit For yaptım 55.satırdaki alttaki kod için ve

'Unload Me

'UserForm1.Show

bunları pasip aptım tamamı altta kodların.

Private Sub CommandButton1_Click()

If TextBox5.Value & TextBox6.Value & TextBox67.Value & TextBox8.Value = "" Then



ActiveSheet.Unprotect "123"

If TextBox1 = "" Then

MsgBox "...!!!.LÜTFEN TARÝHÝ GÝRÝNÝZ.!!!...", vbInformation

Exit Sub: End If



If ComboBox3 = "" Then

MsgBox "...!!!.LÜTFEN AÇIKLAMA GÝRÝNÝZ.!!!...", vbInformation

Exit Sub: End If



On Error Resume Next

ActiveSheet.ShowAllData

If ActiveSheet.AutoFilterMode Then ActiveSheet.Range("A1").AutoFilter Field:=1

On Error Resume Next

Dim i As Integer, ts

For i = 7 To 32000

If (ActiveSheet.Cells(i, 1) = "") Then

ActiveSheet.Cells(i, 2) = CDate(TextBox1)

ActiveSheet.Cells(i, 3) = TextBox30

ActiveSheet.Cells(i, 4) = ComboBox3

ActiveSheet.Cells(i, 5) = TextBox2.Text * 1

ActiveSheet.Cells(i, 6) = TextBox4.Text * 1

ActiveSheet.Cells(i, 11) = TextBox3.Text * 1



ts = Range("B" & Rows.Count).End(xlUp).Row

Range("A7") = 1

Range("A7:A" & ts).DataSeries rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Trend:=False

MsgBox "KAYIT YAPILDI!...", vbOKOnly + vbInformation, "Bilgi Ekleme"

ActiveSheet.PageSetup.PrintArea = "$A$1:$K$" & [A65536].End(3).Row

Range("A65535").End(xlUp).Offset(1, 0).Select

TextBox1.SetFocus

'Unload Me

'UserForm1.Show

TextBox1.Text = CDate(Date) 'Form Açýlýþta otomatik tarih



Me.ComboBox3 = ""

Me.TextBox2 = ""

Me.TextBox3 = ""

Me.TextBox4 = ""

Me.TextBox30 = ""



Me.TextBox5 = ""

Me.TextBox6 = ""

Me.TextBox7 = ""

Me.TextBox66 = ""

Me.TextBox67 = ""

Me.TextBox8 = ""

Me.TextBox9 = ""

Me.TextBox28 = ""

Me.TextBox78 = ""

Me.TextBox79 = ""



Exit For

End If



'UserForm Temizle baþý

    ' Me.ComboBox3 = ""

    'Me.TextBox2 = ""

    'Me.TextBox3 = ""

    'Me.TextBox4 = ""

    'Me.TextBox30 = ""

    'End If

Next

'UserForm Temizle sonu





ActiveSheet.Protect "123"

'CommandButton2_Click

'TextBox1.Text = [P1]

'TextBox2.Text = [Q1]

'TextBox2.Text = [K4]

'TextBox3.Text = [L7]

'TextBox4.Text = [M1]

UserForm_Initialize

ListBox1.ListIndex = [A65536].End(3).Row - 1 'LÝSTBOX A SON BOÞ SATIR EKLER

ListBox1.ListIndex = ListBox1.ListCount - 1 'ListBoxýn son satýrýna gider.'

Range("A65535").End(xlUp).Offset(1, 0).Select 'Son boþ satýra gider



'TextBox31.Text = CDate(Date) 'Form Açýlýþta otomatik tarih





Exit Sub

'End If

'Next i

Else

MsgBox "...!!!.LÜTFEN PERSONEL ÖDEMELERÝ VEYA TEDARÝKÇÝLER ÝLE BÝLGÝLERÝ GÝRÝNÝZ, MESAÝ BÝLGÝLERÝNÝ GÝRMEYÝNÝZ.!!!...", vbInformation

End If

ThisWorkbook.Save

End Sub