Macro que extraiga números que están como texto

-
¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias
-
Hola!
escribo al vuelo

Dim i As Long, strLaCadena As String

strLaCadena = "00084104350510"
For i = 1 To Len(strLaCadena)
If Not Mid(strLaCadena, i, 1) = 0 Then Exit For
Next i
strLaCadena = Mid(strLaCadena, i)

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
"Pol" escribió en el mensaje de
noticias:

Gracias por la aportación David, por ahora he conseguido lo que necesito, he
conseguido borrar todas las celdas sobrantes y que las filas queden todas
juntas, y luego le doy formato colocándolas como necesito, pero me queda una
cuestión, que es conseguir que los números de código, los que están en la
última columna del tipo:

08410435051011

Necesito que analice si el primer carácter (es número que está como texto),
si es igual a 0 que lo borre, pero el problema es que a veces hay más de un
cero, puede ser el número del siguiente modo:

00084104350510

En este caso habría que eliminar 3 ceros, como pueden ser de 1 a 6 ceros,
por lo que el código siguiente que es el que utilizo no sirve.


Por ahora estoy haciendo lo siguiente:

For i = 1 To Counter
' comprueba que la celda activa esté en vacía.
If ActiveCell = "" Or ActiveCell.Offset(0, 3).Value = "" Then
Selection.EntireRow.Delete
' Decrementa el contador por cada fila eliminada
Counter = Counter - 1
Else

Valor = ActiveCell.Value
resultado = Trim(Right(Valor, Len(Valor) - 1))
ActiveCell.Value = resultado
' selecciona la siguiente fila.
ActiveCell.Offset(1, 0).Select
End If

Next i


Agradecería si alguien me puede echar una mano a construir algún método que
analice si los números que están a la izquierda son ceros, que los elimine.

Gracias de antemano.

-
¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias
-
Hola!
escribo al vuelo

Dim i As Long, strLaCadena As String

strLaCadena = "00084104350510"
For i = 1 To Len(strLaCadena)
If Not Mid(strLaCadena, i, 1) = 0 Then Exit For
Next i
strLaCadena = Mid(strLaCadena, i)

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
"Pol" escribió en el mensaje de
noticias:

Gracias por la aportación David, por ahora he conseguido lo que necesito,
he
conseguido borrar todas las celdas sobrantes y que las filas queden todas
juntas, y luego le doy formato colocándolas como necesito, pero me queda
una
cuestión, que es conseguir que los números de código, los que están en la
última columna del tipo:

08410435051011

Necesito que analice si el primer carácter (es número que está como
texto),
si es igual a 0 que lo borre, pero el problema es que a veces hay más de
un
cero, puede ser el número del siguiente modo:

00084104350510

En este caso habría que eliminar 3 ceros, como pueden ser de 1 a 6 ceros,
por lo que el código siguiente que es el que utilizo no sirve.


Por ahora estoy haciendo lo siguiente:

For i = 1 To Counter
' comprueba que la celda activa esté en vacía.
If ActiveCell = "" Or ActiveCell.Offset(0, 3).Value = "" Then
Selection.EntireRow.Delete
' Decrementa el contador por cada fila eliminada
Counter = Counter - 1
Else

Valor = ActiveCell.Value
resultado = Trim(Right(Valor, Len(Valor) - 1))
ActiveCell.Value = resultado
' selecciona la siguiente fila.
ActiveCell.Offset(1, 0).Select
End If

Next i


Agradecería si alguien me puede echar una mano a construir algún método
que
analice si los números que están a la izquierda son ceros, que los
elimine.

Gracias de antemano.