Luis Mondelo

prueba mejor con el evento exit. En mi ejemplo tienes que sustituir textbox1 por el nombre de tu textbox. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not IsDate(TextBox1) Then MsgBox "no es fecha" TextBox1 = Empty Cancel =...

Aquí tienes la solución: Debido a que excel no nos permite guardar un archivo con una fecha en su nombre, deberemos construirlo nosotros. La siguiente macro lo hace, en mi ejemplo la fecha está guardada en la ceda D3 Sub guardar() nombre =...

Revisa este video y me cuentas: http://es.tbox.ws/28pbtG

Esta es la solución, sigue mis instrucciones: -Crea una carpeta independiente y mueve a ella tus doce archivos de meses -Crea un libro nuevo y pega esta macro en un módulo. Graba el libro con el nombre INTEGRADO.XLS y lo guardas en la misma carpeta...

Esta es la solución, sigue mis pasos: Nuestro archivo se componede dos hojas: hoja1 y hoja2 En la hoja1 tenemos los datos escritos desde el rango A1. (En nuestro ejemplo el rango ocupa A1:D4) Tenemos un userform con un combobox y un commandbuttom. La...

Esta es tu solución: En mi ejemplo he utilizado el evento "afterupdate" para que se ejecute al actualizar el textbox1. Esta macro te controla si es número y si tiene guiones. Private Sub TextBox1_AfterUpdate() valor = TextBox1.Value tope = Len(valor)...

Vamos a solucionarlo con una pequeña macro: Ponte en la celda I8 (o en la que quieras) y ejecuta esta macro: Sub negrita() If Range("b11").Font.Bold = True Then ActiveCell.Value = "no" Else ActiveCell.Value = "si" End If End Sub Recuerda finalizar y...

Aquí tienes la solución, sigue mis instrucciones: Vamos a poner tus datos iniciales en el rango A1:C7. Después ejecutas esta macro y todo listo. Sub organizar() Range("a2").Select fila = 2 columna = 5 Do While ActiveCell.Value <> "" valor =...

Esta es tu solución: por un lado tenemos el evento INITIALIZE para cargar el combo con todos los artículos, y una vez seleccionado uno, pulsamos en el botón para ejecutar la macro commandbuttom que creará un informe en word. Por un lado tenemos la...

Esta es tu solución. Solo tienes que cambiar el correo del destinatario y el asunto: Sub correo() Range("b2:e11").Copy Set parte1 = CreateObject("outlook.application") Set parte2 = parte1.createitem(olmailitem) parte2.to = "[email protected]"...