Questione : copiare le cellule dinamicamente in eccellono

Hey

I ha una tabella con le iniziali nelle file e i weeknumbers nel culumn. Al lato dell'ho una lista con alcuno delle iniziali e di un weeknumber specifico - da questa lista voglio copiare il soddisfare alle posizioni esatte nella tabella spingendo un tasto. La mia congettura è, quel vba sarebbe il solution.

I ha provato a spiegare in allegato eccelle file.

Excel 2007 per windows.

Help: -)

Cheers, Raahaugen class= " lastRow del
>Attachments " di nome " del class= del class= " valore " del
il

class= " fileInfo " del
il title= " " di nome di schedario del class= " di Mappe2.xlsm il class= (11 KB)  Javascript " del href= " " dei attachmentDetails del class= di (tipo di lima particolari)  
class= " descrizione " del
il mio problem
il class= di
del >
class= del

Risposta : copiare le cellule dinamicamente in eccellono

Raahaugen,

La macro sotto è nella lima allegata. Lasciarlo sapere se 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:

Specialmacro secondario ()
Rng1 fioco come gamma
Rng2 fioco come gamma
Celle1 fioco come gamma
Celle2 fioco come gamma
Colm fioco come lungamente

Con gli strati (“Sheet1„)
    Regolar rng1 = gamma (. Cellule (12, “Q„). Cellule (. Rows.Count, “Q„). Estremità (xlUp))
    Regolar rng2 = gamma (. Cellule (12, “C„). Cellule (27, “C„))
Estremità con

Per ogni celle1 in rng1
    Per ogni celle2 in rng2
        Se celle1 = celle2 allora
            Colm = cellule (11, “V„). Valore
            celle2.Offset (0, Colm) = celle1.Offset (0, 1)
        Concluder se
    Celle2 seguente
Celle1 seguente

Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us