Excel - Regreso a Userform

 
Vista:

Regreso a Userform

Publicado por patricio (1 intervención) el 18/09/2009 19:18:11
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
Imágen de perfil de Abraham Valencia
Val: 313
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

RE:Regreso a Userform

Publicado por Abraham Valencia (2415 intervenciones) el 18/09/2009 21:52:38
Pues asi con lo que has pegado no entiendo el dilema pues en ningun momento descargas el userform. Ah, claro que al parecer no es tu macro entera

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