Copiar información a celdas seleccionadas
Publicado por Héctor (2 intervenciones) el 21/07/2019 21:08:36
Buenas noches,
Agradeceria mucho cualquier ayuda que me puedan prestar para completar la macro que intento crear.
A continuación explico el objetivo:
He creado un botón (Form control), al hacer click en este botón, deseo copiar la información que contiene las celdas C4 a C11 (estan unidas de 2 en 2, por lo que son 4 datos) y pegarla en las celdas que yo seleccione (no es un rango fijo). En la parte de pegar es donde ando perdido, después de darle vueltas todo el fin de semana buscando información, he conseguido pegar donde selecciono pero solo se pega información de C4 y C5 (el primer dato) y en la primera casilla (ej: selecciono I17:24 a M17:24, pero solo se pega información en I17:18(una casilla ya que las dos celdas estan unidas). Adjunto el codigo:
Por si sirve de ayuda, es un calendario de camaras climaticas y he creado una casilla en la que introduzco 4 datos. Con un boton quiero copiar los datos en la fecha en la que se realiza la reserva. De manera que visualmente sea fácil saber la ocupación de la cámara.
Agradeceros de antemano cualquier ayuda prestada.
Recibid un coordial saludo.
Héctor
Agradeceria mucho cualquier ayuda que me puedan prestar para completar la macro que intento crear.
A continuación explico el objetivo:
He creado un botón (Form control), al hacer click en este botón, deseo copiar la información que contiene las celdas C4 a C11 (estan unidas de 2 en 2, por lo que son 4 datos) y pegarla en las celdas que yo seleccione (no es un rango fijo). En la parte de pegar es donde ando perdido, después de darle vueltas todo el fin de semana buscando información, he conseguido pegar donde selecciono pero solo se pega información de C4 y C5 (el primer dato) y en la primera casilla (ej: selecciono I17:24 a M17:24, pero solo se pega información en I17:18(una casilla ya que las dos celdas estan unidas). Adjunto el codigo:
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro1()
'
' Macro1 Macro
'
Dim Seleccion As Range
For Each Seleccion In Selection
Seleccion.Value = Range("C4:C11").Value
Range("C4:C11").Select
Selection.ClearContentsNext
End Sub
Por si sirve de ayuda, es un calendario de camaras climaticas y he creado una casilla en la que introduzco 4 datos. Con un boton quiero copiar los datos en la fecha en la que se realiza la reserva. De manera que visualmente sea fácil saber la ocupación de la cámara.
Agradeceros de antemano cualquier ayuda prestada.
Recibid un coordial saludo.
Héctor
Valora esta pregunta
0
