
01/04/2011, 11:43
|
 | | | Fecha de Ingreso: marzo-2007 Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 18 años Puntos: 88 | |
Buscar máximos en una macro mediante "cells.find" excel 2007 Hola! aheld55. Para una estructura de datos como la mostrada, fíjate en lo siguiente:
Código vb:
Ver originalSub Macro993() Dim Rng As Range Set Rng = Sheets("Daten").[a1].CurrentRegion.Columns(1) With Range("c1:c" & [a1].End(xlDown).Row).Offset(, 4) .Formula = "= SUMPRODUCT( (A1 = " & _ Rng.Address(External:=True) & ")*(B1 = " & _ Rng.Offset(, 1).Address(External:=True) & ") * ROW(" & _ Rng.Offset(, 2).Address(External:=True) & ") )" .Value = .Value .Offset(, -4).Formula = "= IF(" & _ .Cells(1).Address(False, False) & "=0, """", INDEX(" & _ Rng.Offset(, 2).Address(External:=True) & ", " & _ .Cells(1).Address(False, False) & ") )" .Offset(, -4).Value = .Offset(, -4).Value .EntireColumn.Delete End With Set Rng = Nothing End Sub
¿Te puede ser de utilidad?
Saludos, Cacho. |