La Web del Programador: Comunidad de Programadores
https://www.lawebdelprogramador.com/foros/Excel/1293118-Copiar-celdas-especificas-de-una-hoja-a-otra-con-una-macro.html

Copiar celdas especificas de una hoja a otra con una macro

Copiar celdas especificas de una hoja a otra con una macro

Publicado por jose luis (5 intervenciones) el 29/10/2011 02:28:44
Hola , e visto cuantas soluciones dan ustedes y la verdad me agrada la pagina, les platico mi problema de un archivo en excel 2007.
Quiero copiar ciertos datos de un formato de factura (hoja: facturas) los datos son los sig:
numero de factura situado en la fila i20, a la hoja2 fila a4,
fecha situado en la fila m16 a la hoja2 fila b4
cliente situado en la fila c12 a la hoja2 fila c4
importe situado en la fila L52 a la hoja2 fila d4
voy a crear un boton asociado a la macro, que me hagan el favor de ayudarme a crear, y cada vez que lo oprima me copie los mismos datos pero siempre en la siguiente fila vacia, ojala me pueda ayudar, reitero mi primera hoja con datos se llama: facturas, y mi segunda hoja que es donde quiero copiar ciertos datos se llama hoja2, supongo que al final se quita la selecion y da oportunidad que cada vez que se oprima el boton copie los nuevos datos, mil gracias por su tiempo y apoyo

Jose Luis

Copiar celdas especificas de una hoja a otra con una macro

Publicado por Armando (126 intervenciones) el 29/10/2011 07:20:36
Aqui hay varios ejemplo para eso:
http://jesusferrer.es/

Copiar celdas especificas de una hoja a otra con una macro

Publicado por jose luis (5 intervenciones) el 31/10/2011 19:08:40
Estimado Armando, gracias por el apoyo muy interesante la pagina, pero como soy novato en macros, necesito mas ayuda.

gracias

Copiar celdas especificas de una hoja a otra con una macro

Publicado por jose luis (1 intervención) el 25/03/2014 19:31:18
ok tengo algo bueno que te puede servir hice lo mismo pero en un projectito aparte mandame tu correo para envairte el file te va servir de ejemplo y luego te lo explico

saludos.

Copiar celdas especificas de una hoja a otra con una macro

Publicado por Daniel (1 intervención) el 28/09/2017 23:45:10
Hola Armando, me pudes compartir esa solucion tambien porfavor.
Estoy buscando lo mas optimo para hacer esta funcion.
Gracias desde ya.
sin imagen de perfil

Copiar celdas especificas de una hoja a otra con una macro

Publicado por JOSECHU (54 intervenciones) el 30/10/2011 12:16:59
Hola José Luis:
Para copiar datos de una hoja a otra, yo hago lo siguiente:
Copiar datos de la hoja “PEPE” a la hoja “JUAN”

(DESTINO) HOJA “JUAN” FILA 10 COLUMNA A = (FUENTE) HOJA = “PEPE” FILA 2 COLUMNA B

Para cada celda una línea independiente cuando no son consecutivas

Esto seria:
Sheets(“JUAN”).Cells(10, “A”).Value = Sheets(“PEPE”).Cells(2, “B”).Value

Celdas consecutivas:
Sheets(“JUAN”).Range(“A2:C2”).Value = Sheets(“PEPE”).Range(“D10:F10”).Value

El rango de la fuente tiene que contener el mismo nº de celdas que el destino y en
el mismo sentido.

Copiar celdas especificas de una hoja a otra con una macro

Publicado por Jose Luis (5 intervenciones) el 31/10/2011 16:00:14
Estimados, JOSECHU, gracias por responder, me has ayudado mucho, lo unico que no, se es como le hago para que me tome siempre la ultima fila vacia, y asi se vayan copiando los datos, ojala me puedas ayudar, mil gracias.
sin imagen de perfil

Copiar celdas especificas de una hoja a otra con una macro

Publicado por JOSECHU (54 intervenciones) el 31/10/2011 17:48:52
Hola José Luis:

No se si se podrá copiar filas, rangos o celdas de una hoja a otra, haciendo que la hoja destino valla aumentando las filas o celdas a partir de la ultima, ya que el nº de la ultima fila está variando permanentemente.
Yo lo que aplico en estos casos es: Insertar fila o celda a partir de la primera, con lo cual el nº de fila siempre es el mismo y todo se va desplazando (las filas o celdas) hacia abajo.
Te mando dos ejemplos por si te son útiles.

