09. december 2006 - 23:33Der er
8 kommentarer og 1 løsning
Tilføj data til næste ark
Jeg har 2 ark i mit Excel dokument...
ARK 1: I C9 indtastes et varenummer I E9 indtastes antal vare
ARK 2: Her skal data'erne fra ARK 1 gerne sættes ind.
Såå når man trykker ENTER i felt E9 (ARK 1) så indsættes begge data i ARK 2 celle A1 og B1. Næste gang der trykkes ENTER i felt E9 (ARK 1) så indsættes de nye værdier under de 2 første, altså i felt A2 og B2 i ARK 2.
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.
Private Sub worksheet_change(ByVal target As Range) If target.Address = "$E$9" Then With Worksheets("Ark2") sidste = .Range("A65536").End(xlUp).Row + 1 .Range("A" & sidste) = Worksheets("Ark1").Range("C9") .Range("B" & sidste) = Worksheets("Ark1").Range("E9") End With End If End Sub
Private Sub worksheet_change(ByVal target As Range) En lille rettelse
If target.Address = "$E$9" Then With Worksheets("Ark2") sidste = .Range("A65536").End(xlUp).Row If .Range("A" & sidste) <> tom Then sidste = sidste + 1 .Range("A" & sidste) = Worksheets("Ark1").Range("C9") .Range("B" & sidste) = Worksheets("Ark1").Range("E9") End With End If End Sub
Private Sub worksheet_change(ByVal target As Range) If target.Address = "$E$9" Then With Worksheets("Ark2") sidste = .Range("A65536").End(xlUp).Row If .Range("A" & sidste) <> tom Then sidste = sidste + 1 .Range("A" & sidste) = Worksheets("Ark1").Range("C9") .Range("B" & sidste) = Worksheets("Ark1").Range("E9") End With End If End Sub
Private Sub worksheet_change(ByVal target As Range) If target.Address = "$E$9" Then With Worksheets("Ark2") sidste = .Range("A65536").End(xlUp).Row If .Range("A" & sidste) <> "" Then sidste = sidste + 1 .Range("A" & sidste) = Worksheets("Ark1").Range("C9") .Range("B" & sidste) = Worksheets("Ark1").Range("E9") End With End If End Sub
Private Sub worksheet_change(ByVal target As Range) If target.Address = "$E$9" Then With Worksheets("Ark2") sidste = .Range("A65536").End(xlUp).Row If .Range("A" & sidste) <> "" Then sidste = sidste + 1 .Range("A" & sidste) = Worksheets("Ark1").Range("C9") .Range("B" & sidste) = Worksheets("Ark1").Range("E9") .Range("A:B").Sort Key1:=.Range("A1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End With End If End Sub
Det virker jo bare perfekt... Mange tak for hjælpen!!
Synes godt om
Ny brugerNybegynder
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.
