Excel - hente data fra mange regneark

[HKRoed]

Hei!

Har ca 250 regneark, og skal hente data fra samme celle i alle regnearkene, og inn i ett nytt regneark.

Dataene jeg skal hente ligger i celle C6.

Regnearkene jeg skal hente data fra, heter 1450, 1451, 1452 osv

Har testet å legge inn formelen ='[1450.xls]Regn-ny'!$C$6, og det funker fint. Men for at dette skal gå kjapt, trodde jeg at ved å legge inn 2 celler med riktig referanseadresse, for deretter å merke cellene og dra, så oppdaterte den adressene riktig. Det gjorde den ikke...

 

Noen forslag??

[Ekko]

Er det du egentlig trenger en slik liste du bare kan lime inn?

 

 

='[1450.xls]Regn-ny'!$C$6

='[1451.xls]Regn-ny'!$C$6

...

...

='[1700.xls]Regn-ny'!$C$6

 

 

 

 

='[1450.xls]Regn-ny'!$C$6

='[1451.xls]Regn-ny'!$C$6

='[1452.xls]Regn-ny'!$C$6

='[1453.xls]Regn-ny'!$C$6

='[1454.xls]Regn-ny'!$C$6

='[1455.xls]Regn-ny'!$C$6

='[1456.xls]Regn-ny'!$C$6

='[1457.xls]Regn-ny'!$C$6

='[1458.xls]Regn-ny'!$C$6

='[1459.xls]Regn-ny'!$C$6

='[1460.xls]Regn-ny'!$C$6

='[1461.xls]Regn-ny'!$C$6

='[1462.xls]Regn-ny'!$C$6

='[1463.xls]Regn-ny'!$C$6

='[1464.xls]Regn-ny'!$C$6

='[1465.xls]Regn-ny'!$C$6

='[1466.xls]Regn-ny'!$C$6

='[1467.xls]Regn-ny'!$C$6

='[1468.xls]Regn-ny'!$C$6

='[1469.xls]Regn-ny'!$C$6

='[1470.xls]Regn-ny'!$C$6

='[1471.xls]Regn-ny'!$C$6

='[1472.xls]Regn-ny'!$C$6

='[1473.xls]Regn-ny'!$C$6

='[1474.xls]Regn-ny'!$C$6

='[1475.xls]Regn-ny'!$C$6

='[1476.xls]Regn-ny'!$C$6

='[1477.xls]Regn-ny'!$C$6

='[1478.xls]Regn-ny'!$C$6

='[1479.xls]Regn-ny'!$C$6

='[1480.xls]Regn-ny'!$C$6

='[1481.xls]Regn-ny'!$C$6

='[1482.xls]Regn-ny'!$C$6

='[1483.xls]Regn-ny'!$C$6

='[1484.xls]Regn-ny'!$C$6

='[1485.xls]Regn-ny'!$C$6

='[1486.xls]Regn-ny'!$C$6

='[1487.xls]Regn-ny'!$C$6

='[1488.xls]Regn-ny'!$C$6

='[1489.xls]Regn-ny'!$C$6

='[1490.xls]Regn-ny'!$C$6

='[1491.xls]Regn-ny'!$C$6

='[1492.xls]Regn-ny'!$C$6

='[1493.xls]Regn-ny'!$C$6

='[1494.xls]Regn-ny'!$C$6

='[1495.xls]Regn-ny'!$C$6

='[1496.xls]Regn-ny'!$C$6

='[1497.xls]Regn-ny'!$C$6

='[1498.xls]Regn-ny'!$C$6

='[1499.xls]Regn-ny'!$C$6

='[1500.xls]Regn-ny'!$C$6

='[1501.xls]Regn-ny'!$C$6

='[1502.xls]Regn-ny'!$C$6

='[1503.xls]Regn-ny'!$C$6

='[1504.xls]Regn-ny'!$C$6

='[1505.xls]Regn-ny'!$C$6

='[1506.xls]Regn-ny'!$C$6

='[1507.xls]Regn-ny'!$C$6

='[1508.xls]Regn-ny'!$C$6

='[1509.xls]Regn-ny'!$C$6

='[1510.xls]Regn-ny'!$C$6

='[1511.xls]Regn-ny'!$C$6

='[1512.xls]Regn-ny'!$C$6

='[1513.xls]Regn-ny'!$C$6

