Jump to content

Macro para transferir datos a otras hojas


Recommended Posts

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

Link to post
Share on other sites

@oaseijas39 , teienes un buen jaleo, me temo... ;)

No he entendido bien qué quieres hacer.

  • ¿Quieres copiar el rango solo a la hoja que selecciones en el Inputbox, o a todas las hojas?
  • ¿El rango copiado se pegaría en la misma posición en la hoja destino?

Deberías subir tu fichero original para dejarlo todo preparado en él

Edited by Haplox
Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Crear macros Excel

  • Posts

    • saludos  esta perfecto tu ejemplo. me sirve de mucho. ahora otra duda como se podría aplicar este mismo ejemplo pero con los datos de una tabla dinámica. ya que esa formula es con celdas fijas.  pero como lo aplico a una tabla  para sacar el porcentaje de lo que he avanzado  si cuando actualizo la tabla me da error.  gracias   
    • muchas  gracias  esta perfecto
    • @Gerson PinedaMuchas gracias.  Os lo agradezco a los dos, me va a ir bien cualquiera de las fórmulas. Y sino en este fichero en otro con la misma situación. Moisés.
    • cuando grabas una entra o salida se redondea el numero en la existencia ejemplo si vendes 1.5 en existencia descuenta 2  igual si es una compra
    • Private Sub CommandButton11_Click() Dim Descarga As Range Set Descarga = Sheets("Hoja2").Columns("C").Find(TextBox2, lookat:=xlWhole) If Not Descarga Is Nothing Then Descarga.EntireRow.Delete CommandButton6_Click End If End Sub '--------- Private Sub CommandButton6_Click() TextBox2.Text = "" TextBox12.Text = "" TextBox13.Text = "" TextBox14.Text = "" TextBox15.Text = "" TextBox16.Text = "" TextBox17.Text = "" TextBox18.Text = "" TextBox19.Text = "" TextBox20.Text = "" TextBox23.Text = "" '<-------------------- estaba mal TextBox2.SetFocus ' EL SetFocus devuelve el cursor al inicio End Sub  
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy