ELIMINAR

Hola HM,

Gracias, pero antes de irme... me gusta mas esta UDF:

Function Alfanumerico(Txt As String, Optional Letras As Boolean)
Dim i As Long, Tmp As String, Car As String * 1
If Letras Then
For i = 1 To Len(Txt)
Car = Mid(Txt, i, 1)
If Not IsNumeric(Car) Then Tmp = Tmp & Car
Next i
Alfanumerico = Tmp
Else
For i = 1 To Len(Txt)
Car = Mid(Txt, i, 1)
If IsNumeric(Car) Then Tmp = Tmp & Car
Next i
If Len(Tmp) Then Alfanumerico = CDbl(Tmp)
End If
End Function

Saludos,
KL


"Héctor Miguel" wrote in message
news:%23%

hola, KL !

... necesito un descanso

mas que ganado y merecido :)

saludos,
hector.

hola, KL !

Gracias, pero antes de irme... me gusta mas esta UDF:
Function Alfanumerico(Txt As String, Optional Letras As Boolean) [...]

me parece muy adecuada...
[sobre todo para un 'indeciso' o que pudiera cambiar de parecer 'al vuelo'... numeros???... letras???]
solo habria que considerar [si se utilizara 'varias' veces] que la fucion es de tipo 'variant'
[por los requerimientos de 'almacenamiento en memoria'] ;)

saludos,
hector.