Foro Excel

no se si sea correcto pero utilizo esta herramienta de separar texto para corregir los errores de texto de muchas columnas

me gustaria programarlo con macro

intente grabar la macro en el archivo adjunto pero no me funciona a la hora de correr la macro

me pueden ayudar

saludos

Hola, según mmi parecer es una explicación laxa, pobre, el adjunto no contien macros, no se entiende el objetivo de la macro deseada.

una disculpa olvide agregar la macro


Sub separartextoparaquitartriangulitoverde()
'
' separartextoparaquitartriangulitoverde Macro
'

'
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
End Sub

.

Abrí los dos archivos y lo único que veo es en la column A, celda A1 que dice Ce. y para abajo números.
Ce.
3752
3752
3752

ahora bien sigo sin enteder que querés hacer con esos números? por las dudas andá probando:
=VALOR(LIMPIAR(A2)). Texto en columnas no va separar por que no hay un delimitador.
Puedes además probár con la siguiente fórmula:
1) pon esto en la celda B2 : =VALOR(MED($A2;COLUMNA(A1);1))
2) Estira horizontalmente (copias hacia la derecha) la fórmula hasta la celda E2 (queda seleccionado el rango B2:E2
3) Estira verticalmente (copias hacia abajo).

Espero se entienda.

esos numeros traen un formato que baja directamente de un sistema y que no me funcionan esas celdas para hacer formulas referenciandolas

le quito ese formato con un texto en columna pero se que no es lo mas correcto

me gustaria hacerlo con una macro

Para que la macro? Si puede hacer lo siguiente:
1) te ubicas en a2, presionas Ctrl + Shift + Flecha abajo
con esto selecciono todo.
2) me voy "arriba" despliego el error (cartelito) y elijo convertira a número
3)listo

Ahora si quieres con macros, va alternativa

Código: Seleccionar todo

Sub Valores()
Dim Celda As Range
Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).NumberFormat = "0"
For Each Celda In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
  Celda.Value = Val(Celda.Text)
Next Celda
End Sub

este es el error que me aparece en las columnas

Convertir en número los números guardados como texto Artículo En algunos casos, los números de las hojas de cálculo se almacenan en las celdas con formato de texto, lo que puede provocar problemas en los cálculos o hacer q...
Convertir en números aquellos números almacenados como texto Artículo Mostrar todo Ocultar todo A veces, a los números se les puede dar formato de texto y almacenarlos


y la macro es porque bajo muchas columnas a excel y me tardo mucho haciendolo manual

no me funciono la macro valores

A mi funcionó la macro y en tu archivo, no se lo que puede estar pasando, no entiendo bien lo que explicas, esperemos por otro forista que lo entienda.

muchas gracias de todos modos

me ha pasado muchas veces esto pero es por los formatos o las versiones que generan los sistemas de administracion

Amigo no se si ya solucionaste tu duda
pero aqui te mando la solucion para ese problema,
utilizando la macro De "Adrian". la cual me parece excelente.

Public Sub NumasText()
'Corrige en las celdas Celeccionadas el Error de "Numero almacenado como texto".
Dim Celda As Range
Selection.NumberFormat = "0"
For Each Celda In Range(Selection, Cells(1))
Celda.value = Val(Celda.Text)
Next Celda
End Sub

como puedo hacer para que posicionandome en la primer celda no tenga que seleccionar el rango para correr la macro

hacer esta intruccion con macro Range(Selection, Selection.End(xlDown)).Select

y despues activar la macro

saludos