El primer caso se trata de insertar solo una celda (“G3”) de la (“Hoja1”) y copiar los datos de (“J5”) de la (“Hoja2”)

Sheets("Hoja1").Range("G3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Hoja1").Cells(3, "G").Value = Sheets("Hoja2").Cells(5, "J").Value

El segundo caso se trata de insertar un rango en una fila.

Sheets("Hoja1").Range("A8").EntireRow.Insert
Sheets("Hoja1").Range("A8:G8").Value = Sheets("Hoja2").Range("B7:H7").Value

Te recomiendo que practiques en una hoja en blanco. No habría que decir que tendrías que cambiar los valores
entre paréntesis y comillas y poner los reales de tus hojas.
Espero que estos ejemplos te ayuden.
Un saludo.

Copiar celdas especificas de una hoja a otra con una macro

Publicado por jose luis (5 intervenciones) el 31/10/2011 23:01:45
estimado:JOSECHU, justo lo que necesitaba, mil gracias

Copiar celdas especificas de una hoja a otra con una macro

Publicado por jefferson carrillo (1 intervención) el 31/07/2012 21:08:10
hola josechu esta muy bna la macro pero bueno si se quiere que la copia se haga debajo ps la esta haciendo en la parte de arriba y por ejemplo para un orden cronologico queda de para atras jejeje como podriamos hacer entons

Copiar celdas especificas de una hoja a otra con una macro

Publicado por jose luis (5 intervenciones) el 01/11/2011 02:25:29
estimado:JOSECHU, justo lo que necesitaba, mil gracias
sin imagen de perfil

Copiar celdas especificas de una hoja a otra con una macro

Publicado por JOSECHU (54 intervenciones) el 01/11/2011 12:24:06
Hola José Luis:

Es una satisfacción para mi, que las soluciones que te mande te hayan sido de utilidad, no creas que soy un experto en la materia yo también estoy empezando con el tema de las macros y gracias al foro de EXCEL al igual que tú estoy aprendiendo cogiendo cosas de unos y otros.

Un saludo.

Copiar celdas especificas de una hoja a otra con una macro

Publicado por Marcial (1 intervención) el 22/06/2012 23:40:14
Buenas,
Muy buena la explicación de Josechu. Mi caso es similar pero algo diferente. Quiero hacer una especie de sistemita de facturación con el excel. La hoja1 va a ser la que quiero que tenga los registros de todas las facturas (nombre, dirección, importes, etc) donde cada fila va a tener los datos de cada factura. A su vez (y aquí viene la diferencia con el caso anterior) no voy a tener una sola hoja para facturar (reescribiendola cada vez que haga una factura) sino que iré agregando hojas a medida que necesite ir haciendo factura (cada hoja va a ser una factura). Cuando apreto el botón para que me agregue los datos a la hoja1 obviamente me agregará los de la hoja 2 por más que quiera agregar los de la hoja17 por ejemplo. Alguien sabe la manera de q en lugar de poner hoja2 en la macro que puso Josechu poner algo que siempre me tome los datos de la hoja en la que estoy?

Preciso una Macro

Publicado por Sebastian (1 intervención) el 13/03/2013 15:40:04
Estimados,

Trabajo en una Empresa donde estoy a cargo de la flota de vehículos, precisaría una Macro que me ayude a registrar el Mantenimiento de los mismos, y que digite la matricula del vehículo y vaya a una planilla como esta:

MANTENIMIENTO DEL VEHICULO (Se digita manual, copiando los datos de las facturas)

Descripción Fecha de Mantenimiento IVA incluido Taller que hizo el Service Kmts

En la solapa de datos de cada vehículo tengo que registrar además:

- Matricula (Dato Fijo)
- Padrón (Dato Fijo)
- Nº Funcionario que lo maneja (Dato Variable)
- Nombre del Chofer (Dato Modificable)
- Año del Vehículo (Dato Fijo)
- Marca (Dato Fijo)
- Modelo (Dato Fijo)
- Padrón (Dato Fijo)
- Combustible (Dato Fijo)
- Nº Motor (Dato Fijo)
- Nº Chasis (Dato Fijo)
- Medida de Neumático (Dato Fijo)
- Batería (Dato Fijo)
- Fecha de Compra/ Año de Compra / Proveedor que se le compro (Dato Fijo)


Desde ya muchas gracias, saludos desde Uruguay

Copiar celdas especificas de una hoja a otra con una macro

