20/Ago/05 11:00
Re: FORMULA PARA IDENTIFICAR UN NUMERO IGUAL
La siguiente macro elimina el registro repetido y te lleva un control en otra hoja de cuales elimino:
Sub EliminarRepetidosYRegistro()
contador = 1
valor = ActiveCell.Value
ActiveCell.Offset(1, 0).Range("A1").Select
While ActiveCell.Value <> ""
If ActiveCell.Value = valor Then
ActiveSheet.Next.Select
If ActiveCell.Value <> valor Then
ActiveCell.Offset(1, 0).Range("a1").Select
ActiveCell.Value = valor
End If
ActiveSheet.Previous.Select
Selection.Delete Shift:=xlUp
contador = contador + 1
Else
If contador <> 1 Then
ActiveSheet.Next.Select
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = contador
ActiveCell.Offset(0, -1).Range("a1").Select
ActiveSheet.Previous.Select
End If
contador = 1
valor = ActiveCell.Value
ActiveCell.Offset(1, 0).Range("A1").Select
End If
Wend
If contador <> 1 Then
ActiveSheet.Next.Select
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = contador
ActiveCell.Offset(0, -1).Range("a1").Select
ActiveSheet.Previuos.Select
End If
End Sub
Espero que esto te ayude y por lo de la convertida en frase que frase quieres? o quieres que te de el numero en letra aqui mismo en fiscalia hay una de numeros a letras
Saludos.
Y feliz in de semana. :)
Ruben Guardado
"Cuando hables, procura que tus palabras sean mejores que el silencio."
[img:a70cdfd4e2]http://www.gifmania.com.mx/banderas/America_Central/Mexico/mexico-clear.gif[/img:a70cdfd4e2]
