Koda: Izberi vse
Sub NatisniListe()
Dim ws As Worksheet
Dim stevec As Integer: stevec = 0
Dim i As Integer
For i = 1 To 80
Set ws = Worksheets(i)
If (ws.Range("A1") = 12) Then
stevec = stevec + 1
End If
Next
MsgBox "Izpisalo se bo " & stevec & " listov."
For i = 1 To 80
Set ws = Worksheets(i)
If (ws.Range("A1") = 12) Then
ws.PrintOut
End If
Next
End Sub