José Andrés Durán

Dante Amor respondió: De acuerdo a tu información tus datos a revalorizar están en B2 a F8, como se muestra en la siguiente imagen: Funciona de la siguiente manera: 1. Debes tener 2 hojas: Hoja1 con los valores y Hoja2 para guardar los valores originales. 2. En la celda...

Dante Amor respondió: Puedes poner la imagen de la página 1, quiero ver cómo empieza y cómo acaba. También una imagen de la página 2. O si es posible envíame tu archivo con 2 hojas, en la hoja 1 pones la información tal cual la tienes ahora, pero en la hoja 2 me pones...

Dante Amor respondió: H o l a: Te anexo una macro para que copie los formatos. Primero, tienes que crear una hoja llamada "Formato", en esa hoja, debes poner todos los bordes tal como los quieres, también tienes que poner el formato de fechas, de números, de colores de...

Elsa Matilde respondió: La siguiente macro te llena un listbox de 1 fila y varias columnas. Te recuerdo que el máximo de columnas permitidas es 10. Private Sub Worksheet_Activate() 'x Elsamatilde ActiveSheet.ListBox1.Clear 'se asigna la cant de col que será el total de...

Dante Amor respondió: Prueba con esta macro, lo que hace es cambiar una por una cada celda a una fecha Sub formatofecha() 'Por.Dante Amor Dim fec As Date For Each c In Range("F2:F25") fec = c c.Value = fec Next Range("F2:F25").NumberFormat = "dd/mm/yyyy;@" End Sub

Dante Amor respondió: Te anexo la macro Sub fecha() 'Por.Dante Amor Select Case Weekday(Date) Case Is = 7: [G1] = Date + 2 Case Is = 1: [G1] = Date + 1 Case Else: [G1] = Date End Select End Sub