VBA Print af Ark Start
Hej AlleJeg har et ark der hedder Start.
Her bliver der tastet nogle oplysninger ind.
Jeg har en commandknap som når man trykker på den kopier disse oplysninger over i et andet ark.
Når dette er gjort bliver arket gemt og det lukker ned.
Jeg kunne dog godt tænke mig, HVIS det er muligt, at før alt ovenstående sker, så kommer den og spørg om man vil printe arket ud A1:I40.
Hvis Ja, så åbner printer standard vinduet (Problemet er at vi på arbejdet har mange printerer så jeg tror ikke jeg kan undgå ikke at skulle vælge hvilken printer arket skal printes til).
Når arket er udskrevet, så fortsætter koden med ovenstående.
Er det muligt, måske endda lidt omsånst ved det ikke?
Private Sub CommandButton1_Click()
Dim shtInput As Worksheet
Dim shtOutput As Worksheet
Dim intSidsteraekke As Integer
Dim intInputraekke As Integer
If Range("B10").Value > 1 Then Makro = 1
Antal = Makro
Select Case Makro
Case Is = 1
Call Makro_1
End Select
End Sub
Sub Makro_1()
'find sidste række med data så der kopieres ind i næste række
intSidsteraekke = Sheets("Afvigelser").Cells(Sheets("Afvigelser").Rows.Count, "A").End(xlUp).Row
intInputraekke = intSidsteraekke + 1
Sheets("Afvigelser").Cells(intInputraekke, 1) = Sheets("Start").Range("M2").Value
Sheets("Afvigelser").Cells(intInputraekke, 5) = Sheets("Start").Range("M3").Value
Sheets("Afvigelser").Cells(intInputraekke, 6) = Sheets("Start").Range("M5").Value
Sheets("Afvigelser").Cells(intInputraekke, 7) = Sheets("Start").Range("O5").Value
Sheets("Afvigelser").Cells(intInputraekke, 8) = Sheets("Start").Range("M7").Value
Sheets("Afvigelser").Cells(intInputraekke, 9) = Sheets("Start").Range("M8").Value
Sheets("Afvigelser").Cells(intInputraekke, 10) = Sheets("Start").Range("M10").Value
Sheets("Afvigelser").Cells(intInputraekke, 11) = Sheets("Start").Range("O10").Value
Sheets("Afvigelser").Cells(intInputraekke, 14) = Sheets("Start").Range("M11").Value
Sheets("Afvigelser").Cells(intInputraekke, 15) = Sheets("Start").Range("O11").Value
Sheets("Afvigelser").Cells(intInputraekke, 16) = Sheets("Start").Range("M12").Value
Sheets("Afvigelser").Cells(intInputraekke, 17) = Sheets("Start").Range("O12").Value
Sheets("Afvigelser").Cells(intInputraekke, 18) = Sheets("Start").Range("M13").Value
Sheets("Afvigelser").Cells(intInputraekke, 19) = Sheets("Start").Range("O13").Value
Sheets("Afvigelser").Cells(intInputraekke, 20) = Sheets("Start").Range("M15").Value
Sheets("Afvigelser").Cells(intInputraekke, 21) = Sheets("Start").Range("M18").Value
Sheets("Afvigelser").Cells(intInputraekke, 4) = Sheets("Start").Range("M19").Value
Sheets("Afvigelser").Cells(intInputraekke, 31) = Sheets("Start").Range("M27").Value
Sheets("Afvigelser").Cells(intInputraekke, 12) = Sheets("Start").Range("M35").Value
Sheets("Afvigelser").Cells(intInputraekke, 13) = Sheets("Start").Range("O35").Value
Sheets("Afvigelser").Cells(intInputraekke, 41) = Sheets("Start").Range("M36").Value
Sheets("Afvigelser").Cells(intInputraekke, 42) = Sheets("Start").Range("M37").Value
Sheets("Afvigelser").Cells(intInputraekke, 43) = Sheets("Start").Range("M38").Value
Sheets("Afvigelser").Cells(intInputraekke, 2) = Sheets("Start").Range("M39").Value
Range("B2") = Range("B2") + 1
Range("B5").Select
Selection.ClearContents
Range("E5").Select
Selection.ClearContents
Range("B7").Select
Selection.ClearContents
Range("B8").Select
Selection.ClearContents
Range("B10").Select
Selection.ClearContents
Range("E10").Select
Selection.ClearContents
Range("B11").Select
Selection.ClearContents
Range("E11").Select
Selection.ClearContents
Range("B12").Select
Selection.ClearContents
Range("E12").Select
Selection.ClearContents
Selection.ClearContents
Range("B13").Select
Selection.ClearContents
Range("E13").Select
Selection.ClearContents
Selection.ClearContents
Range("B15").Select
Selection.ClearContents
Range("A18").Select
Selection.ClearContents
Range("F18").Select
Selection.ClearContents
Range("A27").Select
Selection.ClearContents
Range("B35").Select
Selection.ClearContents
Range("E35").Select
Selection.ClearContents
Range("B36").Select
Selection.ClearContents
Range("B37").Select
Selection.ClearContents
Range("B38").Select
Selection.ClearContents
ThisWorkbook.Close savechanges:=True
End Sub
