Si está utilizando Excel para obtener información de una fuente externa, es posible que termine con información bastante extraña en sus celdas. Por ejemplo, digamos que tiene celdas que contienen números como 1,234.5-. Estos están formateados como celdas de texto en Excel y, por lo tanto, no se pueden utilizar en los cálculos.

La siguiente macro verificará las celdas en un rango seleccionado. Si las celdas contienen texto, y ese texto termina en un signo menos, la macro moverá el signo menos al principio del texto y lo volverá a colocar en la celda. El resultado es que la celda se convierte de un valor de texto al valor numérico adecuado.

Sub ConvToNum()

Dim MyText As Variant     Dim MyRange As Range     Dim CellCount As Integer

Set MyRange = ActiveSheet.Range(ActiveWindow.Selection.Address)

For CellCount = 1 To MyRange.Cells.Count         MyText = MyRange.Cells(CellCount).Value         If VarType(MyText) = vbString Then             MyText = Trim(MyText)

If Right(MyText, 1) = "-" Then                 MyText = "-" & Left(MyText, Len(MyText) - 1)

MyRange.Cells(CellCount).Value = MyText             End If         End If     Next CellCount End Sub

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (2300) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posterior) aquí:

enlace: / excelribbon-Converting_Text_to_Numbers [Conversión de texto en números].