2012-03-16

Programmera mera

Jag vet ju att det är otroligt många som undrar vad jag gjort här till kvällen. Jo jag har gjort ett excelmacro som hämtar data från en fil till en annan och där organiserar datan som en enda tabell så att jag med hjälp av lookupfunktioner kan skapa en dynamisk excelrapport. Perfekt avslutning på en arbetsvecka. Nu drack jag ju upp måltidsvinet vilket gjorde att jag till sist inte riktigt klarade av att tänka klart. Jag publicerar koden för att få er feedback hur jag skulle kunna optimera den mer.


Sub Getsomedata()
'Getsomedata Makro

Dim Ark(20), AntalRaderArk As Integer
Dim StigA, filA As Variant

'Hämta stig och Filnamn från Ark input
Sheets("input").Select
Range("Stig1").Select
StigA = Selection.Value
Range("filnr1").Select
filA = Selection.Value


'Hämta Arknamn från Ark Input
Sheets("input").Select
Range("startArk").Select
Range(Selection, Selection.End(xlDown)).Select
AntalRaderArk = Selection.Rows.Count
Range("startArk").Select


' För att testa tar jag bort loopen som tar alla arken
'For a = 1 To AntalRaderArk
For a = 1 To 1
Ark(a) = Selection.Value
ActiveCell.Offset(1, 0).Activate
Next a

'I testsyfte tar jag bort denna och håller filen öppen
'Workbooks.Open Filename:=StigA & filA

Windows(filA).Activate


Sweet dreams...

3 kommentarer:

Ting sa...

Alltså.
Vad är det du vill veta?
Jag tycker det ser bra ut, men du kanske vill ha pisk?
*kadisch*

Per A sa...

E du en hajare på sånt här. Jag är hobby-hemma-snickare.

Och ja, gärna lite pisk tack

Malla sa...

Jag begriper nästan ingenting av det där.