............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

userform condicionado

Ver el tema anterior Ver el tema siguiente Ir abajo

userform condicionado

Mensaje por luctia el Lun Ago 06, 2012 9:27 pm

Hola soy nuevo con esto de los userform hice uno y lo basico lo hace sin problema, pero lo que quiero es que cuando en el primer cuadro de texto introdusca un numero menor a 99 lo concatene con un "00", y si el numero es mayor a 99 lo concatene con un "0". No tengo idea de como lograrlo asi que agradesco su ayuda el codigo que tengo es este:

Private Sub UFGenerar_Click()
Sheets("PACKING").Select
ActiveSheet.Range("N31") = ActiveSheet.Range("n31") & "9220" & Packinguf.UFgramaje & "0" & _
Packinguf.UFformato1 & "00" & Packinguf.UFformato2.Value

selecciono la celda N31 de la hoja Packing y introduce "9220", el valor de del primer cuadro de texto y un "0", lo que quiero es que si el valor del segundo cuadro de texto es menor que 99 coloque "00", y si es mayor que 99 coloque un "0", y luego el valor del tercer cuadro de texto.
Espero haberme explicado correctamente, gracias por su ayuda.

luctia

Masculino Cantidad de envíos : 3
Edad : 33
Ciudad - Pais : argentina
Version de Excel : 2007
Fecha de inscripción : 20/07/2012

Volver arriba Ir abajo

posible solucion

Mensaje por bluxd el Jue Ago 23, 2012 12:34 pm


Hola lucia este es mi primera respuesta en el foro, y atu pregunta no la entiendo muy bien, pero este codigo te agrega "ceros" adelante en un textbox

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'aqui indicamos hasta cuantos ceros se va agregar de acuerdo al numero q tipees
For I = 1 To 4 - Len(TextBox1)
TextBox1 = 0 & TextBox1
Next I
End Sub


espero haberte dado una idea con este codigo
salu2

bluxd

Masculino Cantidad de envíos : 1
Edad : 26
Ciudad - Pais : peru
Version de Excel : 2010
Fecha de inscripción : 22/08/2012

Volver arriba Ir abajo

Re: userform condicionado

Mensaje por luctia el Lun Ago 27, 2012 3:56 pm

Gracias Bluxd si te parece te puedo enviar una archivo con lo que estoy haciendo asi me entendes mejor, pasame un correo y te lo paso.
Gracias saludos.

luctia

Masculino Cantidad de envíos : 3
Edad : 33
Ciudad - Pais : argentina
Version de Excel : 2007
Fecha de inscripción : 20/07/2012

Volver arriba Ir abajo

Re: userform condicionado

Mensaje por moises melgar el Vie Sep 07, 2012 2:32 pm

Buenos Dias Sr luctia y Sr bluxd
para poder adjuntar Archivos Utilizamos el Skydriver, este es un lugar de almacenamiento gratuito en el Hotmail.
O en la parte inferior del cuadro donde respondemos, dandole previsualizar...te envia a una ventana nueva y en la parte inferior en la seccion añadir archivo presionar Examinar y luego Enviar consulta

selecciono la celda N31 de la hoja Packing y introduce "9220", el valor de del primer cuadro de texto y un "0", lo que quiero es que si el valor del segundo cuadro de texto es menor que 99 coloque "00", y si es mayor que 99 coloque un "0", y luego el valor del tercer cuadro de texto.

Name del segundo cuadro de texto = Packinguf.UFformato1 ????, la verdad no lo se pero imagino que si es ese.

Código:
Private Sub UFGenerar_Click()
Sheets("PACKING").Select
dim completa 'agrego una variable la llamare "completa"

If len(Packinguf.UFformato1) > 2 then
completa = "0" 'si el 2 texto tiene valores arriba de 99 (3 digitos o mas) completa tendra como valor "0"
else
completa = "00"  'si el 2 texto tiene valores de 99 a abajo (2 digitos o menos) completa tendra como valor "00"
end if

ActiveSheet.Range("N31") = ActiveSheet.Range("n31") & "9220" & Packinguf.UFgramaje & "0" & _
Packinguf.UFformato1 & completa & Packinguf.UFformato2.Value
....
...
...
end sub

avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 563
Edad : 29
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: userform condicionado

Mensaje por luctia el Lun Sep 10, 2012 5:05 pm

Gracias Moises justo lo que buscaba, me fue de gran ayuda.

luctia

Masculino Cantidad de envíos : 3
Edad : 33
Ciudad - Pais : argentina
Version de Excel : 2007
Fecha de inscripción : 20/07/2012

Volver arriba Ir abajo

Re: userform condicionado

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.