14. september 2016 - 14:01Der er
4 kommentarer og 1 løsning
Opdatere et regneark via en makro fra andet regneark.
Har kastet mig ud i VBA verdenen og lært en masse via spørgsmål og svar her på siden, men jeg er stødt ind i et mindre problem som driller. Jeg har behov for at overskrive nogle adresser i en Excel mappe via en makro der henter data i en anden Excel mappe.
I data Excel mappen er der tre kolonner, hvor søgekriteriet er i kolonne A og data i kolonne B og C. Data fra kolonne B og C skal overføres til den anden Excel mappe.
I destinations Excel mappen er der 7 kolonner hvor søgekriteriet findes i kolonne B og destinationsfelterne er i kolonnerne F og G
Begge Excel mapper har overskrifter. Excel mappen der skal rettes er på over 50000 linjer og der er ca. 100 udsøgningskriterier.
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Set wb_data = Workbooks("Data_Fil.xlsm").Sheets("Ark1") Set wb_dest = Workbooks("Dest_Fil.xlsm").Sheets("Ark1") dest_rk = wb_dest.Cells(Rows.Count, "B").End(xlUp).Row kilde_rk = wb_dest.Cells(Rows.Count, "B").End(xlUp).Row
For Each c In wb_dest.Range("B2:B" & dest_rk) x1 = Application.VLookup(c, wb_data.Range("A1:C" & kilde_rk), 2, False) x2 = Application.VLookup(c, wb_data.Range("A1:C" & kilde_rk), 3, False) If IsError(x1) = False Then c.Offset(0, 4) = x1 If IsError(x2) = False Then c.Offset(0, 5) = x2 Next
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
