Copiar una fila a otra hoja

Tengo un listado general en la hoja 1 donde existen los nombres de los vendedores. He creado una hoja para cada vendedor. La pregunta es la siguiente: ¿Como se puede copiar automáticamente cada fila según el valor a la hoja determinada?

Muchas gracias

DAVID

1 Respuesta

Respuesta
1

Tengo la solución a tu problema pero antes unas preguntas:

-¿En qué columna de la hoja1 están anotados los nombres de los vendedores?

-¿Los vendedores pueden están repetidos en distintas filas?

-Los datos empiezan desde A1 hacia abajo, ¿siendo la fila 1 los encabezados?

Hola experto,

Se trata de la columna A.

Los vendedores están repetidos .

La fila 1 contiene los encabezados.

Muchas gracias de antemano

David

Te mando la solución, sigue mis instrucciones.

-La pestaña donde tienes todos los vendedores renombrala como "vendedores"

-No tienes que crear las hojas tú. Solo tienes que tener la pestaña vendedores y ya está.

-Ahora solo queda ejecutar la macro siguiente:

Sub vendedores()
'por luismondelo
Sheets("vendedores").Select
Range("a1").CurrentRegion.Sort key1:=Range("a1"), order1:=xlAscending, Header:=xlYes, ordercustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("a2").Select
columna = Range("iv1").End(xlToLeft).Column
Do While ActiveCell.Value <> ""
valor = ActiveCell
fila = ActiveCell.Row
contarsi = Application.WorksheetFunction.CountIf(Columns(1), valor)
Sheets.Add after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = valor
Sheets("vendedores").Select
Range(Cells(1, 1), Cells(1, columna)).Copy Destination:=Sheets(valor).Range("a1")
Range(Cells(fila, 1), Cells(fila + contarsi - 1, columna)).Copy Destination:=Sheets(valor).Range("a2")
Do While ActiveCell.Value = valor
ActiveCell.Offset(1, 0).Select
Loop
Loop
End Sub

Hola Luis,

Disculpa mi ignorancia pero no he trabajado nunca con macros. Me surgen varias preguntas:

¿Donde y como ejecuto la macro?

¿No debo poner los nombres de los vendedores?

¿Debo introducir algún parámetro a la macro que me has indicado?

De todas formas agradezco muchísimo el tiempo que me estás dedicando.

Un saludo

David Gifreu

Primero tienes que tener habilitadas las macros para que funcione. Te dejo unos vídeos que he confeccionado para habilitarlas en excel 2007 y 2010. Después te dejo otro vídeo que te he preparado para que sepas resolver este tema.

-Para habilitar las macros en excel 2007:

http://es.tbox.ws/29yRb3

-Para habilitar las macros en excel 2010;

http://es.tbox.ws/2AMfe4

-Para resolver tu consulta con mi macro:

http://es.tbox.ws/2AMfgN

Un saludo y recuerda finalizar y puntuar la consulta

David, la consulta sigue abierta.

Apreciado Luis

Realmente encontrar este foro y encontrar gente como tú con la que esta cayendo realmente es muy reconfortable.

Voy a aconsejar a mis conocidos esta página y en especial a Luis Mondelo.

Un abrazo

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas