Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub MyProcedure()
- a = Worksheets("ark1").Cells(Rows.Count, 1).End(xlUp).Row
- MsgBox (a)
- End Sub
- Private Sub CommandButton1_Click()
- Dim nøgletal As String, år As Integer
- Worksheets("Ark2").Select
- nøgletal = Range("B2:B16")
- år = Range("C2:C16")
- Worksheets("Ark1").Select
- Worksheets("Ark1").Range("A4").Select
- If Worksheets("Ark1").Range("A4").Offset(1, 0) <> "" Then
- Worksheets("Ark1").Range("A4").End(xlDown).Select
- End If
- ActiveCell.Offset(1, 0).Select
- ActiveCell.Value = nøgletal
- ActiveCell.Offset(0, 1).Select
- ActiveCell.Value = år
- Worksheets("Ark2").Select
- Worksheets("Ark2").Range("B2", "B16").Select
- End Sub
Add Comment
Please, Sign In to add comment