Macro para copiar filas con condición a hojas diferentes

Solo consultas sobre macros y código VBA Excel.
Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Responder
DanielQH
Miembro Frecuente
Miembro Frecuente
Mensajes: 5
Registrado: 02 Oct 2019 17:31

Macro para copiar filas con condición a hojas diferentes

Mensaje por DanielQH » 11 Oct 2019 14:51

Hola buen día!

antes que nada les agradezco la atención,

necesito crear una macro que encuentre el valor de una celda (1-7), copie, y pegue la fila en la hoja que le corresponde (igual 1-7),

me pueden ayudar? dejo el archivo de excel

les mando un fuerte abrazo
No tienes los permisos requeridos para ver los archivos adjuntos a este mensaje.



Avatar de Usuario
Antoni
Miembro Frecuente
Miembro Frecuente
Mensajes: 6287
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)

Re: Macro para copiar filas con condición a hojas diferentes

Mensaje por Antoni » 12 Oct 2019 06:06

Como no te expliques mejor,.......



Avatar de Usuario
Cacho R
Miembro Frecuente
Miembro Frecuente
Mensajes: 11575
Registrado: 23 Jun 2011 17:15
Ubicación: Buenos Aires
Contactar:

Re: Macro para copiar filas con condición a hojas diferentes

Mensaje por Cacho R » 12 Oct 2019 22:10

Hola! Daniel (y Antoni)
Para "mi gusto" sólo te falta aclarar una cosa: la info a copiar... ¿Reemplaza la que pudiera estar existente o se acumula a la info previa de cada hoja?

Saludos, Cacho R.
.



DanielQH
Miembro Frecuente
Miembro Frecuente
Mensajes: 5
Registrado: 02 Oct 2019 17:31

Re: Macro para copiar filas con condición a hojas diferentes

Mensaje por DanielQH » 15 Oct 2019 12:47

Hola Cacho, la info debería ser reemplazada cada vez que se pase a la hoja correspondiente o por lo menos así me la imagino, por supuesto que como de esto no se nada, pues estoy abierto a sugerencias y cualquier tipo de ayuda.

Saludos y gracias!



Avatar de Usuario
Cacho R
Miembro Frecuente
Miembro Frecuente
Mensajes: 11575
Registrado: 23 Jun 2011 17:15
Ubicación: Buenos Aires
Contactar:

Re: Macro para copiar filas con condición a hojas diferentes

Mensaje por Cacho R » 15 Oct 2019 18:39

Ok, Daniel. Entonces intenta con lo que sigue:

Código: Seleccionar todo

Sub distribuir_según_Hoja()
Dim Rng As Range, C As Range, ws As Worksheet
Application.ScreenUpdating = False
Set Rng = Range("b12:u" & [p12].End(xlDown).Row)
[at1] = [q12].Value
Rng.AdvancedFilter 2, "", [at1], True
Set C = [at2]

On Error Resume Next
Do While C <> ""
  Err.Clear
  Set ws = Sheets(CStr(C))
  If Err.Number Then
    MsgBox "La hoja '" & C & "' no se encuentra en este libro."
    Exit Sub
  End If
  Set C = C.Offset(1)
Loop
On Error GoTo 0
  
Do
  Set ws = Sheets(CStr([at2]))
  ws.Range("b13:u" & ws.Cells(Rows.Count, "q").End(xlUp).Row).Delete xlShiftUp
  
  Rng.AdvancedFilter 2, Rng.Worksheet.[at1:at2], ws.[b13], False
  ws.[b13].CurrentRegion.Columns.AutoFit
  Rng.Worksheet.[at2].Delete xlShiftUp
Loop Until Rng.Worksheet.[at2] = ""

Rng.Worksheet.Range("at1:at5").Delete xlShiftUp
Application.ScreenUpdating = True
End Sub



Responder