Vb Ved klik på knap

Du lægger blot følgende in i knappens programkode:

Private Sub CommandButton1_Click()
   
If IsEmpty(Worksheets("T").Range("M2")) Then
    Worksheets("-").Range("A1").Copy
    Worksheets("T").Range("M2").PasteSpecial
 
End If

End Sub

Ups, der manglede lige en enkelt linie:

Private Sub CommandButton1_Click()
   
If IsEmpty(Worksheets("T").Range("M2")) Then
    Worksheets("-").Range("A1").Copy
    Worksheets("T").Range("M2").PasteSpecial
    Application.CutCopyMode = False
End If

End Sub

Den skal lige Plusse en oven i det tal som det er i A1

Ok, så kan det ogsåe gøres lidt enklere. Prøv med

Private Sub CommandButton1_Click()
   
If IsEmpty(Worksheets("T").Range("M2")) Then
    Worksheets("T").Range("M2") = Worksheets("-").Range("A1") + 1
End If

End Sub

på ark"-":a1 står det 100
Hvis man så trykker skal den plusse en på og kopier det over på ark"T"
så i M2 står der 101 trykker man en gang til 102 men kun hvis det ikke står noget i m2...

Private Sub CommandButton1_Click()
   
If IsEmpty(Worksheets("T").Range("M2")) Then
    Worksheets("-").Range("A1") = Worksheets("-").Range("A1") + 1
    Worksheets("T").Range("M2") = Worksheets("-").Range("A1")
End If

End Sub

Jep det virker Tak... :D

:0)