Publicado por Andy (1 intervención) el 29/05/2013 22:00:25
Buenas tardes chicos, no veo la respuesta de como hacer que se inserte en la parte de abajo y no de arriba, alguno de ustedes me podria enviar el codigo les estare muy agradecido
Imágen de perfil de RICARDO JOSÉ

Copiar celdas especificas de una hoja a otra con una macro

Publicado por RICARDO JOSÉ (52 intervenciones) el 29/07/2013 22:56:29
Buenas tardes Andy

Perdona la demora poero hasta hoy vi tu solicitud.

Para direccionar la ultima fila de una hoha utiliza esta función:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Function UltimaFila(NombreHoja As String) As Long
'       Esta función obtiene la Última Fila utilizada en una Hoja Especificada
'
'       Esta función busca la primera celda utilizada desde el final de la hoja
'       Utilizando la instrucción "Cells.Find". por filas y moviendose desde el Fondo Hasta el inicio
 
'   Parámetros:
'       NombreHoja            = Hoja en la cual se va a determinar la Última Fila no utilizada. _
                                         Es Obligatoria.. Puede tener una o varias celdas en blanco
'
'       Autor:                  Ing. Ricardo J. Rodríguez P.(MSc)
'                                  Caracas. Venezuela. América del Sur
'       Fecha de elaboración:   27/08/2003
'       Última Actualización:   14/11/2012              '   Cambio de Algoritmo de búsqueda

On Error Resume Next

    UltimaFila = Sheets(NombreHoja).Cells.Find("*", SearchOrder:=xlByRows, _
                                                    SearchDirection:=xlPrevious).Row
    
End Function


Espero te sea de utilidad

Ricardo

Caracas. Venezuela
sin imagen de perfil

Copiar celdas especificas de una hoja a otra con una macro

Publicado por Gustavo (1 intervención) el 18/01/2014 22:44:09
Estimado Ricardo, muchas gracias por tus datos:
Estoy tratando de hacer lo mismo que Andy, pero no me está funcionando. Copiar los datos de la "Hoja1" a la "Hoja2", los está copiando bien, pero a la hora de que los siguientes datos los copie en una fila más abajo no logro hacer que funcione.
Desde ya, muchas gracias

Gustavo

Copiar celdas especificas de una hoja a otra con una macro

Publicado por xavi mendoza (1 intervención) el 04/03/2014 21:31:31
ok amigos yo tengo un caso parecido o igual en este caso tengo una plantillas donde los datos van en la columna A y van desde la "A1" hasta la A57 comenzando el primer valor en 10 y terminando en 64 y luego bajo de una base de datos
y me genera las etiquetas o codigos pero no van en lista consecutiva o no existen algunas etiquetas y yo construi una macro para que me busque el siguiente y si no existe que me lo agrege ya lo hace pero me graba datos que no son en otras columnas no se aque se debe si me hechan una manito para revisarlo bien

aqui dejo el codigo de la macro:
*******************************************************************************************************************
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub addfilas()
'
' addfilas Macro
' Codigo para  agregar filas
'
'
'
 
' este ciclo controlara las cantidades de codigo hasta el 64

Dim x As Integer
Dim y As Integer
Dim conta As Integer
'conta = 10
Dim indice As Integer

   For i = 3 To 57                              ' aqui recorro el ciclo de las dos hojas de lahoja 2 y hoja 5.
   Sheets("hoja2").Select
   x = Cells(i, 1)
   Sheets("hoja5").Select
   y = Cells(i, 1)
 
    If x <> y Then
    MsgBox "prueba"
    Sheets("hoja5").Select
    indice = x
 
    ActiveSheet.Cells(i, 1).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
 
    ActiveCell.FormulaR1C1 = indice
 
    End If
 
    Next i
    Exit Sub
End Sub



ya encontre la solucion era un error de copy datos al anterior

slaudos.

se los dejo donde dice insert poner en comentario el copy jijiji y lsto

saludos.
cualquier consulta a mi correo [email protected]

Copiar celdas especificas de una hoja a otra con una macro

