Notifikationer

Markér alle som læst Log ud

klausholm Nybegynder

24. juni 2008 - 11:09 Der er 2 kommentarer og
1 løsning

Sammenflette 2 regneark

Hej,

Jeg har nedenstående udfordring:

Sammenflette 2 regneark,"Master Overview" og "New work orders"
Ark 1 "Master Overview" indeholder Workorder no. samt tilhørende tekst
Ark 2 "New work orders" indeholder nye og eksisterende Work order no. samt tilhørende tekst.

Hvis der på ark 2 "New work orders" findes Workorder no som ikke eksisterer på ark 1 "Master Overview" skal dette Workorder no. indsættes i ny række i ark 1 "Master Overview" efter eksisternede data incl. den tilhørende tekst.

Håber det er forståelig, jeg har lavet nedenstående eksempel, før og efter "Master Overview" er opdateret.
Det må meget gerne være en VB-løsning

Ark 1: "Master Overview" (inden opdatering)
Workorder no: Tekst:
3 Repair
7 Service
11 Fix
15 Repair

Ark 2: "New work orders"
Workorder no: Tekst:
3 Repair
20 Service
22 Fix
15 Repair

Ark 1: "Master Overview" (efter opdatering)
Workorder no: Tekst:
3 Repair
7 Service
11 Fix
15 Repair
20 Service
22 Fix

Håber det er forståelig

Synes godt om

excelent Ekspert

24. juni 2008 - 19:25 #1

Hvis det er 2 Ark i samme Projektmappe

Sub SamleArk()
Dim sh1, sh2, rk1, rk2, rk3, t As Integer
Set sh1 = Sheets("Master Overview")
Set sh2 = Sheets("New work orders")
rk1 = sh1.Cells(65500, "A").End(xlUp).Row
rk2 = sh2.Cells(65500, "A").End(xlUp).Row

For t = 2 To rk2
rk3 = sh1.Cells(65500, "A").End(xlUp).Row + 1
If Application.CountIf(sh1.Range("A2:A" & rk1), sh2.Cells(t, "A").Value) = 0 Then
sh2.Range("A" & t & ":B" & t).Copy sh1.Range("A" & rk3)
End If
Next

If MsgBox("Skal liste sorteres", vbYesNo) = vbYes Then
sh1.Range("A2:B" & rk3).Select
Selection.Sort Key1:=sh1.Range("A2"), Order1:=xlAscending
End If
ActiveCell.Select
End Sub

Synes godt om

klausholm Nybegynder

24. juni 2008 - 21:30 #2

Det virker total perfekt….og tak for den ekstra finesse med sorteringen…..smukt.

Synes godt om

excelent Ekspert

24. juni 2008 - 21:59 #3

velbekom :-)

Synes godt om

Ny bruger Nybegynder

Din løsning...

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.

Følg dette spørgsmål

Opret Preview

Excel kurser

Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Samle data fra flere kolonner i 1 Af FinnLauridsen i Excel	5	17/04/202616:11	27/04/202617:58
Træk data fra ny lokation ved måneds skift Af Hezo i Excel	6	13/04/202614:32	15/04/202611:04
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel	2	31/03/202610:22	31/03/202611:47
Stempel ur start og stop Af lurup i Excel	3	23/03/202613:24	07/05/202614:01
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel	4	08/03/202611:56	08/03/202613:57

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS