Fråga : kopiera celler i överträffar dynamiskt

Hey

I har en bordlägga med märka med sina initialer i ror och weeknumbers i culumnen. Bredvid jag har en lista med något av märka med sina initialer och en specifik weeknumber - från denna lista mig önskar att kopiera det nöjt till avkräva placerar i bordlägga vid driftigt en knäppas. Min gissning är, den skulle vba är solution.
I har försökt att förklara i fäst överträffar file.

Excel 2007 för windows.

Help: -)

Cheers, Raahaugen Attachments: för >
<-/div> " title= " för den Mappe2.xlsm (11 KB)  " javascript för href= " för min problem <-/div>
för >
<-/div> " klar "

Svar : kopiera celler i överträffar dynamiskt

Raahaugen,

Det macro nedanfört är i fäst sparar. Låt mig veta, om den gör vad du önskar.

Patrick
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

Underspecialmacro ()
Dunkel rng1 som spänner
Dunkel rng2 som spänner
Dunkel celle1 som spänner
Dunkel celle2 som spänner
Dunkla colm som Long

Med täcker (”Sheet1”)
    Uppsättningen rng1 = spänner (. Celler (12, ”Q”). Celler (. Rows.Count, ”Q”). Avsluta (xlUp))
    Uppsättningen rng2 = spänner (. Celler (12, ”C”). Celler (27, ”C”))
Avsluta med

För varje celle1 i rng1
    För varje celle2 i rng2
        Om celle1 = celle2 därefter
            colm = celler (11, ”V”). Värdera
            celle2.Offset (0, colm) = celle1.Offset (0, 1)
        Avsluta om
    Nästa celle2
Nästa celle1

Avsluta suben
Andra lösningar  
 
programming4us programming4us