Máximos colaboradores
Popular Content
Showing content with the highest reputation on 02/13/16 in all areas
-
Qué bueno Gerson. Gracias por la recopilación. Un saludo a todos1 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.1 point
