Buenas tardes... por favor necesito ayuda sobre el siguiente tema: tengo una macro que corta y transfiere datos en una hoja, sin afectar el formato de la celda de origen. En la misma hoja me funciona de maravillas, pero no puedo transferir datos A OTRAS 7 HOJAS SIMILARES, en los mismos rangos. Cuando lo intento me copia los datos en la misma hoja de origen. Les agradeceria me pudieran ayudar con esto.
'seleccionar la primer celda de destino
Set rgoDestino = Application.InputBox("Haga clic en lugar de destino", Type:=8) 'me selecciona bien la celda de la otra pagina, pero cuando doy aceptar me copia es en la misma pagina de origen, en el rango correcto que he elegido.
If Not rgoDestino Is Nothing Then
'se desprotege la hoja para copiar y pegar
ActiveSheet.Unprotect 'si tiene clave quedaría así: ActiveSheet.Unprotect "tu_clave"
Range(rgoOrigen).Copy
Range(rgoDestino.Address).Select
ActiveSheet.Paste
Range(rgoOrigen).ClearContents 'este es el rango copiado
ActiveSheet.Protect
End If
End Sub
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Buenas tardes... por favor necesito ayuda sobre el siguiente tema: tengo una macro que corta y transfiere datos en una hoja, sin afectar el formato de la celda de origen. En la misma hoja me funciona de maravillas, pero no puedo transferir datos A OTRAS 7 HOJAS SIMILARES, en los mismos rangos. Cuando lo intento me copia los datos en la misma hoja de origen. Les agradeceria me pudieran ayudar con esto.
Sub MigrarPUB()
ActiveCell.Offset(0, 0).Range("B1:GO1").Select
Selection.Copy
rgoOrigen = Selection.Address
'seleccionar la primer celda de destino
Set rgoDestino = Application.InputBox("Haga clic en lugar de destino", Type:=8) 'me selecciona bien la celda de la otra pagina, pero cuando doy aceptar me copia es en la misma pagina de origen, en el rango correcto que he elegido.
If Not rgoDestino Is Nothing Then
'se desprotege la hoja para copiar y pegar
ActiveSheet.Unprotect 'si tiene clave quedaría así: ActiveSheet.Unprotect "tu_clave"
Range(rgoOrigen).Copy
Range(rgoDestino.Address).Select
ActiveSheet.Paste
Range(rgoOrigen).ClearContents 'este es el rango copiado
ActiveSheet.Protect
End If
End Sub