Kod:
CommandButton1.Visible = True
CommandButton3.Visible = False
CommandButton4.Visible = False
ComboBox1 = Empty: ComboBox2 = Empty: ComboBox3 = Empty: ComboBox4 = Empty: ComboBox5 = Empty: ComboBox6 = Empty: ComboBox7 = Empty: ComboBox8 = Empty
TextBox1 = Empty: TextBox2 = Empty: TextBox3 = Empty: TextBox4 = Empty: TextBox5 = Empty: TextBox6 = Empty: TextBox7 = Empty
ListBox1.Clear
End Sub
Private Sub CommandButton3_Click()
Sheets("Data").Select
If MsgBox("Bilgiler Değiştirilsin mi ?", vbQuestion + vbYesNo, " BİLGİLER DEĞİŞTİRİLECEK") = vbNo Then: Exit Sub
Sheets("Data").Range("B" & ComboBox8.ListIndex + 2) = ComboBox1.Value
Sheets("Data").Range("C" & ComboBox8.ListIndex + 2) = CDate(TextBox1.Text)
Sheets("Data").Range("D" & ComboBox8.ListIndex + 2) = ComboBox2.Value
Sheets("Data").Range("E" & ComboBox8.ListIndex + 2) = TextBox2.Value
Sheets("Data").Range("F" & ComboBox8.ListIndex + 2) = TextBox3.Value
Sheets("Data").Range("G" & ComboBox8.ListIndex + 2) = ComboBox3.Value
Sheets("Data").Range("H" & ComboBox8.ListIndex + 2) = TextBox4.Value
Sheets("Data").Range("I" & ComboBox8.ListIndex + 2) = TextBox5.Value
Sheets("Data").Range("J" & ComboBox8.ListIndex + 2) = TextBox6.Value
Sheets("Data").Range("K" & ComboBox8.ListIndex + 2) = Format(TextBox7, "#,##0.00")
Unload UserForm1
End Sub