Publicado por Peter (1 intervención) el 25/03/2014 18:08:17
Hola JOSECHU, en mi caso yo ingreso un registro en hoja1 y lo guardo en hoja2 (llenando una fila con 4 columnas, codigoPuesto-nombres-apell paterno-apell materno), pero luego necesito confirmar si la información es correcta, osea una vez confirmada lo tengo que guardar en una hoja3, en esta hoja3 tengo una base donde esta la información necesaria segun el codigo de puesto (area, jefe directo, etc.), en la hoja3 tengo todos los campos llenos a excepcion de los nombres-apell paterno-apell materno(que se debe llenar segun el registro que se haga en hoja1), en conclusion al confirmar el registro en hoja2 este debe llenar solo los campos respectivos al codigo de puesto que se le asigno (ya existe un orden establecido para codigoPuesto).
p.e.: ingreso un nuevo registro
codPuesto: PA12
nombres: JOSE LUIS
apellpaterno: PEREZ
apellmaterno: ROJAS
Esto se guarda en la hoja2, despues tengo que confirmar el puesto para que recien se guarde en la hoja3 y debe quedar algo asi.

codPuesto nombres apellpaterno apellmaterno
PA01 PEPE PEÑA LOPEZ
PA02 VACIO VACIO VACIO
...
PA12 JOSE LUIS PEREZ ROJAS
PA13 VACIO VACIO VACIO
PA14 JUAN ROBLES GARCIA

espero me puedas proporcionar algun comando de busqueda para esta situacion (estoy intentando pero solo me sale para agregar datos en fias) ... muchas gracias

Copiar celdas especificas de una hoja a otra con una macro

Publicado por sixto (1 intervención) el 25/03/2014 19:20:48
Como hago para copiar una hoja todos los valores desde la celda a5 : bg500 inclusive cuando el archivo este guardado con filtros.

Les comento esto ya que cuando se guarda con filtro no me copia la informacion no visible,

Copiar celdas especificas de una hoja a otra con una macro

Publicado por ROXY SIVADA (1 intervención) el 27/10/2015 17:16:19
HOLA ESTOY TRATANDO DE HACER UNA MACRO QUE ME COPIE LOS DATOS DE UNA HOJA A OTRA PERO BASADA EN UNA CONDICIÓN, POR EJEMPLO LA FECHAS, ES DECIR, COPIAR LA DATA ESPECIFICA SEGUN UNA FECHA INICIO Y UNA FECHA FIN.... HE INVESTIGADO Y HASTA AHORA SOLO LLEVO ESTO, PERO AUN NO ME CORRE, SERA QUE ME PUEDEN AYUDAR.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Macro5()
'Roxy Sivada
 '   Sheets("GRAFICOS").Select
 '   dia_inicio = Cells(1, 4)
 '   dia_fin = Cells(2, 4)
  '  inicio = 4 + Day(dia_inicio)
 '   fin = 4 + Day(dia_fin)
 '
 '
 ' Dim NF, Fila As Double
 '   Sheets("GRAFICOS").Select
 '   Fila = InputBox("Escriba el Numero de Filas a insertar: ")
 '   NF = Hoja8.Range("A8").End(xlDown).Row + 1
 '   If NF > 50000 Then NF = 8
 '   Sheets("DATA").Select
 '   Range("A8:AY8").Select
 '   Selection.copy
 '   Sheets("GRAFICOS").Select
 '   Range("A" & NF + Fila).Select
 '   Range("A" & NF & ":AY" & NF + Fila).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
   '     :=False, Transpose:=False
 'End sub
sin imagen de perfil

Copiar celdas especificas de una hoja a otra con una macro

Publicado por Nelson (2 intervenciones) el 11/02/2016 11:40:03
JOSECHU tengo una duda sobre usar la macro y quisiera tu ayud de ser posible

Actualmente quiero copiar los valores de unas celdas que se encuentran en una lista desplegable en otra hoja y que si selcciono otro valor en la lista desplegable, automatica me copie en nuevo valor en la otra hoja pero de forma transpuesta y que se coloque 2 celdas a la derecha y asi sucesivamente cada vez que seleccione una celda nueva en la lista, te explico con un ejemplo

En la Hoja 1 tengo es lista

C2= Azul
C3= Verde
C4= Amarillo
C5=
C6=

Te recuerdo que eso es una lista de desplegable

Pues bien yo quiero que al seleccionar azul el se coloque en la celda B11 en la otra Hoja 2 y que si selecciono el Verde el lo coloque en E11 es decir 3 espacios corridos a la derecha y asi repetirlo cada vez que seleccione un valor nuevo en la lista y ejecute la macr0

Actualmente tengo una macro y todo me sale bien excepto que me coloque los nuevo valores 3 espacios corridos a la derecha

1
2
3
4
5
6
7
8
9
10
Sub macro2()
 
