Copiar celda
Hola, puedes utilizar la siguiente macro:
Sub CopyPeg()
Sheets(1).Select
Range("J5").Select
Selection.Copy
For i = 1 To Sheets.Count
Sheets(i).Select
Range("W14").Select
ActiveSheet.Paste
Next i
Sheets(1).Select
Range("J8").Select
Selection.Copy
For i = 1 To Sheets.Count
Sheets(i).Select
Range("Z14").Select
ActiveSheet.Paste
Next i
Sheets(1).Select
End Sub
Haz la prueba y si no te funciona o necesitas alguna aclaración no dudes en continuar la pregunta.
Saludos, Javi
Sub CopyPeg()
Sheets(1).Select
Range("J5").Select
Selection.Copy
For i = 1 To Sheets.Count
Sheets(i).Select
Range("W14").Select
ActiveSheet.Paste
Next i
Sheets(1).Select
Range("J8").Select
Selection.Copy
For i = 1 To Sheets.Count
Sheets(i).Select
Range("Z14").Select
ActiveSheet.Paste
Next i
Sheets(1).Select
End Sub
Haz la prueba y si no te funciona o necesitas alguna aclaración no dudes en continuar la pregunta.
Saludos, Javi
1 respuesta
Respuesta de javigo
1