Foro

Hola,

Necesito una macro que ejecute lo siguiente:

Ejemplo:



Tengo un "panel" en el cual ingreso distintas variables e informacion para que me confeccione un presupuesto.
Dentro del mismo tengo informacion del siguiente tipo:

1) Botones de opción
Boton 1: "Producto A"
Boton 2: "Producto B"
Boton 3: "Producto C"

Estos botones estan vinculados a una celda. La celda da como resultado "1, 2 o 3" segun corresponda.

2) Casillas de verificacion
Casilla 1: "Gastos de Envio"
Casilla 2: "Impuestos"
Casilla 3: "Descuento"

Estos botones estan vinculados a distintas celdas. Las celdas dan como resultado "VERDADERO o FALSO" segun corresponda.

3) Celdas de informacion
Celda 1: "Nombre"
Celda 2: "Direccion"
Celda 3: "Telefono"

Estas celdas solo contienen informacion.


Basicamente mi "panel" muestra la informacion mencionada (este es solo un ejemplo acotado, aunque la planilla que uso solo contiene mas de lo mismo).


Estoy necesitando una macro vinculada a un boton que me "resetee" por asi decirlo la informacion contenida.
Es decir, que modifique la informacion contenida en las celdas.



En el caso de los botones de opcion, necesito que la macro cambie el contenido de la celda a la cual estan vinculadas, y le coloque el contenido "1", de tal forma que en los botones de opcion quede marcado el boton 1.


En el caso de las casillas de verificacion, que modifique la celda a la cual estan vinculadas y que coloque "VERDADERO" o "FALSO" siguiendo un criterio personal, de tal forma que al "resetear" la planilla, algunas casillas queden marcadas con tilde, y otras no.


En el caso de las celdas con informacion, necesito que borre el contenido que hay en ellas.



Dado que en mi planilla tengo mas opciones, casillas y celdas que en el ejemplo, necesitaria saber como modificar la informacion en cada celda en lugar de hacerlo con un rango delimitado (supongo que tendre que repetir la linea de comando tantas veces como celdas quiera modificar).

(Uso Excel 2003)

Espero haber podido ser claro en cuanto a lo que busco.
Desde ya, muchisimas gracias.

Sub MyMacro()

Range("celda1".value = 1
Range("Celda2".Value = 1
Range("Celda3".Value = 1

Opcion1 = True
Opcion2 = False
Opcion3 = False

Verificacion1 = True
Verificacion2 = False
Verificacion3 = False

End Sub

Saludos