por LUIS MIGUEL LOPEZ OSORIO » 02 Dic 2005 01:07
Hola amigos,
por Andoni » 03 Dic 2005 02:01
Sub Pruebala()
Dim Rg As Range, Rg1 As Range, Cell As Range
Dim X As Single
Set Rg = Sheets(1).Range("A1").CurrentRegion
With Rg 'Ordeno xa que sea mas facil de entender
For X = .Columns.Count To 1 Step -1
.Cells(X).Select
.Sort Key1:=.Cells(X), Order1:=xlAscending, Header:=xlYes
Next X
Set Rg1 = .Columns(.Columns.Count + 1)
With Rg1
.FormulaR1C1 = "=RC[-6]&RC[-5]&RC[-4]&RC[-3]&RC[-2]&RC[-1]"
.Value = .Value
End With
For Each Cell In Rg1.Cells
If Application.WorksheetFunction.CountIf(Rg1, Cell) > 1 Then
Cell.Interior.ColorIndex = 3
End If
Next Cell
End With
End Sub
por LUIS MIGUEL LOPEZ OSORIO » 26 Jul 2006 02:12
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 3 invitados
