Questione : Come posso copiare una gamma delle cellule in un manuale ad un'altra zona nello stesso manuale basato fuori del valore di una cellula in Excel 2007?

Ciao, la necessità del

I di potere programatically copiare una gamma delle cellule in un libro di esercizi di supremazia ad un'altra zona nello stesso libro di esercizi ha basato fuori dei valori delle date di estremità e di inizio nel manuale.  Il manuale che ho attaccato mostra i dati del campione.  Così, se dovessi cambiare la data di inizio del selezionamento di un articolo, devo eccellere per prendere tutti valori nelle colonne di mese e per spostarli secondo la nuova data di inizio del selezionamento.  Inoltre, se la data di estremità di scadenza cambia, la ho bisogno di registrare di conseguenza.  È questo vba usando possibile? nome di schedario " " vuoto " >

Example.xlsx " fileSize " > (8 Kb) il Javascript " del href= " " dei attachmentDetails del class= di (tipo di lima particolari) il class= del >Sample data
del >
class= del

Risposta : Come posso copiare una gamma delle cellule in un manuale ad un'altra zona nello stesso manuale basato fuori del valore di una cellula in Excel 2007?

daintysally,

Il codice sotto è nella lima allegata.

Speranza fa che cosa volete.

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 secondario ()
La WS fioca come manuale
Rng1 fioco come gamma
Celle1 fioco come gamma
Rng2 fioco come gamma
Celle2 fioco come gamma
Pickstart fioco come data
Scadenza fioca come data
Pickweek fioco come lungamente
Rng_step fioco come lungamente
Step_counter fioco come lungamente

Regolar la WS = gli strati (“Esempio-prima di„)

Regolar rng1 = la WS. Gamma (WS. Cellule (2, “A„), WS. Cellule (WS. Rows.Count, “A„). Estremità (xlUp))
pickweek = 3

step_counter = 0
Per rng_step = 0 26 a punto 13
    Per ogni celle1 in rng1
        pickstart = celle1.Offset (0, 3)
        scadenza = celle1.Offset (0, 4)
        Regolar rng2 = gamma (WS. Cellule (celle1.Row, “F„), WS. Cellule (celle1.Row, “Q„)). Contrappeso (0, rng_step)
        rng2 (1, 12). Contrappeso (0, 1).FormulaR1C1 = “=SUM (RC [- 12]: RC [- 1])„
        rng2.ClearContents
        Per ogni celle2 in rng2
            Se la WS. _ Del pickstart del >= delle cellule (1, celle2.Column)
                E la WS. Cellule (1, celle2.Column)  <>
           
Altre soluzioni  
 
programming4us programming4us