='[1514.xls]Regn-ny'!$C$6

='[1515.xls]Regn-ny'!$C$6

='[1516.xls]Regn-ny'!$C$6

='[1517.xls]Regn-ny'!$C$6

='[1518.xls]Regn-ny'!$C$6

='[1519.xls]Regn-ny'!$C$6

='[1520.xls]Regn-ny'!$C$6

='[1521.xls]Regn-ny'!$C$6

='[1522.xls]Regn-ny'!$C$6

='[1523.xls]Regn-ny'!$C$6

='[1524.xls]Regn-ny'!$C$6

='[1525.xls]Regn-ny'!$C$6

='[1526.xls]Regn-ny'!$C$6

='[1527.xls]Regn-ny'!$C$6

='[1528.xls]Regn-ny'!$C$6

='[1529.xls]Regn-ny'!$C$6

='[1530.xls]Regn-ny'!$C$6

='[1531.xls]Regn-ny'!$C$6

='[1532.xls]Regn-ny'!$C$6

='[1533.xls]Regn-ny'!$C$6

='[1534.xls]Regn-ny'!$C$6

='[1535.xls]Regn-ny'!$C$6

='[1536.xls]Regn-ny'!$C$6

='[1537.xls]Regn-ny'!$C$6

='[1538.xls]Regn-ny'!$C$6

='[1539.xls]Regn-ny'!$C$6

='[1540.xls]Regn-ny'!$C$6

='[1541.xls]Regn-ny'!$C$6

='[1542.xls]Regn-ny'!$C$6

='[1543.xls]Regn-ny'!$C$6

='[1544.xls]Regn-ny'!$C$6

='[1545.xls]Regn-ny'!$C$6

='[1546.xls]Regn-ny'!$C$6

='[1547.xls]Regn-ny'!$C$6

='[1548.xls]Regn-ny'!$C$6

='[1549.xls]Regn-ny'!$C$6

='[1550.xls]Regn-ny'!$C$6

='[1551.xls]Regn-ny'!$C$6

='[1552.xls]Regn-ny'!$C$6

='[1553.xls]Regn-ny'!$C$6

='[1554.xls]Regn-ny'!$C$6

='[1555.xls]Regn-ny'!$C$6

='[1556.xls]Regn-ny'!$C$6

='[1557.xls]Regn-ny'!$C$6

='[1558.xls]Regn-ny'!$C$6

='[1559.xls]Regn-ny'!$C$6

='[1560.xls]Regn-ny'!$C$6

='[1561.xls]Regn-ny'!$C$6

='[1562.xls]Regn-ny'!$C$6

='[1563.xls]Regn-ny'!$C$6

='[1564.xls]Regn-ny'!$C$6

='[1565.xls]Regn-ny'!$C$6

='[1566.xls]Regn-ny'!$C$6

='[1567.xls]Regn-ny'!$C$6

='[1568.xls]Regn-ny'!$C$6

='[1569.xls]Regn-ny'!$C$6

='[1570.xls]Regn-ny'!$C$6

='[1571.xls]Regn-ny'!$C$6

='[1572.xls]Regn-ny'!$C$6

='[1573.xls]Regn-ny'!$C$6

='[1574.xls]Regn-ny'!$C$6

='[1575.xls]Regn-ny'!$C$6

='[1576.xls]Regn-ny'!$C$6

='[1577.xls]Regn-ny'!$C$6

='[1578.xls]Regn-ny'!$C$6

='[1579.xls]Regn-ny'!$C$6

='[1580.xls]Regn-ny'!$C$6

='[1581.xls]Regn-ny'!$C$6

='[1582.xls]Regn-ny'!$C$6

='[1583.xls]Regn-ny'!$C$6

='[1584.xls]Regn-ny'!$C$6

='[1585.xls]Regn-ny'!$C$6

='[1586.xls]Regn-ny'!$C$6

='[1587.xls]Regn-ny'!$C$6

='[1588.xls]Regn-ny'!$C$6

='[1589.xls]Regn-ny'!$C$6

='[1590.xls]Regn-ny'!$C$6

='[1591.xls]Regn-ny'!$C$6

='[1592.xls]Regn-ny'!$C$6

='[1593.xls]Regn-ny'!$C$6

='[1594.xls]Regn-ny'!$C$6

='[1595.xls]Regn-ny'!$C$6

