Foros


Inicio » Excel

Página: 1

Mensaje Autor

Arriba
23/Ago/05 18:00
BUSCAR OBJETIVO

Hola a todos:

Quisiera saber si hay alguna macro que permita aplicar la función "Buscar objetivo".

Muchas Gracias por su ayuda
 
Perfil

Belfagor
Sargento Segundo

Mensajes: 63
Ingresó: Abril 19, 2005
Ubicación:

No Conectado

Agregar como amigo

Arriba
23/Ago/05 18:33
Re: BUSCAR OBJETIVO

Puedes crear macros para casi todo en excel, si lo que buscar es introducir el proceso de Buscar objetivo dentro de una macro ya elaborada el código quedria ± así:
[code:1:608b0e01f7]Sub BuscarObjetivo()
Dim Dato As Integer
Dato = Val(InputBox("Ingrese el importe a llegar : ", "Buscar Objetivo"))
ActiveCell.GoalSeek Goal:=Dato, ChangingCell:=ActiveCell.Offset(0, -3).Range _
("A1")
End Sub[/code:1:608b0e01f7]
tu tendrías que cambiar la celda en donde se pondrá el resultado así como la que cambiará, depende de tus necesidades
 
«Antes que cambien los reinos, los hombres deberán cambiar» ═╬═
 
Perfil

ByPaco
Teniente Coronel

Mensajes: 2132
Ingresó: Junio 05, 2004
Ubicación:

Conectado

Agregar como amigo

Arriba
24/Ago/05 12:19

a1 es la celda en la que pondras lo que buscas y la macro a busacar en una matriz o que onda mi estimado
 
NO IMPORTA QUIEN LE PONGA EN LA M...... AL FISCO EL CHISTE ES PONERSELA enriquecardenasgonzalez@yahoo.com.mx enriquecardenas@prodigy.net.mx enriquecarde@hotmail.com UN CORDIAL SALUDO
 
Perfil

enriquecarde
Teniente

Mensajes: 223
Ingresó: Marzo 07, 2005
Ubicación:

No Conectado

Agregar como amigo

Arriba
24/Ago/05 14:27
Re: BUSCAR OBJETIVO

Esta macro trabaja con la celda activa [i:0e8ff64649][ActiveCell] [/i:0e8ff64649](la que esta seleccionada) que es donde se va a poner el valor a llegar [i:0e8ff64649][GoalSeek Goal:=Dato][/i:0e8ff64649], y cambia la celda tres columnas a la izquierda [i:0e8ff64649][ActiveCell.Offset(0, -3)][/i:0e8ff64649]

Offset, que significa desplazamiento, es una propiedad del objeto Range y se utiliza para referenciar una casilla situada a n Filas y n columnas de una casilla dada.
 
«Antes que cambien los reinos, los hombres deberán cambiar» ═╬═
 
Perfil

ByPaco
Teniente Coronel

Mensajes: 2132
Ingresó: Junio 05, 2004
Ubicación:

Conectado

Agregar como amigo


Página: 1