Freud Kant

Dante Amor respondió: Copia la macro en cada una de las hojas II, III y IV Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 100 Then Exit Sub If Not Intersect(Target, Range("C:AE")) Is Nothing Then Application.ScreenUpdating = False...

Dante Amor respondió: Te anexo la macro para los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 100 Then Exit Sub If Not Intersect(Target, Range("C:AE")) Is Nothing Then Application.ScreenUpdating = False Set h1 =...

Dante Amor respondió: Hay que utilizar una columna auxiliar. Por ejemplo, en la celda B2 pon la siguiente fórmula =JERARQUIA(A2,$A$2:$A$30,0) Copia la fórmula hasta el último de tus datos, con esta fórmula obtenemos solamente la jerarquía. Ahora en la celda C2, pon la...