Error en macro de Excel

[MOlgaI]

Hola a todos,

Necesito ayuda con respecto a la declaración de una variable en Visual Basic para una macro de excel, lo que pasa es de que necesito condicionar a una celda en base a su valor, yo estoy utilizando la sentencia de control Select case, en la cual indio que si la celda B2 tiene el valor 80% entonces le asigne a la celda A2 el valor 1030, segun yo tengo todo bien en mi código pero me da error en la declaración de la mi variable y no se que tipo de dato (integer, float, etc..) debo declarar para este caso
les envío mi código de la macro ojala alguien me pueda ayudar y entender.

Sub según_sea()



'declarar variables
Dim Porcentaje As Float
Dim Valor As Integer


'asignar valores a la celda

Porcentaje = Range("B2").Value

Select Case Porcentaje

Case "80%"
Valor = 1030

Case Else
Valor = 0
End Select

'asigna el valor obtenido segun la condicion
Range("A2").Value = Valor




End Sub

Tambien otra duda que tengo es ¿Como puedo asignar esta condicion a mas celdas ya que B2 no es la unica que deceo condicionar?

Saludos a todos y ayudenme por favor

[jchuk]

Yo probaría a declarar la variable como single, o sino, como double, pero single te debe valer.

Ah, por cierto, si el valor a evaluar es 80%, no lo pongas entre comillas, pues no es una cadena de caracteres, y es más, 80% no es valor de nada, creo. Deberías poner 0.8

Saludos, ya me contarás.

[3pies]

En lugar de esto:

Código:

Case "80%"

Pon esto otro:

Código:

Case 0.8

Salu2

[MOlgaI]

Iniciado por jchuk

Yo probaría a declarar la variable como single, o sino, como double, pero single te debe valer.

Ah, por cierto, si el valor a evaluar es 80%, no lo pongas entre comillas, pues no es una cadena de caracteres, y es más, 80% no es valor de nada, creo. Deberías poner 0.8

Saludos, ya me contarás.

Muchísimas gracias a los dos si funciono así.

Solo que tengo otra duda ¿Como puedo hacer para que esta condición se aplique para mas celdas?
Saludos

[jchuk]

Pues justo antes del case else pon todas las sentencias que quieres que se vean afectadas por la condición del case.

[MOlgaI]

Ok deja probar.
Gracias ._.