Try this.
![]()
Sub Nullstill() 'Start over with the items If MsgBox("Dette vil nullstille alle varelinjer." & vbNewLine & vbNewLine & "Er du sikker?", vbOKCancel) = vbCancel Then Exit Sub Range("BQ13:BZ40").Copy Range("C13:L40") End Sub
Try this.
![]()
Sub Nullstill() 'Start over with the items If MsgBox("Dette vil nullstille alle varelinjer." & vbNewLine & vbNewLine & "Er du sikker?", vbOKCancel) = vbCancel Then Exit Sub Range("BQ13:BZ40").Copy Range("C13:L40") End Sub
If posting code please use code tags, see here.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks