Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Error en Macro

21/11/2006 - 23:18 por Grupos de Noticias | Informe spam
Ayuda Hacer una pregunta
Saludos.
Hago mis primeros pinitos en VBA para Excel.
Quisiera saber cuál es el error en la Tercera Condición?

Sub Condicional4Condiciones()

If ActiveSheet.Range("D15").Value > ActiveSheet.Range("D16").Value Then
ActiveSheet.Range("E15").Value = ActiveSheet.Range("D15") +
ActiveSheet.Range("D16")
Else
ActiveSheet.Range("E15").Value = 0

If ActiveSheet.Range("D15").Value < ActiveSheet.Range("D16").Value Then
ActiveSheet.Range("E16").Value = ActiveSheet.Range("D15") *
ActiveSheet.Range("D16")
Else
ActiveSheet.Range("E16").Value = AciveSheet.Range("D15") /
ActiveSheet.Range("D16")

If ActiveSheet.Range("D16").Value > ActiveSheet.Range("D17").Value Then
ActiveSheet.Range("E17").Value = ActiveSheet.Range("D16") /
ActiveSheet.Range("D17")
Else
ActiveSheet.Range("E17").Value = AciveSheet.Range("D16") *
ActiveSheet.Range("D17")

End If
End If
End If
End Sub

Gracias.
Cordialmente
xxxprogramasxxxenxxxcomputadorxx@xxgmail.xxcom
Para qué tantas x?
email Siga el debateRespuesta 4 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 zz
21/11/2006 - 23:30 | Informe spam
Mmm!

Me parece que es porque estas tratando de dividir/sumar/multiplicar objetos
de tipo "range" en lugar de los valores contenidos en estos "objetos"


sustituye " activesheet.range("XX")*activesheet.range("YY")"

por "activesheet.range("XX").value*activesheet.range("YY").value"

donde "XX" y "YY" son las celdas que contienen los valores que quieres
procesar.


pruebalo y nos comentas.

espero que te sirva

zz [MX]
cuasi-musico,semi-poeta y loco


"Grupos de Noticias" wrote in message
news:
Saludos.
Hago mis primeros pinitos en VBA para Excel.
Quisiera saber cuál es el error en la Tercera Condición?

Sub Condicional4Condiciones()

If ActiveSheet.Range("D15").Value > ActiveSheet.Range("D16").Value Then
ActiveSheet.Range("E15").Value = ActiveSheet.Range("D15") +
ActiveSheet.Range("D16")
Else
ActiveSheet.Range("E15").Value = 0

If ActiveSheet.Range("D15").Value < ActiveSheet.Range("D16").Value Then
ActiveSheet.Range("E16").Value = ActiveSheet.Range("D15") *
ActiveSheet.Range("D16")
Else
ActiveSheet.Range("E16").Value = AciveSheet.Range("D15") /
ActiveSheet.Range("D16")

If ActiveSheet.Range("D16").Value > ActiveSheet.Range("D17").Value Then
ActiveSheet.Range("E17").Value = ActiveSheet.Range("D16") /
ActiveSheet.Range("D17")
Else
ActiveSheet.Range("E17").Value = AciveSheet.Range("D16") *
ActiveSheet.Range("D17")

End If
End If
End If
End Sub

Gracias.
Cordialmente

Para qué tantas x?

Preguntas similares

 

Busqueda sugerida :