='[1596.xls]Regn-ny'!$C$6

='[1597.xls]Regn-ny'!$C$6

='[1598.xls]Regn-ny'!$C$6

='[1599.xls]Regn-ny'!$C$6

='[1600.xls]Regn-ny'!$C$6

='[1601.xls]Regn-ny'!$C$6

='[1602.xls]Regn-ny'!$C$6

='[1603.xls]Regn-ny'!$C$6

='[1604.xls]Regn-ny'!$C$6

='[1605.xls]Regn-ny'!$C$6

='[1606.xls]Regn-ny'!$C$6

='[1607.xls]Regn-ny'!$C$6

='[1608.xls]Regn-ny'!$C$6

='[1609.xls]Regn-ny'!$C$6

='[1610.xls]Regn-ny'!$C$6

='[1611.xls]Regn-ny'!$C$6

='[1612.xls]Regn-ny'!$C$6

='[1613.xls]Regn-ny'!$C$6

='[1614.xls]Regn-ny'!$C$6

='[1615.xls]Regn-ny'!$C$6

='[1616.xls]Regn-ny'!$C$6

='[1617.xls]Regn-ny'!$C$6

='[1618.xls]Regn-ny'!$C$6

='[1619.xls]Regn-ny'!$C$6

='[1620.xls]Regn-ny'!$C$6

='[1621.xls]Regn-ny'!$C$6

='[1622.xls]Regn-ny'!$C$6

='[1623.xls]Regn-ny'!$C$6

='[1624.xls]Regn-ny'!$C$6

='[1625.xls]Regn-ny'!$C$6

='[1626.xls]Regn-ny'!$C$6

='[1627.xls]Regn-ny'!$C$6

='[1628.xls]Regn-ny'!$C$6

='[1629.xls]Regn-ny'!$C$6

='[1630.xls]Regn-ny'!$C$6

='[1631.xls]Regn-ny'!$C$6

='[1632.xls]Regn-ny'!$C$6

='[1633.xls]Regn-ny'!$C$6

='[1634.xls]Regn-ny'!$C$6

='[1635.xls]Regn-ny'!$C$6

='[1636.xls]Regn-ny'!$C$6

='[1637.xls]Regn-ny'!$C$6

='[1638.xls]Regn-ny'!$C$6

='[1639.xls]Regn-ny'!$C$6

='[1640.xls]Regn-ny'!$C$6

='[1641.xls]Regn-ny'!$C$6

='[1642.xls]Regn-ny'!$C$6

='[1643.xls]Regn-ny'!$C$6

='[1644.xls]Regn-ny'!$C$6

='[1645.xls]Regn-ny'!$C$6

='[1646.xls]Regn-ny'!$C$6

='[1647.xls]Regn-ny'!$C$6

='[1648.xls]Regn-ny'!$C$6

='[1649.xls]Regn-ny'!$C$6

='[1650.xls]Regn-ny'!$C$6

='[1651.xls]Regn-ny'!$C$6

='[1652.xls]Regn-ny'!$C$6

='[1653.xls]Regn-ny'!$C$6

='[1654.xls]Regn-ny'!$C$6

='[1655.xls]Regn-ny'!$C$6

='[1656.xls]Regn-ny'!$C$6

='[1657.xls]Regn-ny'!$C$6

='[1658.xls]Regn-ny'!$C$6

='[1659.xls]Regn-ny'!$C$6

='[1660.xls]Regn-ny'!$C$6

='[1661.xls]Regn-ny'!$C$6

='[1662.xls]Regn-ny'!$C$6

='[1663.xls]Regn-ny'!$C$6

='[1664.xls]Regn-ny'!$C$6

='[1665.xls]Regn-ny'!$C$6

='[1666.xls]Regn-ny'!$C$6

='[1667.xls]Regn-ny'!$C$6

='[1668.xls]Regn-ny'!$C$6

='[1669.xls]Regn-ny'!$C$6

='[1670.xls]Regn-ny'!$C$6

='[1671.xls]Regn-ny'!$C$6

='[1672.xls]Regn-ny'!$C$6

='[1673.xls]Regn-ny'!$C$6

='[1674.xls]Regn-ny'!$C$6

='[1675.xls]Regn-ny'!$C$6

='[1676.xls]Regn-ny'!$C$6

='[1677.xls]Regn-ny'!$C$6

='[1678.xls]Regn-ny'!$C$6

