Excel - Makró a kiválasztott tartomány másolásához / beillesztéséhez

Probléma

Egy hónaponként összefoglalom az adatokat egy lapon és a nyers adatokat egy másik lapon. Ahelyett, hogy minden hónapra több munkalapot készítenék a nyers adatokra, törölni szeretném az előző hónap adatait, és új adatokkal helyettesítenék. Ehhez át kell másolnom az összefoglalót létrehozó képleteket egy másik oszlopra (az új hónapra), majd másolni és beilleszteni az aktuális hónap összegző adatainak értékét (így ha a forrás nyers adatok megváltoztak, az nem változtatná meg az én értékek).

Példa

 ABCD Jan Feb Mar Apr 1 5 6 7

Szeretném, ha a végeredményem úgy néz ki (pl. A3: A6-ról másol, és B3-ra illeszti be. Ezután a következő hónapban a B3: B6-ból másol, majd beilleszti a C3-ra, és így tovább).

 ABCD Jan Feb Márc. Apr 1 1 5 5 6 6 7 7

Jan és február ugyanazok, mert a másolás és beillesztés az új nyers adatok cseréje előtt történik.

Remélem van értelme. Nagyon kevés a tudásom a VB írásáról, de sikerül olvasni és megérteni az egyszerűeket. Tudna valaki segíteni nekem egy olyan makróval, amely ezt automatikusan teszi?

Megoldás

Ez a makró egy inputbox-ot használ fel arra, hogy megkérdezze, hogy melyik hónapban frissíti. Használjon számértékeket a hónap beírása helyett. Példa: Jan. = 1, február = 2, március = 3. Feltételezem, hogy nem akarod frissíteni januárját, így a makró kilép, ha az 1 beíródik a beviteli mezőbe (kivéve, ha decembertől frissül, majd megváltoztathatjuk azt).

Remélem ez segít.

 Sub Update_Month () Dim válasz Változat Dim jj = 3 answer = InputBox ("Milyen hónapot frissít?" & VbCrLf & _ "Ex: január = 1, február = 2, március = 3 stb." 1. eset Kilépés a 2. esetről J = 3-tól 6-ig Tartomány ("B" & j) = Tartomány ("A" és j) Következő j 3. eset J = 3 - 6 tartomány ("C" & j) = Tartomány ( "B" & j) Következő j 4. eset J = 3-tól 6-ig Tartomány ("D" és j) = Tartomány ("C" & j) Következő j 5. eset J = 3 - 6 tartomány ("E" & j ) = Tartomány ("D" és j) Következő j 6. eset J = 3-tól 6-ig Tartomány ("F" és j) = Tartomány ("E" és j) Következő j 7. eset J = 3 - 6 tartomány (" G "& j) = Tartomány (" F "és j) Következő j 8. eset J = 3-tól 6-ig Tartomány (" H "és j) = Tartomány (" G "és j) Következő j 9. eset J = 3 -hoz 6 Tartomány ("I" & j) = Tartomány ("H" és j) Következő j 10 eset J = 3 - 6 tartomány ("J" & j) = Tartomány ("I" és j) Következő j 11. j = 3-tól 6-ig terjedő tartomány ("K" és j) = tartomány ("J" & j) Következő j 12 eset J = 3 - 6 tartomány ("L" és j) = tartomány ("K" & j) Következő j Vége Válassza az End Sub