Saludos, Como puedo resumir este codigo? Muchas Gracias
publicado
Saludos, soy muy nuevo, reciente, en la programacion con VBA de Excel, es muy apasionante, pero como todo que comienza debe ser investigado y aprendido, por favor, el codigo adjunto funciona bien, solo quisiera saber como resumirlo, Muchisimas gracias.
Ademas, desearia saber como escribir texto en un textbox, al dar enter pasa a otro textbox, al enter otra vez pasar estos textos a la hoja de calculo y verlos tipo lista en un tercer textbox del mismo userform, me explico? introducir datos en dos textbox consecutivamente, al dar enter en el segundo pasaran los datos a la hoja de calculo y reflejados en el tercer textbox, se retorna al textbox 1 de nuevo y se repite la entrada de datos, los nuevos datos seran escritos consecutivamente en el tercer textbox y en la hoja de calculo, llenando celdas en dos columnas, tipo lista que se va llenando.
Muchas Gracias
Private Sub CommandButton11_Click() If ToggleButton1.Value = True Then ToggleButton1.Value = False If ToggleButton2.Value = True Then ToggleButton2.Value = False If ToggleButton3.Value = True Then ToggleButton3.Value = False If ToggleButton4.Value = True Then ToggleButton4.Value = False If ToggleButton5.Value = True Then ToggleButton5.Value = False If ToggleButton6.Value = True Then ToggleButton6.Value = False If ToggleButton7.Value = True Then ToggleButton7.Value = False If ToggleButton8.Value = True Then ToggleButton8.Value = False If ToggleButton9.Value = True Then ToggleButton9.Value = False If ToggleButton10.Value = True Then ToggleButton10.Value = False If ToggleButton11.Value = True Then ToggleButton11.Value = False If ToggleButton12.Value = True Then ToggleButton12.Value = False If ToggleButton13.Value = True Then ToggleButton13.Value = False If ToggleButton14.Value = True Then ToggleButton14.Value = False If ToggleButton15.Value = True Then ToggleButton15.Value = False If ToggleButton16.Value = True Then ToggleButton16.Value = False If ToggleButton17.Value = True Then ToggleButton17.Value = False If ToggleButton18.Value = True Then ToggleButton18.Value = False If ToggleButton19.Value = True Then ToggleButton19.Value = False If ToggleButton20.Value = True Then ToggleButton20.Value = False If ToggleButton21.Value = True Then ToggleButton21.Value = False If ToggleButton22.Value = True Then ToggleButton22.Value = False If ToggleButton23.Value = True Then ToggleButton23.Value = False If ToggleButton24.Value = True Then ToggleButton24.Value = False If ToggleButton25.Value = True Then ToggleButton25.Value = False If ToggleButton26.Value = True Then ToggleButton26.Value = False If ToggleButton27.Value = True Then ToggleButton27.Value = False If ToggleButton28.Value = True Then ToggleButton28.Value = False If ToggleButton29.Value = True Then ToggleButton29.Value = False If ToggleButton30.Value = True Then ToggleButton30.Value = False If ToggleButton31.Value = True Then ToggleButton31.Value = False If ToggleButton32.Value = True Then ToggleButton32.Value = False If ToggleButton33.Value = True Then ToggleButton33.Value = False If ToggleButton34.Value = True Then ToggleButton34.Value = False If ToggleButton35.Value = True Then ToggleButton35.Value = False If ToggleButton36.Value = True Then ToggleButton36.Value = False If ToggleButton37.Value = True Then ToggleButton37.Value = False If ToggleButton38.Value = True Then ToggleButton38.Value = False If ToggleButton39.Value = True Then ToggleButton39.Value = False If ToggleButton40.Value = True Then ToggleButton40.Value = False If ToggleButton41.Value = True Then ToggleButton41.Value = False If ToggleButton42.Value = True Then ToggleButton42.Value = False If ToggleButton43.Value = True Then ToggleButton43.Value = False If ToggleButton44.Value = True Then ToggleButton44.Value = False If ToggleButton45.Value = True Then ToggleButton45.Value = False If ToggleButton46.Value = True Then ToggleButton46.Value = False If ToggleButton47.Value = True Then ToggleButton47.Value = False If ToggleButton48.Value = True Then ToggleButton48.Value = False If ToggleButton49.Value = True Then ToggleButton49.Value = False If ToggleButton50.Value = True Then ToggleButton50.Value = False If ToggleButton51.Value = True Then ToggleButton51.Value = False If ToggleButton52.Value = True Then ToggleButton52.Value = False If ToggleButton53.Value = True Then ToggleButton53.Value = False If ToggleButton54.Value = True Then ToggleButton54.Value = False If ToggleButton55.Value = True Then ToggleButton55.Value = False If ToggleButton56.Value = True Then ToggleButton56.Value = False If ToggleButton57.Value = True Then ToggleButton57.Value = False End Sub
Private Sub CommandButton12_Click() If ToggleButton46.Value = False Then ToggleButton46.Value = True If ToggleButton47.Value = False Then ToggleButton47.Value = True If ToggleButton48.Value = False Then ToggleButton48.Value = True If ToggleButton49.Value = False Then ToggleButton49.Value = True If ToggleButton50.Value = False Then ToggleButton50.Value = True If ToggleButton51.Value = False Then ToggleButton51.Value = True If ToggleButton52.Value = False Then ToggleButton52.Value = True If ToggleButton53.Value = False Then ToggleButton53.Value = True If ToggleButton54.Value = False Then ToggleButton54.Value = True If ToggleButton55.Value = False Then ToggleButton55.Value = True If ToggleButton56.Value = False Then ToggleButton56.Value = True If ToggleButton57.Value = False Then ToggleButton57.Value = True End Sub
Private Sub TextBox1_Change() Dim cell As Range For Each cell In Worksheets("userformdata").Range("D2:D31") If cell.Value = True Then cell.Offset(, 1).Value = TextBox1.Value Next cell End Sub
Private Sub TextBox2_Change() Dim cell As Range For Each cell In Worksheets("userformdata").Range("D2:D31") If cell.Value = True Then cell.Offset(, 2).Value = TextBox2.Value Next cell End Sub
' Togglebuttons controls
Private Sub ToggleButton1_click() If ToggleButton1.Value = True Then ToggleButton2.Value = True If ToggleButton1.Value = True Then Worksheets("userformdata").Range("a2").Value = True If ToggleButton1.Value = False Then Worksheets("userformdata").Range("a2").Value = False End Sub
Private Sub ToggleButton2_click() If ToggleButton2.Value = True Then Worksheets("userformdata").Range("a3").Value = True If ToggleButton2.Value = False Then Worksheets("userformdata").Range("a3").Value = False End Sub
Private Sub ToggleButton3_click() If ToggleButton3.Value = True Then ToggleButton4.Value = True If ToggleButton3.Value = True Then Worksheets("userformdata").Range("a4").Value = True If ToggleButton3.Value = False Then Worksheets("userformdata").Range("a4").Value = False End Sub
Private Sub ToggleButton4_click() If ToggleButton4.Value = True Then Worksheets("userformdata").Range("a5").Value = True If ToggleButton4.Value = False Then Worksheets("userformdata").Range("a5").Value = False End Sub
Private Sub ToggleButton20_click() If ToggleButton20.Value = True Then Worksheets("userformdata").Range("a21").Value = True If ToggleButton20.Value = False Then Worksheets("userformdata").Range("a21").Value = False End Sub
Private Sub ToggleButton21_click() If ToggleButton21.Value = True Then ToggleButton22.Value = True If ToggleButton21.Value = True Then Worksheets("userformdata").Range("a22").Value = True If ToggleButton21.Value = False Then Worksheets("userformdata").Range("a22").Value = False End Sub
Private Sub ToggleButton22_click() If ToggleButton22.Value = True Then Worksheets("userformdata").Range("a23").Value = True If ToggleButton22.Value = False Then Worksheets("userformdata").Range("a23").Value = False End Sub
Private Sub ToggleButton23_click() If ToggleButton23.Value = True Then ToggleButton24.Value = True If ToggleButton23.Value = True Then Worksheets("userformdata").Range("a24").Value = True If ToggleButton23.Value = False Then Worksheets("userformdata").Range("a24").Value = False End Sub
Private Sub ToggleButton24_click() If ToggleButton24.Value = True Then Worksheets("userformdata").Range("a25").Value = True If ToggleButton24.Value = False Then Worksheets("userformdata").Range("a25").Value = False End Sub
Private Sub ToggleButton25_click() If ToggleButton25.Value = True Then ToggleButton26.Value = True If ToggleButton25.Value = True Then Worksheets("userformdata").Range("a26").Value = True If ToggleButton25.Value = False Then Worksheets("userformdata").Range("a26").Value = False End Sub
Private Sub ToggleButton26_click() If ToggleButton26.Value = True Then Worksheets("userformdata").Range("a27").Value = True If ToggleButton26.Value = False Then Worksheets("userformdata").Range("a27").Value = False End Sub
Private Sub ToggleButton27_click() If ToggleButton27.Value = True Then ToggleButton28.Value = True If ToggleButton27.Value = True Then Worksheets("userformdata").Range("a28").Value = True If ToggleButton27.Value = False Then Worksheets("userformdata").Range("a28").Value = False End Sub
Private Sub ToggleButton28_click() If ToggleButton28.Value = True Then Worksheets("userformdata").Range("a29").Value = True If ToggleButton28.Value = False Then Worksheets("userformdata").Range("a29").Value = False End Sub
Private Sub ToggleButton29_click() If ToggleButton29.Value = True Then ToggleButton30.Value = True If ToggleButton29.Value = True Then Worksheets("userformdata").Range("a30").Value = True If ToggleButton29.Value = False Then Worksheets("userformdata").Range("a30").Value = False End Sub
Private Sub ToggleButton30_click() If ToggleButton30.Value = True Then Worksheets("userformdata").Range("a31").Value = True If ToggleButton30.Value = False Then Worksheets("userformdata").Range("a31").Value = False End Sub[/PHP]
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Saludos, soy muy nuevo, reciente, en la programacion con VBA de Excel, es muy apasionante, pero como todo que comienza debe ser investigado y aprendido, por favor, el codigo adjunto funciona bien, solo quisiera saber como resumirlo, Muchisimas gracias.
Ademas, desearia saber como escribir texto en un textbox, al dar enter pasa a otro textbox, al enter otra vez pasar estos textos a la hoja de calculo y verlos tipo lista en un tercer textbox del mismo userform, me explico? introducir datos en dos textbox consecutivamente, al dar enter en el segundo pasaran los datos a la hoja de calculo y reflejados en el tercer textbox, se retorna al textbox 1 de nuevo y se repite la entrada de datos, los nuevos datos seran escritos consecutivamente en el tercer textbox y en la hoja de calculo, llenando celdas en dos columnas, tipo lista que se va llenando.
Muchas Gracias