VBA convertir texto a número

gracias,

pero en realidad planeo integrar estas líneas en una macro ya existente...

Conozco su método, desafortunadamente realmente necesito pasar por una macro

gracias

Acabo de probar el método y no funciona... siempre tengo el pequeño triángulo verde que me dice que el contenido de las celdas está en formato texto.
Usé su método en una macro:

Columns("M:N").Select
Selection.NumberFormat = "0.00"
Range("O3").Select
ActiveCell.FormulaR1C1 = "1"
Range("O3").Select
Selection.Copy
Range("M5:N277").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
ActiveWindow.ScrollRow = 269
ActiveWindow.ScrollRow = 267
ActiveWindow.ScrollRow = 266
ActiveWindow.ScrollRow = 264
ActiveWindow.ScrollRow = 262
ActiveWindow.ScrollRow = 258
ActiveWindow.ScrollRow = 255
ActiveWindow.ScrollRow = 251
ActiveWindow.ScrollRow = 247
ActiveWindow.ScrollRow = 243
ActiveWindow.ScrollRow = 238
ActiveWindow.ScrollRow = 235
ActiveWindow.ScrollRow = 231
ActiveWindow.ScrollRow = 229
ActiveWindow.ScrollRow = 226
ActiveWindow.ScrollRow = 222
ActiveWindow.ScrollRow = 219

etc etc...

¿De dónde viene el error por favor??

Gracias

Hola,

tengo el mismo problema, el pegado especial manual transforma los valores en números pero no funciona en VBA... ¿Has encontrado una solución?

Gracias de antemano,

Saludos.

'transformación columna b
Dim Tabl(), i As Long
Tabl = Rango("B4:B33")
For i = LBound(Tabl, 1) To UBound(Tabl, 1)
Tabl(i, 1) = CInt(Tabl(i, 1))
Next
Rango("B4").Resize(UBound(Tabl, 1), 1) = Tabl

'transformación columna C
Dim Tabl1(), j As Long
Tabl1 = Rango("c4:c33")
For j = LBound(Tabl1, 1) To UBound(Tabl1, 1)
Tabl1(j, 1) = CInt(Tabl1(j, 1))
Next
Rango("c4").Resize(UBound(Tabl1, 1), 1) = Tabl1

Así es como lo hice para tratar 2 columnas

gracias por todo
me muestra un error '13' en Tabl(i, 1) = CInt(Tabl(i, 1))
¿qué debo hacer?

Hola,
¿Cuál es el mensaje de error?

gracias pijaku, he utilizado Excel directamente con el método básico de convertir en el menú de datos
buen día

hola
para solucionar este problema hay que nombrar las celdas a convertir y luego utilizar el siguiente código VBA:
1 para el formato número nombe "Monto"
y aquí está el código

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

2 Para las fechas
' Convertir_TexteFecha Macro

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

Buena suerte

Oh, olvidé
2 para el formato de fecha llamado "Fechas"