☰

Copiar y pegar en Excel 2013

tag-icon • tag-icon copy-paste
Copiar y pegar en Excel 2013

¿Cómo copio la celda H47 de la Hoja 2 a la Hoja 500 y luego la pego en la Hoja 1 donde A2 para la Hoja 2 H47? A3 para Hoja3 H47; A4 para Hoja 4 H47; A5 para Hoja 5 H47.... A500 para Hoja 500 H47

Respuesta1

Si entiendo tu pregunta, en VBA, podrías hacer:

Sub CopyToManySheets
Dim copyRng as Range
Set copyRng = Range ("Sheet2!$H$47")
copyRng.select
Selection.copy
Dim index as integer
For index = 1 to 500
If Not (IsError (Range ("Sheet" & index & "!A" & index))) Then
Range ("Sheet" & index & "!A" & index).Select
Selection.Paste
Else
End if
Next
Set copyRng = Nothing
Exit Sub

información relacionada