Cuestión : ¿Cómo puedo copiar una gama de células en una hoja de trabajo a otra área en la misma hoja de trabajo basada apagado del valor de una célula en Excel 2007?

Hola, la necesidad del

I de poder programatically copiar una gama de células en un libro de trabajo del sobresalir a otra área en el mismo libro de trabajo basó apagado de los valores de las fechas del comienzo y de extremo en la hoja de trabajo.  La hoja de trabajo que he atado demuestra datos de la muestra.  Así pues, si necesité cambiar la fecha de inicio de la selección de un artículo, necesito sobresalir para coger todos los valores en las columnas del mes y para cambiarlos de puesto según la nueva fecha de inicio de la selección.  También, si la fecha de extremo de la expiración cambia, la necesito ajustar por consiguiente.  ¿Está esto vba que usa posible? nombre de fichero " vacío " >

 (8 KB) Javascript del href= " de los " attachmentDetails del class= " de (tipo de archivo detalles) class= del >Sample data
del >
class= del

Respuesta : ¿Cómo puedo copiar una gama de células en una hoja de trabajo a otra área en la misma hoja de trabajo basada apagado del valor de una célula en Excel 2007?

daintysally,

El código abajo está en el archivo atado.

Esperanza hace lo que usted quiere.

Patrick
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

Specialmacro secundario ()
WS dévil como hoja de trabajo
Rng1 dévil como gama
Celle1 dévil como gama
Rng2 dévil como gama
Celle2 dévil como gama
Pickstart dévil como fecha
Expiración dévil como fecha
Pickweek dévil como de largo
Rng_step dévil como de largo
Step_counter dévil como de largo

Fijar WS = las hojas (“Ejemplo-antes de”)

Fijar rng1 = WS. Gama (WS. Células (2, “A”), WS. Células (WS. Rows.Count, “A”). Extremo (xlUp))
pickweek = 3

step_counter = 0
Para el rng_step = 0 26 al paso 13
    Para cada celle1 en rng1
        pickstart = celle1.Offset (0, 3)
        expiración = celle1.Offset (0, 4)
        Fijar rng2 = la gama (WS. Células (celle1.Row, “F”), WS. Células (celle1.Row, “Q”)). Compensación (0, rng_step)
        rng2 (1, 12). Compensación (0, 1).FormulaR1C1 = “=SUM (RC [- 12]: RC [- 1])”
        rng2.ClearContents
        Para cada celle2 en rng2
            Si WS. _ Del pickstart del >= de las células (1, celle2.Column)
                Y WS. Células (1, celle2.Column)  <>
Otras soluciones  
 
programming4us programming4us