Macro excel que copie de hoja 1 a hoja 2*

* Este es el código que tengo, pero en la hoja 1 hay formulas y quiero que se mantengan activas, que al momento de ejecutar la macro, solo se copie el valor y me deje la formula activa en la hoja 1, espero me haya explicado bien, y agradecería de antemano su ayuda

Sub copia()
f = Hoja3.Range("A1").Value
Hoja2.Cells(f + 1, 1) = Hoja1.Range("A3").Value
Hoja2.Cells(f + 1, 2) = Hoja1.Range("B3").Value
Hoja2.Cells(f + 1, 3) = Hoja1.Range("C3").Value
Hoja2.Cells(f + 1, 4) = Hoja1.Range("D3").Value
Hoja2.Cells(f + 1, 5) = Hoja1.Range("E3").Value
Hoja2.Cells(f + 1, 6) = Hoja1.Range("F3").Value
Hoja1.Range("A3").Value = ""
Hoja1.Range("B3").Value = ""
Hoja1.Range("C3").Value = ""
Hoja1.Range("D3").Value = ""
Hoja1.Range("E3").Value = ""
Hoja1.Range("F3").Value = ""
Hoja1.Range("H3").Value = ""
End Sub

1 Respuesta

Respuesta
1

La instrucción que usas Hoja2.Cells(f + 1, 1) = Hoja1. Range("A3").Value solo copia el valor de la celda A3 en la hoja 2, de acuerdo a lo que necesitas esta instrucción es adecuada.

Pero las instrucciones:

Hoja1.Range("A3").Value = ""

.

.

Hoja1.Range("H3").Value = ""

Te borran el contenido de las celdas de la Hoja1 por lo tanto deberías omitirlas. Creo que tu código funcionaria mejor asi:

Sub copia()
f = Hoja3.Range("A1").Value
Hoja2.Cells(f + 1, 1) = Hoja1.Range("A3").Value
Hoja2.Cells(f + 1, 2) = Hoja1.Range("B3").Value
Hoja2.Cells(f + 1, 3) = Hoja1.Range("C3").Value
Hoja2.Cells(f + 1, 4) = Hoja1.Range("D3").Value
Hoja2.Cells(f + 1, 5) = Hoja1.Range("E3").Value
Hoja2.Cells(f + 1, 6) = Hoja1.Range("F3").Value

End sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Copiar datos de una columna a otra hoja

Primero que todo felicidades por la pagina muy bonita. La pregunta es esta en mi hoja 1 capturo como 20 datos en la columna b1 hasta b20 y con un botón mandarlos a la hoja 2 que es mi base de datos solamente que en la fila 1 tengo los títulos y deseo...
2 respuestas

Buscar lista de valores en otra lista

Resulta que tengo una lista de una sola columna cuyos valores tengo que buscar en otra lista mas grande que tengo en otra hoja, esta con dos columnas, la búsqueda es en la segunda columna. Esto necesitaría hacerlo en la tercera hoja de manera que me...
1 respuesta

Unir dos hojas en excel

As) necesito me ayuden en lo siguiente: tengo dos hojas de cálculo, en cada una de ellas hay varios datos con un campo en común. Deseo saber los campos que son iguales.
1 respuesta

Excel copiar datos a otra hoja en fila vacia para Dam

Quiero copiar datos de una determinada columna (hoja1) a hoja 2 ya tengo echo el procedimiento lo único malo que al copiarlo me los copia en la misma fila, que instrucción me falta para que pase a la siguiente fila El código es este : Sub copiar()...
4 respuestas

Crear macro en vb para Excel

En la hoja 1 columna A puedo tener1 o muchos registros En la hoja 2 celda A1 debir colocar el numero del primer registro de la hoja 1 luego selecciono un rango y lo copio en la hoja 3 como solo valores. Cada vez debo ir a la hoja 2 columna A1 y...
1 respuesta

Excel buscar coincidencias

Ojala me puedas ayudar fíjate que tengo en una hoja por ejemplo en A1 Luis y B1 María, A2 Marcos y B2 Susana, A3 Jorge y B3 María, Lo que necesito, ya sea una fórmula o macro para que todos los datos que me coincidan en la columna B me los mande a...
1 respuesta

Función BUSCARV.

Tengo un libro con tres hojas (hoja1, hoja2 y hoja3). Según te indico: Hoja1 A1: NUM-FICHA; B1: AÑO FICHA; C1: NOMBRE; D1: APELLIDO1; E1: APELLIDO2; F1: DNI A2: 1200; B2: 01; C2: JUAN; D2: GARCIA; E2: GOMEZ; F2: 45.262.262 A3: 1200; B3: 02; C3: JOSE;...
1 respuesta

Macro para pegar datos en celda vacía

Necesito de la colaboración de los expertos. Bueno, tengo un libro con dos hojas (Hoja1 y Hoja2). La hoja1 me sirve como formulario en la que lleno datos, los cuales deseo copiar a la hoja 2. Tanto la Hoja1 como la Hoja2 tienen los siguientes...
1 respuesta