Eliminar caracteres de una celda
Hola. Por cambio de e-mail vuelvo a solicitar apoyo para elaborar una macro que me permita eliminar 2 caracteres de una celda. La estructura de mis datos es la siguiente: 1PS10, necesito eliminar los caracteres PS y dejar los números, que solo me deje en este ejemplo el 110.
Gracias por su apoyo.
Te mando la solución. La macro está preparada para ejecutarla cuando estés posicionado en la celda en cuestión.
Sub ejemplo()
'por luismondelo
tope = Len(ActiveCell)
For por = 1 To tope + 1
extrae = Mid(ActiveCell, por, 1)
If IsNumeric(extrae) Then
lista = lista & extrae
End If
Next
ActiveCell.Value = lista
End Sub
Recuerda cerrar la consulta
Hola nuevamente. Gracias de antemano por la respuesta. Para completarlo, si no es mucha molestia, me podrías indicar como hacer para que me realice esta operación en un rango de celdas. Es decir, mi lista esta en la columna "j" del 2 al 424.
Gracias y Excelente respuesta la anterior.
Entonces la macro queda así:
Sub ejemplo()
'por luismondelo
Range("j2").Select
Do While ActiveCell.Value <> ""
tope = Len(ActiveCell)
For por = 1 To tope + 1
extrae = Mid(ActiveCell, por, 1)
If IsNumeric(extrae) Then
lista = lista & extrae
End If
Next
ActiveCell.Value = lista
lista = ""
ActiveCell.Offset(1, 0).Select
Loop
End Subrecuerda finalizar
