Visual Basic - Como Hacer

Life is soft - evento anual de software empresarial
   
Vista:

Como Hacer

Publicado por Cesar (4 intervenciones) el 27/10/2008 17:25:45
Tengo un problema,estoy practicando programacion con macros tengo un programa q suma los numeros de una columna y luego les saca el promedio;el problema surge cuando trato de pegar las formulas en las celdas desde él editor de macros,la linea de codigo es la sgte:

' Establecer la casilla inicial del rango a sumar
Casilla_Inicial = "A1"
.
.
.
.
' Establecer la casilla final del rango a sumar.
' Coger la dirección de la casilla activa, la última
Casilla_Final = ActiveCell.Address
.
.
.
.
' Poner en la casilla activa la función SUMA
ActiveCell.Formula = "=Suma(" & Casilla_Inicial & ":" & Casilla_Final & ")"
ActiveCell.Offset(1, 0).Activate

' Poner en la casilla activa la función promedio
ActiveCell.Formula = "=Promedio(" & Casilla_Inicial & ":" & Casilla_Final & ")"

Lo q sucede es q el la parte donde se asigna el valor de la variable
Casilla_Final= ActiveCell.Address

se asigna la direccion de la celda pero de la sgte forma:(por ejemplo) si la casilla final fue
A5 se guarda $A$5 y esto Excel en la formula no lo reconoce pues deberia ser solamente A5 lo q aparece en la celda.

¿Alguien podria ayudarme?
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
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- IPMask
- Navegador
- Glass Ball

RE:Como Hacer

Publicado por pacopaz (173 intervenciones) el 27/10/2008 20:54:37
Reemplaza esta línea:
' Establecer la casilla final del rango a sumar.
' Coger la dirección de la casilla activa, la última
Casilla_Final = ActiveCell.Address

Por esta otra:
' Establecer la casilla final del rango a sumar.
' Coger la dirección de la casilla activa, la última
Casilla_Final = Replace(ActiveCell.Address,"$","")

Espero que te sirva.

Saludos.
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:Como Hacer

Publicado por Cesar (4 intervenciones) el 28/10/2008 00:04:40
Gracias me sirvio de mucho
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