Unir 2 lineas de codigo en una sola

2 envíos / 0 nuevos
Último envío
JoaoM
Imagen de JoaoM
Offline
última acción: Hace 2 semanas 3 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 15/12/2011 - 23:46
Puntos: 2870
Unir 2 lineas de codigo en una sola

Una macro para insertar lineas en hoja tengo

¿Será posible unir estas 2 lineas en una sola y tambien incluia pegar los formatos?.

Pudiera ser en que una sola linea, copie y pegue las formas y formatos de I

Los comentarios dicen su objectivo

'Seleciono manualmente la celda en columna B

Copia las fórmulas de la columna I anterior a la selccionada
            Range("I" & b - 1).Copy 'Toma (Copia) de la I anterior a la linea b seleccionada
'Pega las fórmulas de la columna I anterior a la selccionada, en las lineas nuevas insertadas
            Range("I" & b).PasteSpecial Paste:=xlPasteFormulas

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 7 horas 6 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 10690
¿Seguro que no quieres hacer

¿Seguro que no quieres hacer esto con una tabla? Las tablas extienden las fórmulas automáticamente en cada nueva fila.

sobre tu pregunta:

la opción de copiar y pegar en una misma línea sólo está disponible para pegar todo, no para pegado especial

Copy tiene un argumento que es el destino donde lo quieres pegar, así que podrías poner tus instrucciones así:

Range("I" & b - 1).Copy Range("I" & b)

pero esto pega todo (fórmula, formato de celda y de número, formato condicional, validación, comentarios y no se si algo más)

 

------
Ya sé Excel, pero necesito más.