Visual Basic para Aplicaciones - Asignar una condicion a una variable

Life is soft - evento anual de software empresarial
 
Vista:

Asignar una condicion a una variable

Publicado por Aldo (2 intervenciones) el 17/05/2016 22:05:03
Sres. tengo el siguiente codigo para EXCEL


Dim codigos(4, 3) As Variant
codigos(0, 0) = "Cells(3, 3).Value >= 0"

If (codigos(0, 0)) Then
Cells(1,1).Value = "Numero mayor e igual a cero"
End If


PERO EN LA SENTENCIA IF ME SALE UN ERROR , COMO PUEDO INTRODUCIR UNA SENTENCIA A UNA VARIABLE Y DESPUES APLICARLA EN LA SENTENCIA IF

GRACIAS.
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
Imágen de perfil de GERARDO
Val: 8
Ha disminuido su posición en 72 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Asignar una condicion a una variable

Publicado por GERARDO (22 intervenciones) el 14/06/2016 23:15:05
Hola

En el if te falta la condición

1
2
3
if codigos(0,0) <> "" then
    Cells(1,1).Value = "Numero mayor e igual a cero"
end if

Aunque tu código es algo que no entiendo,lo que estas guardando en tu matriz es un texto, pero me parece que lo que quieres guardar es el valor que hay en el rango A3

1
2
3
4
5
codigo(0, 0) = Cells(3, 3)    'Sin comillas 
 
if codigo(0,0) >= 0 then
    Cells(1,1).Value = "Numero mayor O igual a cero"
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

Asignar una condicion a una variable

Publicado por Aldo (2 intervenciones) el 17/06/2016 21:22:41
Mis disculpas, creo que no supe explicar

lo que quiero

es asignar a una variable, un texto que seria el siguiente "codigos(0, 0) = "Cells(3, 3).Value >= 0"

el arreglo codigo(0,0) tiene guardad la palabra "Cells(3, 3).Value >= 0"

en una sentencia IF , lo normal seria

If (Cells(3, 3).Value >= 0) Then

pero lo que quiero es que el IF me lea el texto que tiene codigos(0, 0) y esto quedaria como

If (codigos(0, 0)) Then
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