Tilføj data til næste ark

Indsæt denne makro i ark1 modul


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

En lille rettelse, Sådan



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

Er vist ved at være lidt træt :-)


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

Det virker jo perfekt.. I hvert fald i 4. forsøg ;-) Smid svar og der er points på vej...

Super :-)

Ville det være svært at sortere dataerne i ARK 2, så kolonne A kommer til at stå i orden... Og så selvfølgelig så B-data'erne følger med??

Noget du kunne lave, så giver jeg 100...

Prøv lige denne. Og 60p. er rigeligt


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!!