Macros
Download as DOCX, PDF0 likes35 views
The document contains VBA code for a userform with 6 text boxes and 2 option buttons. The code in SubCommandButton1_Click clears all text boxes when clicked. SubCommandButton2_Click validates that all text boxes contain text, then writes the text box values to a spreadsheet. It also writes a formula to the next column based on the selected option button, clears the text boxes, and displays a confirmation message.
Macros
- 1. Private SubCommandButton1_Click() UserForm1.TextBox1.Value ="" UserForm1.TextBox2.Value ="" UserForm1.TextBox3.Value ="" UserForm1.TextBox4.Value ="" UserForm1.TextBox5.Value ="" UserForm1.TextBox6.Value ="" End Sub Private SubCommandButton2_Click() If TextBox1= "" Or TextBox2= "" Or TextBox3= "" Or TextBox4= "" Or TextBox5= "" Or TextBox6= "" ThenMsgBox "¡¡Cuidado!!Faltancamposporllenar",vbInformation,"Errorde captura" Else Range("A"&Cells.Row.Count).End(x1Up).Offset(1).Select ActiveCell =TextBox1.Value ActiveCell.Offset(0,1) = TextBox2.Value ActiveCell.Offset(0,2) = TextBox3.Value ActiveCell.Offset(0,3) = TextBox4.Value ActiveCell.Offset(0,4) = TextBox5.Value ActiveCell.Offset(0,5) = TextBox6.Value If OptionButton1.Value ="Verdadero"Then ActiveCell.Offset(0,6).FormulaR1C1= "20" End If If OptionButton2.Value ="Verdadero"Then ActiveCell.Offset(0,6).FormulaR1C1= "0" End If MsgBox "ContactoGuardadocon Exito",vbOKOnly,"Registro" TextBox1= "" TextBox2= "" TextBox3= "" TextBox4= "" TextBox5= "" TextBox6= "" End If