='[1679.xls]Regn-ny'!$C$6

='[1680.xls]Regn-ny'!$C$6

='[1681.xls]Regn-ny'!$C$6

='[1682.xls]Regn-ny'!$C$6

='[1683.xls]Regn-ny'!$C$6

='[1684.xls]Regn-ny'!$C$6

='[1685.xls]Regn-ny'!$C$6

='[1686.xls]Regn-ny'!$C$6

='[1687.xls]Regn-ny'!$C$6

='[1688.xls]Regn-ny'!$C$6

='[1689.xls]Regn-ny'!$C$6

='[1690.xls]Regn-ny'!$C$6

='[1691.xls]Regn-ny'!$C$6

='[1692.xls]Regn-ny'!$C$6

='[1693.xls]Regn-ny'!$C$6

='[1694.xls]Regn-ny'!$C$6

='[1695.xls]Regn-ny'!$C$6

='[1696.xls]Regn-ny'!$C$6

='[1697.xls]Regn-ny'!$C$6

='[1698.xls]Regn-ny'!$C$6

='[1699.xls]Regn-ny'!$C$6

 

 

Endret 10. februar 2009 av Ekko

[Moskus]

For meg høres det ut som en ypperlig anledning til å lære seg bittelitt makroprogrammering. Jeg gjør en slik jobb med ca. 140 regneark. Makroen min åpner hvert regneark, henter ut alt av data som er interessant, lukker det og går til neste ark. Etterpå kjøres en oppsummering og statistikk...

 

Problemet er at det krever litt jobb, men er det noe man gjør "ofte" så er det verdt hvert minutt av svetten på forhånd.

 

Dette er et lite eksempel på hvordan det kan gjøres. Henter ut verdi i celle A2 i en haug med regneark og skriver dem til et nytt regneark.

Sub HentUtData
'Holder på vindunavnet som kjører makroen for å bytte tilbake til vinduet
Dim MyWindowName As String
MyWindowName = ActiveWorkbook.Name

Dim fn As Variant
Dim oldState As XlWindowState
oldState = Application.WindowState

'Dette viser en "Åpne filer" dialogboks. Du kan velge flere filer samtidig.
fn = Application.GetOpenFilename("Excel-files,*.xls;*.xlsx", 1, "Velg filer for utlesing", , True)
If TypeName(fn) = "Boolean" Then Exit Sub 'Om man trykker avbryt så avslutter man operasjonen

  Dim matrise(UBound(fn)) as Single 'Dette er en matrise hvor man lagrer data midlertidig

Dim i as integer
For i = LBound(fn) To UBound(fn) 'Hver fil
	 'Åpner en spesifikk fil
	Workbooks.Open fn(i), , xlReadOnly

	 'Henter ut verdien her
	matrise(i) = ActiveWorkbook.Sheets(1).Cells(2, 1).Value	  

	'Lukker filen igjen
	ActiveWorkbook.Close
Next

Windows(MyWindowName).Activate

'Lager en liten overskrift
ActiveSheet.Cells(1,1).Value = "Verdier"

i = 0
for i = LBound(matrise) to UBound(matrise)
	ActiveSheet.Cells(i + 1, 1).Value = matrise(i)	
Next

  Msgbox("Ferdig!")
End Sub

 

Jeg har ikke kjørt akkurat denne koden, dette er en (enorm) forkortelse av min egen kode. Det er mulig det har sneket seg inn noen feil.

[HKRoed]

@Ekko

Ja, det var akkurat slik jeg mente. :-)

Hvordan fikset du dette?

 

@Moskus

Dette er noe jeg skal gjøre kun en gang

[Ekko]

Jeg kopierte linjen opp 250 ganger.

 

Så brukte jeg en søk/erstatt-funksjon med regular-expression som lar deg angi at et tall skal økes for hvert nye treff.

 

Om du ikke kjenner til regulære uttrykk så er det mye på samme måten som Moskus skriver. Det er en ting du ikke trenger å kunne dersom du bare skal gjøre noe en gang, men noe som sparer deg masse tid dersom du jobber mye med søk/erstatt.

 

EDIT:

Jeg gjorde ikek dette i excel, men i et program som heter textpad. Det finnes mange slike notisblokkprogrammer som tilbyr varianter av søk og erstatt med regulære uttrykk

Endret 10. februar 2009 av Ekko