Saltar al contenido

Ayuda macros q cambie nombres de hojas según columna y copie datos de la fila según la hoja del mismo nombre


Recommended Posts

Hola.
Necesito una macros que de la hoja 1, cambie los nombre de las próximas hojas, según la columna A y que los datos de la fila 1 se copien en la hoja según el nombre de la hoja.
Ejemplo:
Celda A1 es el nombre de la hoja 2, y los datos de la fila B1:E1 deben ir en esa hoja, pero en la fila A3:D3
Celda A2 es el nombre de la hoja 3, y los datos de la fila B2:E2 deben ir en esa hoja, pero en la fila A3:D3
Envío una muestra, ya que son mas de 2.000 columnas.
Gracias desde ya.

Enlace a comentario
Compartir con otras webs

Sub ActualizarHojas()
Application.ScreenUpdating = False
For x = 1 To Range("A" & Rows.Count).End(xlUp).Row
   Range("B" & x & ":E" & x).Copy
   Sheets(Range("A" & x).Value).Range("A3:D3").PasteSpecial xlValues
Next
Application.CutCopyMode = False
End Sub

 

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.