Excel - condicion no funciona

   
Vista:

condicion no funciona

Publicado por ivan (7 intervenciones) el 18/08/2008 01:59:39
que tal, estoy tratande de filtrar datos trayendo datos de un libro a otro, esto mediante la entrada desde teclado por medio de un cuadro de mensaje, lo intente con cuadros de texto sobre la hoja per nunca funciono lamacro y me marcaba error, ahora con el cuadro de texto ya no me manda error pero no entra a la condicion, me ayudan? este es el codigo

Mensaje1 = "introfuce el porcentaje que deseas traer"
Titulo1 = "Cuadro de entrada"
Estandar1 = 1
valor = InputBox(Mensaje1, Titulo1, Estandar1)

Workbooks("MinutaRF(Sureste).xls").Activate
Sheets("Top Ofenders").Select

Cells(filalista, columnalista).Select
aux = ActiveCell * 100 // esto es para converir la ccelda que esta en porcentaje a numero

If aux > valor Then // a esta condicion no entra
Workbooks("Extraer.xls").Activate
Sheets("Hoja1").Select

Cells(4, 2) = 4
Range("C4") = aux


filalista = filalista + 1
Else

filalista = filalista + 1
End If
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:condicion no funciona

Publicado por Abraham Valencia (2418 intervenciones) el 19/08/2008 00:04:13
Intenta con:

If aux > Val(valor) Then

y comentas

Abraham
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:condicion no funciona

Publicado por ivan (3 intervenciones) el 19/08/2008 07:12:23
ok, si funciono muchas gracias, pero anteriormente estuve intentando con un cuadro de texto insertado en la hoja, pero me marcaba un error a la hora de compilar el codigo, obvio estoy equivocado. como accedo al valor introducido a un cuadro de texto( control ActiveX)

Workbooks("MinutaRF(Sureste).xls").Activate
Sheets("Top Ofenders").Select

valor = TextBox1.Text 'aqui me marca el error, aunque tambien intente con
'val(TextBox1.Text)
filalista = fila + 1
columnalista = columna + 1

Cells(filalista, columnalista).Select
aux = ActiveCell * 100

Range("B1") = aux

If aux > Val(valor) Then
Workbooks("Extraer.xls").Activate
Sheets("Hoja1").Select

Cells(4, 2) = 4
Range("C4") = aux
filalista = filalista + 1
Else

filalista = filalista + 1
End If
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar