18/06/2010, 17:35
|
| | | Fecha de Ingreso: marzo-2007 Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años, 9 meses Puntos: 88 | |
Vista de datos en excel Hola! Morón
Imaginando que tus datos estuviesen desde [A2:B2] hacia abajo, te sugiero incorporar la siguiente macro:
Código vb:
Ver originalSub Macro868() Dim lr As Long lr = [a2].End(xlDown).Row With Range("d2:d" & lr) .Formula = "= IF(A2=A1, """", A2)" .Value = .Value End With With Range("e2:e" & lr) .Formula = "= IF($D2="""", """", $B2)" .Value = .Value End With With Range("f2:f" & lr) .Formula = "= IF($D2="""", """", $B3)" .Value = .Value End With With Range("g2:g" & lr) .Formula = "= IF($D2="""", """", $B4)" .Value = .Value End With With Range("d2:g" & lr) .Sort Key1:=[d2], Order1:=xlAscending, Header:=xlNo .Columns.AutoFit End With End Sub
Comenta si te ha sido de utilidad, ¿si?
Saludos, Cacho. |