select case estancado en la primera opcion
Publicado por nita (1 intervención) el 29/05/2008 18:00:13
hola mi problema es basicamente que tengo un select case que al correrlo se queda en la primera seleccion y cuando se cambia alguno de los parametros para que escoja el segundo o los case sucesivos sigue apareciendo el primero que debo hacer para que siga al siguiente cuando les cambio el parametro a escoger y no se quede en el primer case
les adjunto la forma general que tiene
h = Worksheets(3).Cells(11, 2).Value
Select Case h
Case 2235 <= h And h <= 2250
n = Worksheets(2).Cells(2, 7).Value
hper = Worksheets(2).Cells(2, 6).Value
dcñ = Worksheets(2).Cells(2, 8).Value
Worksheets(3).Cells(4, 7).Value = n
Worksheets(3).Cells(3, 7).Value = hper
Worksheets(3).Cells(2, 7).Value = dcñ
Case 2335 <= h And h <= 2350
n = Worksheets(2).Cells(3, 7).Value
hper = Worksheets(2).Cells(3, 6).Value
dcñ = Worksheets(2).Cells(3, 8).Value
Worksheets(3).Cells(4, 7).Value = n
Worksheets(3).Cells(3, 7).Value = hper
Worksheets(3).Cells(2, 7).Value = dcñ
Case 2470 <= h And h <= 2610
n = Worksheets(2).Cells(4, 7).Value
hper = Worksheets(2).Cells(4, 6).Value
dcñ = Worksheets(2).Cells(4, 8).Value
Worksheets(3).Cells(4, 7).Value = n
Worksheets(3).Cells(3, 7).Value = hper
Worksheets(3).Cells(2, 7).Value = dcñ
End select
les adjunto la forma general que tiene
h = Worksheets(3).Cells(11, 2).Value
Select Case h
Case 2235 <= h And h <= 2250
n = Worksheets(2).Cells(2, 7).Value
hper = Worksheets(2).Cells(2, 6).Value
dcñ = Worksheets(2).Cells(2, 8).Value
Worksheets(3).Cells(4, 7).Value = n
Worksheets(3).Cells(3, 7).Value = hper
Worksheets(3).Cells(2, 7).Value = dcñ
Case 2335 <= h And h <= 2350
n = Worksheets(2).Cells(3, 7).Value
hper = Worksheets(2).Cells(3, 6).Value
dcñ = Worksheets(2).Cells(3, 8).Value
Worksheets(3).Cells(4, 7).Value = n
Worksheets(3).Cells(3, 7).Value = hper
Worksheets(3).Cells(2, 7).Value = dcñ
Case 2470 <= h And h <= 2610
n = Worksheets(2).Cells(4, 7).Value
hper = Worksheets(2).Cells(4, 6).Value
dcñ = Worksheets(2).Cells(4, 8).Value
Worksheets(3).Cells(4, 7).Value = n
Worksheets(3).Cells(3, 7).Value = hper
Worksheets(3).Cells(2, 7).Value = dcñ
End select
Valora esta pregunta


0