Saltar al contenido

Máximos colaboradores

Popular Content

Showing content with the highest reputation on 02/13/16 in Mensajes

  1. Extraer numeros de cadena alfanumerica (mejorada)

    1 point
    Qué bueno Gerson. Gracias por la recopilación. Un saludo a todos

  2. Extraer numeros de cadena alfanumerica (mejorada)

    1 point
    Hola: Pues después de ver a tanto "monstruo" por aquí, no iba yo a quedarme mudo. Sub SoloNumeros() For Each celda In Selection For x = 1 To Len(celda.Value) If IsNumeric(Mid(celda.Value, x, 1)) Then cadena = cadena & Mid(celda.Value, x, 1) Next x celda.Value = cadena Next celda End Sub [/CODE] Que los vientos os sean propicios para que vuestras naves lleguen a puerto amigo. Y si no teneis naves, pues,...........no se,.....ya se me ocurrirá algo. Saludos.