consulta rápida

25/11/2008 - 20:10 por LUIS DANNY SALAS | Informe spam
Tengo ésta parte del código de una macro:

Sheets("CONCENTRADO").Select
Range("E8:E49").Select
Selection.Copy

lo que necesito es que depediendo del valor que tenga en la celda A78,
seleccione diferentes rangos, así:
si la celda A78 tiene el valor: 1 entonces que el rango que seleccione sea
:("E8:E49"), pero si la celda A78 tiene el valor: 2
entonces seleccione el rango: ("F8:F49") pero si la celda A78 tiene el
valor: 3 entonces que seleccione el rango: ("H8:H49")

agradezco si alguien puede indicarme que debo agregarle al código para que
realice la funcion que necesito,
MUCHAS GRACIAS!!

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
25/11/2008 - 23:32 | Informe spam
hola, Luis !

1) generalmente no es necesario seleccionar (por codigo) objetos para administrar sus propiedades (o sea)
la parte de codigo que expones podria sustituirse por algo mas "ligero" (p.e.)
worksheets("concentrado").range("e8:e49").copy

2) a reserva de algun detalle "perdido en el tintero"... podrias pensar en una estructura del tipo Select Case (p.e.)

with worksheets("concentrado")
select case activesheet.range("78")
case 1
.range("e8:e49").copy
case 2
.range("f8:f49").copy
case 3
.range("h8:h49").copy
' mas cases ??? '
end select
end with

3) si comentas/existe/... alguna relacion o "patron" para determinar que rango segun valores en "a78" -???-

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ OP __
Tengo esta parte del codigo de una macro:

Sheets("CONCENTRADO").Select
Range("E8:E49").Select
Selection.Copy

lo que necesito es que depediendo del valor que tenga en la celda A78, seleccione diferentes rangos, asi:
si la celda A78 tiene el valor: 1 entonces que el rango que seleccione sea :("E8:E49")
pero si la celda A78 tiene el valor: 2 entonces seleccione el rango: ("F8:F49")
pero si la celda A78 tiene el valor: 3 entonces que seleccione el rango: ("H8:H49") ...
Respuesta Responder a este mensaje
#2 LUIS DANNY SALAS
26/11/2008 - 07:49 | Informe spam
MUCHAS GRACIAS!!!Era lo que necesitaba,funcionó perfectamente.
(el valor de A78 lo selecciona el usuario mediante un formulario donde
indica cual cuatrimestre del año),



"Héctor Miguel" escribió en el mensaje
news:
hola, Luis !

1) generalmente no es necesario seleccionar (por codigo) objetos para
administrar sus propiedades (o sea)
la parte de codigo que expones podria sustituirse por algo mas "ligero"
(p.e.)
worksheets("concentrado").range("e8:e49").copy

2) a reserva de algun detalle "perdido en el tintero"... podrias pensar en
una estructura del tipo Select Case (p.e.)

with worksheets("concentrado")
select case activesheet.range("78")
case 1
.range("e8:e49").copy
case 2
.range("f8:f49").copy
case 3
.range("h8:h49").copy
' mas cases ??? '
end select
end with

3) si comentas/existe/... alguna relacion o "patron" para determinar que
rango segun valores en "a78" -???-

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ OP __
Tengo esta parte del codigo de una macro:

Sheets("CONCENTRADO").Select
Range("E8:E49").Select
Selection.Copy

lo que necesito es que depediendo del valor que tenga en la celda A78,
seleccione diferentes rangos, asi:
si la celda A78 tiene el valor: 1 entonces que el rango que seleccione
sea :("E8:E49")
pero si la celda A78 tiene el valor: 2 entonces seleccione el rango:
("F8:F49")
pero si la celda A78 tiene el valor: 3 entonces que seleccione el rango:
("H8:H49") ...




email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida