Jump to content
Sign in to follow this  
lphant

Buscar datos y juntarlos en una celda

Recommended Posts

Hola Iphant, aqui tienes. Por cierto te respondi la otra pregunta que habías hecho (relacionado más o menos con ésto), y de hecho con algunas modificaciones sobre aquél mismo trabajo creo que se puede lograr lo que pides aquí.

Pude notar que sólo tienes previsto 3 combinaciones de colores para cada código, no se si esto es así, o puede cambiar.

=====================================

Si te gustó este aporte, no olvides premiarme con un "me gusta" !

 

Iphant_Libro5.xlsm

Share this post


Link to post
Share on other sites

Otra opción. Colocar estas 2 macros en la hoja1.

Private Sub Worksheet_Change(ByVal Target As Range)
   Application.EnableEvents = False
   If Target.Column = 1 And Target.Row > 1 Then ObtenerColores Target
   Application.EnableEvents = True
End Sub

Sub ObtenerColores(Target As Range): On Error Resume Next
   Hoja1.Range(Target.Offset(0, 1), Target.Offset(0, 3)).ClearContents
   With Hoja2.UsedRange
      .AutoFilter Field:=1
      .AutoFilter Field:=1, Criteria1:=Target.Value
      For Each fila In .SpecialCells(xlCellTypeVisible).Rows
         If fila.Row > 1 Then
            Target.Offset(0, 1) = Target.Offset(0, 1) & " / " & .Cells(fila.Row, 2)
            Target.Offset(0, 2) = Target.Offset(0, 2) & " / " & .Cells(fila.Row, 3)
            Target.Offset(0, 3) = Target.Offset(0, 3) & " / " & .Cells(fila.Row, 4)
         End If
      Next
   End With
   Target.Offset(0, 1) = Mid(Target.Offset(0, 1), 4)
   Target.Offset(0, 2) = Mid(Target.Offset(0, 2), 4)
   Target.Offset(0, 3) = Mid(Target.Offset(0, 3), 4)
End Sub

 

Share this post


Link to post
Share on other sites

Perdonarme, sé que os estoy liando, fallo mío que me he liado a hacer algo deprisa y corriendo sin pensar lo que necesitaba, no me regañéis.

Os vuelvo a intentar explicar lo que necesito.

Necesito que según el tipo “columna B Hoja2” y los datos que sean iguales en la “columna A hoja 2” se junten en la hoja 1 en la celda correspondiente.

En el ejemplo que os adjunto se ve mejor.

Muchas gracias.

Un saludo,

Libro5 corregido.xls

Share this post


Link to post
Share on other sites

Esto es lo que has pedido:

Cita

Añadir en una celda todos los datos que sean igual al número de la columna A

Y eso es lo que se te ha hecho.

La columna Tipo no estaba en el archivo original.

Share this post


Link to post
Share on other sites
Hace 1 hora, Macro Antonio dijo:

Esto es lo que has pedido:

Y eso es lo que se te ha hecho.

La columna Tipo no estaba en el archivo original.

Antonio, lo que tu aportastes todavia no lo habia mirado cuando escribie el mensaje.

lo del tipo es algo que me ha surguido al estar comprobando los datos que me habian pasado ( error mio que me adelante a tener los datos ).

un saludo,

Share this post


Link to post
Share on other sites

Hola Iphant, mira que das guerra, osea te deberias de llamar Iphant Guerra..:lol::lol:

Bueno pon un ejemplo de como estan los tipos puestos en otra hoja... No soy adivino¡¡¡ Y cuando tenga un rato lo miro.

Share this post


Link to post
Share on other sites
Hace 3 horas, ikanni dijo:

Hola Iphant, mira que das guerra, osea te deberias de llamar Iphant Guerra..:lol::lol:

Bueno pon un ejemplo de como estan los tipos puestos en otra hoja... No soy adivino¡¡¡ Y cuando tenga un rato lo miro.

Jajajaajaa....que razon tienes.

Te adjunto el excel con el ejemplo ;)

muchas gracias.

Ejemplo.xlsm

Share this post


Link to post
Share on other sites

Hola Iphant,

El problema de cambiar tanto la pregunta con lleva que lo que te he hecho es apañartelo. Si en un principio lo habrías planteado como al final, lo habría hecho de otra manera. Si tengo tiempo el fin de semana .....

SAludos

 

Ejemplo_IK.xlsm

Share this post


Link to post
Share on other sites
En 3/3/2017 at 17:30 , ikanni dijo:

Hola Iphant,

El problema de cambiar tanto la pregunta con lleva que lo que te he hecho es apañartelo. Si en un principio lo habrías planteado como al final, lo habría hecho de otra manera. Si tengo tiempo el fin de semana .....

SAludos

 

Ejemplo_IK.xlsm

muchas gracias ikanni.

siento haber cambiado tanto en este tema, me fue surguiendo cosas diferentes segun fue avanzando.

lo dicho, muchas gracias.

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png