Pergunta : Como posso eu copiar uma escala das pilhas em uma folha a uma outra área na mesma folha baseada fora do valor de uma pilha em Excel 2007?

Olá!, a necessidade do

I de poder copiar programatically uma escala das pilhas em um manual de instruções primar a uma outra área no mesmo manual de instruções baseou fora dos valores das datas do começo e de extremidade na folha.  A folha que eu uni mostra dados da amostra.  Assim, se I necessário para mudar a data de início da picareta de um artigo, mim precisa de primar para pegarar todos os valores nas colunas do mês e para os desloc de acordo com a data de início nova da picareta.  Também, se a data de extremidade da expiração muda, eu preciso-o de ajustar conformemente.  É isto vba de utilização possível? nome de arquivo " vazio " >

 Example.xlsx " fileSize " > (8 KB) Javascript " do href= o " dos " attachmentDetails do class= de (tipo de lima detalhes) o class= >Sample data
>
class= do

Resposta : Como posso eu copiar uma escala das pilhas em uma folha a uma outra área na mesma folha baseada fora do valor de uma pilha em Excel 2007?

daintysally,

O código abaixo está na lima unida.

Esperança faz o que você quer.

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 secundário ()
WS não ofuscante como a folha
Rng1 não ofuscante como a escala
Celle1 não ofuscante como a escala
Rng2 não ofuscante como a escala
Celle2 não ofuscante como a escala
Pickstart não ofuscante como a data
Expiração não ofuscante como a data
Pickweek não ofuscante como por muito tempo
Rng_step não ofuscante como por muito tempo
Step_counter não ofuscante como por muito tempo

Ajustar WS = as folhas (“Exemplo-antes de”)

Ajustar rng1 = WS. Escala (WS. Pilhas (2, “A”), WS. Pilhas (WS. Rows.Count, “A”). Extremidade (xlUp))
pickweek = 3

step_counter = 0
Para o rng_step = 0 26 a etapa 13
    Para cada celle1 em rng1
        pickstart = celle1.Offset (0, 3)
        expiração = celle1.Offset (0, 4)
        Ajustar rng2 = escala (WS. Pilhas (celle1.Row, “F”), WS. Pilhas (celle1.Row, “Q”)). Offset (0, rng_step)
        rng2 (1, 12). Offset (0, 1) .FormulaR1C1 = “=SUM (RC [- 12]: RC [- 1])”
        rng2.ClearContents
        Para cada celle2 em rng2
            Se WS. _ Do pickstart do >= das pilhas (1, celle2.Column)
                E WS. Pilhas (1, celle2.Column)  <>
Outras soluções  
 
programming4us programming4us