Visual Basic - Regreso a Userform

Life is soft - evento anual de software empresarial
   
Vista:

Regreso a Userform

Publicado por patricio (47 intervenciones) el 18/09/2009 02:55:16
Hola a todos
Tengo la siguiente aplicacion

Private Sub CommandButton1_Click()
If MsgBox("Esta Seguro de querer cotinuar??", vbYesNo, "Confirmacion") = vbYes Then
'Acciones a realizar
End If
Dim i As String
i = 2
While i <= 5000 And Sheets("Consumos Linea Lavado").Range("e" & i + 1).Text <> ""
i = i + 1
Wend
Sheets("Consumos Linea Lavado").Range("a" & i + 1) = UserForm3.DTPicker4
Sheets("Consumos Linea Lavado").Range("b" & i + 1) = UserForm3.ComboBox6
Sheets("Consumos Linea Lavado").Range("c" & i + 1) = UserForm3.ComboBox7
Sheets("Consumos Linea Lavado").Range("d" & i + 1) = UserForm3.ComboBox8
Sheets("Consumos Linea Lavado").Range("e" & i + 1) = UserForm3.TextBox1.Text
Sheets("Consumos Linea Lavado").Select
Range("A3").Select
Selection.EntireRow.Insert
Range("A3:A6").Select
Selection.NumberFormat = "[$-C0A]d-mmm-yy;@"
Range("A3").Select

El problema que tengo es que al dar click al Commandbutton1 hace toda la operacion sin problema, pero me deja en la Hoja llamada "Consumos Linea Lavado" y lo que quiero es que vuelva a cargar el UserForm3.

FAVOR SI ME PUEDEN AYUDAR
GRACIAS
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Regreso a Userform

Publicado por Abraham Valencia (55 intervenciones) el 18/09/2009 19:09:30
Este es el foro de VB, debes ir al foro de Excel o de VBA

Abraham
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar