Mensaje enviado por José Rubí de la Vega <jrubi@ctv.es>

Desde el propio Excel puedes hacerlo sin problemas.
A continuacion te mando un ejemplo que puedes poner en un boton o en una
macro. El ejemplo supone que tienes tres direcciones con numero de portal
en las tres primeras celdas de la comuna A y quieres poner las direcciones
en la columna B y los numeros de portal en la C :

Dim i As Long, junto As String, calle As String, numero As Long
Dim j As Long

For i = 1 To 3
     junto = Trim$(Me.Cells(i, "A"))
     numero = ""
     Me.Cells(i, "B") = ""
     Me.Cells(i, "C") = ""
     For j = Len(junto) To 1 Step -1
         If IsNumeric(Mid$(junto, j, 1)) Then
             numero = Mid$(junto, j, 1) + numero
         Else
             Me.Cells(i, "B") = Trim$(Left$(junto, j))
             Me.Cells(i, "C") = numero
             Exit For
         End If
     Next j
Next i


At 19:36 31/10/99 -0800, Marcelo Caluva wrote:
>Tengo una base de datos de telefonos en excel 97, donde en dirección está
>la calle y el número en la misma celda. Me gustaría separarlo en dos
>campos pero no encuentro la función. Cómo lo puedo hacer?. No se


Un saludo.

_________________________________________________
José Rubí de la Vega
E-mail : jrubi@ctv.es
WWW : http://www.ctv.es/USERS/jrubi
Podrás encontrar información sobre VB, las listas
vb-esp y visualbasic-esp y un resumen de los
mensajes de las mismas