' Macro2 Macro
Sheets("RESUMEN ANALISIS TECNICA").Select
Range("DATOS").Select
Selection.Copy
Sheets("ANALISIS TECNICA").Select
Range("B11").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=True, Transpose:=True
End Sub

Adicional te envio unas imagenes de como es la situacion.....
Ojala puedas ayudarme saludos....
Imagen-1
Imagen-2
Imágen de perfil de JoaoM

Copiar celdas especificas de una hoja a otra con una macro

Publicado por JoaoM (222 intervenciones) el 11/02/2016 20:42:52
Te recomiendo que subas un ejemplo (tu libro) para que alguien experto te ayude con mas facilidad.
Ya tienes las imagenes, te falta el libro
sin imagen de perfil

Copiar celdas especificas de una hoja a otra con una macro

Publicado por Nelson (2 intervenciones) el 12/02/2016 11:12:38
Bien Amigo aqui esta el archivo es sencillo lo que quiero realizar pero no encuentro la manera o si es posbile

En la hoja 1 tengo una lista desplegable

En la hoja 2 tengo unas tablas para evaluar.

Tengo 2 macros, la macro 1 me genera una copia identica de un rango seleccionado uno al lado del otro tantas veces yo lo desee en la hoja 2, con esta macro no tengo problema

La macro 2 me copia los valores de la lista que tengo en la hoja 1 y me los pone en la hoja 2, el problema es que me los pone todos juntos si ven el archivo al ejecutar la macro me los coloca en las columna E8,F8,G8. yo quiero que el primero lo coloque en E8 pero que el segundo, tercero y asi sucesivamente me los coloque 2 columnas a la derecha despues del ultimo, es decir el valor que me aparece en F8 lo coloque en H8 el de G8 en K8 y asi sucesivamente.

Espero puedan ayudarme

Saludos

Copiar celdas especificas de una hoja a otra con una macro

Publicado por ivan jijon (1 intervención) el 04/06/2016 00:13:23
necesesito asignar un macro a un boton que haga lo siguiente

copiar la celda a1 de la hoja 1 a la celda a1 de la hoja 2

pero cuando yo ingrese valores en la celda a1 y presiones el boton automaticamente comience a copiar los valores en las celdas siguiente a2 , a3 , a4 a5 osea que yo siempre voy a ingresar valores en la celda a1 hoja 1 y se va a comenzar a copiar en las celdas aumentando una celda cada vez que lo presione

no se si me entendieron
Imágen de perfil de Oscar Caro

Copiar celdas especificas de una hoja a otra con una macro

Publicado por Oscar Caro (2 intervenciones) el 20/04/2017 19:47:56
Hola Josechu. Gracias por ayudarnos
Mi problema es que en una hoja tengo una columna donde registro números de guías de fletes y en otras columnas registro varios precios distintos (precio flete, precio desvío, precio descarga, etc.). El caso es que hay veces en donde ingreso mas de una guía por flete, cada una separada por un guion (-). Quisiera ver si se puede separar esos números de guías y colocarlos hacia abajo y que en las columnas donde existen precios anote 0.

Arriba es como tengo el archivo y abajo es como lo necesito.
Se los agradecería mucho por que todas las macros que he probado no me sirven
Imágen de perfil de Oscar

Copiar celdas especificas de una hoja a otra con una macro

Publicado por Oscar (2 intervenciones) el 20/04/2017 20:06:07
No me dejo subir la imagen anteriormente. Aqui esta


LIBRO

Copiar celdas especificas de una hoja a otra con una macro

Publicado por Carlos ramones (1 intervención) el 17/11/2017 16:29:52
Buenos días a todos, veo muy interesantes sus publicaciones pero he estado buscando y no consigo como hacer una macro que copie los datos de una tabla con rango C3:R56 pero los datos que necesito estan en las columnas C,E,G,I,K,M,O,Q.. Necesito que los datos que hay en cada columna indicada los vaya copiando uno a uno en otra pestana en la celda N10.

Gracias de antemano por su enorme colaboración y que tengan un excelente día!!

Saludos.
sin imagen de perfil

Copiar celdas especificas de una hoja a otra con una macro

Publicado por Jose Francisco (6 intervenciones) el 20/05/2019 17:56:18
Buenos dias

tengo una consulta, tengo una macro que me abre los archivos de excel que tengo en una carpeta y me copia de cada archivo de la primer hoja, un area, son treinta archivos

Pero una vez que los tengo en el Clipboard no logro como pegarlos en una hoja y que me queden ordenas en una sola hoja

