14/09/2009, 09:04
|
 | | | Fecha de Ingreso: marzo-2007 Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años, 9 meses Puntos: 88 | |
 Consulta sobre lista en excel
Una opción podría ser:
Código PHP: Sub DistingueEmailRepetidos()
Rem Seleccionar alguna celda del conjunto de direcciones de correo
Rem a controlar.
Rem Luego de ello: ejecutar la presente macro.
Dim Tmp As String, MyForm As String
With Intersect(ActiveCell.CurrentRegion, ActiveCell.EntireColumn)
.FormatConditions.Delete: Tmp = .Cells(1)
.Cells(1).Formula = "= COUNTIF(" & .Address & ", " & _
ActiveCell.Address(False, False) & ") > 1"
MyForm = .Cells(1).FormulaLocal: .Cells(1) = Tmp
.FormatConditions.Add Type:=xlExpression, Formula1:=MyForm
.FormatConditions(1).Font.Bold = True
.FormatConditions(1).Interior.ColorIndex = 22
End With
End Sub
Saludos, Cacho.  |