VBA - Conversión de texto a número

Buen día, XRay
quizás esto te convenga

If UserForm3!TextBox1.Value = "" Then ActiveCell.Value .Value = "" Else ActiveCell.Value = CDbl(UserForm3!TextBox1.Value) End If

buen día

utiliza en su lugar la función VAL() que transforma texto en número y que es una función de VBA

my_string = "9874" val(my_string)=9874

el tiempo no es dinero, el tiempo es vida

Disculpa, no presté atención.

En la ayuda de VBA, se habla de VAL... que es muy adecuado... ;-)

Hasta luego, Blux

 "Los idiotas se atreven a todo. Es incluso por eso que los reconocemos"

HOLA a todos

En una tabla creada con Excel 2003, me gustaría reemplazar automáticamente en otra columna las F por 2 y las H por 1.
Para el principiante que soy, esto me parece difícil porque no encuentro ninguna función para hacerlo.
¿Hay algún truco?
Gracias por cualquier respuesta.

Hola Xray,
Te propongo un método en 2 pasos:

1/ Haces un copiar/pegar especial (cambia los parámetros) para pegar como número el contenido de las celdas que te interesan
2/ Cambias el estilo "a mano" grabando una macro.

Compilas todo en 1 programa. ¡Y listo!

.............D............I..............E..................I............. F...............I............... G..........I
...........................I..................................I...............................I............................I
....11/03/2010 ....I........ Couleur ...........I............ 45..............I... #VALOR!.........I
....25/03/2010 ....I.......... Madera ...............I........... 60...............I... #VALOR! .......I

aquí hay una vista previa de mi tabla y aquí está mi fórmula en G: = E6*7+D6

necesitaría calcular un plazo. En E hay una lista desplegable que contiene las palabras Madera, Color, Blanco, Curvado y Bicolor. Cada una de ellas corresponde a un plazo de entrega en semanas de ahí el 7 en la fórmula.

en VBA tras usar la ayuda hice esto pero no funciona (al mismo tiempo, dado mi nivel, me lo esperaba)

Private Sub Workshee1_Calculate() If Target.Column <> 7 Or Target.Row < 6 Or Target.Cells.Count > 1 Then 'si la columna <>7 (C) o la fila <6 o la selección hace más de 1 celda Private Const Madera As Integer = 4 Private Const Color As Integer = 3 Private Const Curvado As Integer = 6 Private Const Bicolor As Integer = 4 Private Const Blanco As Integer = 2 Else On Error GoTo Fin End If End Sub

Hola,

en la ayuda de Excel sobre cadenas de caracteres, se encuentra la función CNUM, seguramente te será útil...

la lista de funciones se obtiene buscando "Acerca de las funciones de texto" en la ayuda

Saludos, Blux

 "Los tontos se atreven a todo. Es incluso así como los reconocemos"

puedes conseguir un libro sobre VB o bien ir a buscar la librería MSDN en la red (legalmente, por supuesto)

No te tomes tu tiempo porque el tiempo no te espera.