Vba kode der ikke fungere
Hej ExcelhjælpereJeg bruger denne VBA kode til at printe 12 ark ud med januar, februar, marts osv. Står i kolonne A celle 2 starter januar og ender i kolonne A celle 14 med december. I kolonne B celle 3 og til celle 14 sætter jeg et X og så skal Excel printe den måned hvor X er sat ud for. Det gør den ikke, den vil ikke printe januar i celle A2.
Nogle der kan hjælpe.
Hilsen Klaus W
Sub Rektangelafrundedehjørner1_Klik()
Dim intRaekke As Integer
Dim SidsteSide As Integer
For intRaekke = 3 To Worksheets.Count
If Cells(intRaekke, 2).Value = "x" Then
SidsteSide = Sheets(intRaekke).Range("m1")
Sheets(intRaekke).PrintOut From:=1, To:=SidsteSide
End If
Next
End Sub