Todos son ordenes de compra, lo que quiero es consolidar estas treinta ordenes en una sola hoja, cada orden tiene desde 1 hasta 31 filas sera que alguien me ayuda

Ya tengo la primera parte que es para abrir y copiar las ordenes
1
2
3
4
5
6
7
8
9
10
11
Sub Abrirarchivos()
Dim archivos As String
archivos = Dir("C:\Users\Jose Valle\Desktop\WM\*.xlsx")
Do While archivos <> ""
Workbooks.Open "C:\Users\Jose Valle\Desktop\WM\" & archivos
Range("a1:AU32").Copy
MsgBox ActiveWorkbook.Name
ActiveWorkbook.Close savechanges:=True
archivos = Dir
Loop
End Sub

Como hago para pegar este contenido
sin imagen de perfil

Copiar celdas especificas de una hoja a otra con una macro

Publicado por Jose Francisco (6 intervenciones) el 21/05/2019 18:20:56
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Abrirarchivospegar()
Dim archivos As String
archivos = Dir("C:\Users\Jose Valle\Desktop\WM\*.xlsx")
Do While archivos <> ""
Workbooks.Open "C:\Users\Jose Valle\Desktop\WM\" & archivos
Range("a1:AU32").Copy
MsgBox ActiveWorkbook.Name
ActiveWorkbook.Close savechanges:=True
Windows("Ordenes.xlsm").Activate
Range("A1").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
archivos = Dir
Loop
End Sub

Copiar celdas especificas de una hoja a otra con una macro

Publicado por Francisco (1 intervención) el 19/04/2020 16:12:09
Hola, lo primero pedir perdón porque estoy más perdido que un pulpo en un garaje... explico mi problema: Tengo dos hojas A y B, quiero que al seleccionar una celda en A, en una celda de esa misma hoja (F6 por ejemplo), me muestre la información de una celda de la hoja B asociada a ese mismo número de celda en la hoja B, es decir, en la hoja A selecciono la la celda A1 y que me presente en la celda F6 de la hoja A la información que hay en la hoja B, en la celda B1, perteneciente a la celda de la misma hoja A1 por ejemplo si en B tengo
en A1 (0) y en B1(A en color verde)
en A2 (1) y en B2 (B en color rojo)
en A3 (2) y en B3 (C en color azul)
pretendo que en la hoja A, al seleccionar la celda A1 (0) en la ventana F6 aparezca A (en color verde) es decir, respetando el color, porque el tamaño será distinto... y si selecciono la celda A2 (1) en la ventana F6 aparezca B (en color rojo) siempre respetando el Color y así sucesivamente...
He conseguido hacerlo con una macro y una referencia entre hojas, pero no me respeta los colores, llevo tres días peleando y buscando algo por ahí, porque no tengo ni idea de macros, pero después de mucho buscar, no soy capaz... ¿me podrían ayudar?
Muchas gracias de mano por la ayuda y por atender mi consulta.

Copiar celdas especificas de una hoja a otra con una macro

Publicado por daniel (1 intervención) el 17/06/2020 17:40:40
Quiero hacer algo parecido,
Quiero copiar una columna con "X" numeros de filas en otra hoja, y cada que presione el boton de copiar lo coloque en una columna difrente y asi sucesivamente.

Esta es la macro que tengo para hacer el copiado de datos , solo me falta que lo haga en una columna diferente cada que se presione el boton.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub Copiar_Datos()
'
' Copiar_Datos Macro
'
'
    Range("F4:F35").Select
    Selection.Copy
    Sheets("Reporte").Select
    Range("H4:H35").Select
    ActiveSheet.Paste
    Sheets("Data Collection Modelo 01").Select
    ActiveWindow.SmallScroll Down:=-24
    Range("E1:F1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Reporte").Select
    Range("G1:H1").Select
    ActiveSheet.Paste
    Sheets("Data Collection Modelo 01").Select
    Range("E2").Select
    Selection.End(xlToRight).Select
    Range("E2:F2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Reporte").Select
    Range("G2:H2").Select
    ActiveSheet.Paste
    Sheets("Data Collection Modelo 01").Select
    Range("H1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Reporte").Select
    Range("J1").Select
    ActiveSheet.Paste
    Range("J2").Select
    Sheets("Data Collection Modelo 01").Select
    Range("H2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Reporte").Select
    ActiveSheet.Paste
    Sheets("Data Collection Modelo 01").Select
    Application.CutCopyMode = False
End Sub