vitagoras

vitagoras

 Castilla y León, España @vitagoras desde - visto

Preguntas

Pregunta en

Necesito corrección en macro de Dante Amor. Error al ejecutar la macro dos veces seguidas.

Hola. Me sale un error cuando ejecuto la macro dos veces seguidas. Si ejecuto la macro y después tengo que modificar la hoja "PROPUESTA", al volver a ejecutar la macro, salen errores. Se me ocurre, que al principio de la macro, elimine todas las...
Pregunta en

Quisiera modificar una macro de Dante Amor, para mantener el ancho de columnas en las hojas nuevas.

Según la siguiente macro. ¿Es posible que las hojas nuevas que se van generando, mantengan el ancho de columnas y alto de filas de la primera hoja? También que lo pegado en las hojas nuevas se establezca como área de impresión. Sub CrearyCopiar()...
Pregunta en

Filtrar una tabla, siempre en grupos de 3 filas, estén o no combinadas.

Hola. Tengo una tabla de 300 filas por 60 columnas, a partir de la fila 9 (las 8 primeras serían la cabecera). La tabla está dividida en grupos de 3 filas, de tal forma que las filas 9, 10 y 11, serían un grupo donde introduzco datos. En todas las...
Sin respuestas
Pregunta en

Completar macro para sombrear celdas según el valor de otras celdas.

Tengo la siguiente macro. Funciona bien, pero necesito que haga mas cosas que no consigo. Si en el rango ("B19:AR367") se escribe una de estas iniciales: "V", "L", "S", "AP", "FJ", "VP" Pintará esa celda según los siguientes criterio: Si en rango (A,...
Pregunta en

Macro para crear hojas con un nombre y copiar datos en ellas.

Necesito hacer una macro que copie datos e inserte hojas nuevas, apartir de la "Hoja1". En la "Hoja1" tengo una tabla de 14 columnas y 100 filas, La copia se debe de realizar según datos de la columna "A". Al ejecutar la macro, se buscan datos en la...
Pregunta en

Tengo este código en Visual basic para Excel, y no me funciona.

El código es el siguiente: Private Sub Worksheet_Change(ByVal Target As Range) 'Por.jom uf = Range("H" & Rows.Count).End(xlUp).Row If Target.Count > 1 Then Exit Sub If Not IsNumeric(Target) Then Exit Sub If Target = "" Then Target.Interior.ColorIndex...
Pregunta en

Copiar y pegar en tiempo real

Hola. No se si podrías ayudarme. Tengo 4 rangos donde escribir: A1:F20, G1:L20, M1:R20, S1:X20 Y de lo que escriba tiene que hacer una copia exacta en los siguientes rangos, cada uno en el que coincide debajo: A21:F40, G21:L40, M21:R40, S21:X40 La...
Pregunta en

Buscar datos en una tabla y pegarlos en otra columna

Hola y gracias por vuestro tiempo. Tengo una tabla con datos en el rango E7:U53, y por encima en el rango E5:U5, fechas. Necesito que una macro busque celdas con valores, sólo en la columna de dicha tabla, cuya fecha del rango E5:U5 coincida con la...
Pregunta en

Modificación de macro de productividad de mantenimiento de vehículos.

Hola. La macro, aunque un poco lenta, cumple perfectamente los objetivos (aunque si pudiera agilizarse mejor), pero me pregunto si es posible lo siguiente. - Si borras una cifra que está en verde o naranja, se queda pintada, cuando al carecer de...
Sin respuestas
Pregunta en

Reto para productividad en mantenimiento de vehículos

Ante todo, muchas gracias por tu tiempo. El planteamiento es el siguiente: Datos: - Rango “K12:BJ12” (cada celda corresponde a un nº de la semana) - Celda “G12” (corresponde a un tope de horas, por ejemplo 400) - “n” (nº de horas que está funcionando...