MsgBox "KAYITLAR DEĞİŞTİRİLMİŞTİR." 'InputBox a parola maskesi sonu

satır = ActiveCell.Row

ListBox1.RowSource = ""

On Error Resume Next

ActiveSheet.Unprotect "4455"

ActiveCell.Offset(0, 1).Value = CDate(TextBox1.Value)

ActiveCell.Offset(0, 2).Value = TextBox2

ActiveCell.Offset(0, 3).Value = ComboBox3.Value

ActiveCell.Offset(0, 4).Value = CDbl(TextBox3.Value)

ActiveCell.Offset(0, 5).Value = CDbl(TextBox4.Value)

ActiveCell.Offset(0, 6).Value = CDbl(TextBox5.Value)

ActiveCell.Offset(0, 7).Value = CDbl(TextBox7.Value)

ActiveCell.Offset(0, 8).Value = CDbl(TextBox9.Value)

ActiveCell.Offset(0, 9).Value = CDbl(TextBox11.Value)

ActiveCell.Offset(0, 10).Value = CDbl(TextBox8.Value)



On Error GoTo 0

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

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