Flytning af oplysninger

Prøv med denne kode på din knap:

Private Sub CommandButton1_Click()
    a = Sheets(1).Range("a10").Value
    If IsEmpty(Sheets(2).Range("a10")) Then
        Sheets(2).Range("a10").Value = a
    Else
        Sheets(2).Range("a11").Value = a
    End If
    Sheets(1).Range("a10").Value = ""
End Sub

Private Sub CommandButton1_Click()
rk = Sheets("Ark2").Cells(65500, 1).End(xlUp).Row + 1
If rk < 10 Then rk = 10
Sheets("Ark2").Cells(rk, 1) = Sheets("Ark1").Cells(10, 1)
End Sub

ok.. Er lidt i tvivl om hvilken jeg skal bruge. excelent din kan jeg ikke få til at virke. Den Melder fejl.

Jkrons din virker fint, men den skal justeres lidt. Hvis A11 ikke er blank skal den være a12 - og hvis a12 ikke er blank skal den være i A13 osv. osv.

Derudover skal celle A10 i ark 1 ikke blive blank når man trykker på knappen.

Er det muligt?

Måske er det Excelent's metode jeg skal bruge men kan ikke helt få den til at fungere.

Er der celler med indhold i A-kolonnen, bortset fra de, som udfyldes med knappen?

Hvis A-kolonnen i ark 2 i øvrigt er tom burde du kunen bruge denne

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    a = Sheets(1).Range("a10").Value
    If IsEmpty(Sheets(2).Range("a10")) Then
        Sheets(2).Range("a10").Value = a
    Else
        Sheets(2).Select
        Sheets(2).Range("A65536").End(xlUp).Offset(1, 0).Value = a
        Sheets(1).Select
    End If
    Application.ScreenUpdating = True
End Sub

Eller bedre:

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    a = Sheets(1).Range("a10").Value
    If IsEmpty(Sheets(2).Range("a10")) Then
        Sheets(2).Range("a10").Value = a
    Else
        Sheets(2).Range("A65536").End(xlUp).Offset(1, 0).Value = a
    End If
    Application.ScreenUpdating = True
End Sub

cool. virker fint. smid et svar

Her er et svar.