megoldást keresek erre a problémára
-
#1550
Próbáld ki ezt:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lapnev$, v%
v% = InputBox("Hány példányban nyomtassam az első oldalt?", "Példánszám", Default)
ActiveWindow.SelectedSheets.PrintOut Copies:=2
If Target.Address = "$A$1" Then
lapnev$ = Cells(1)
On Error GoTo Hiba
Sheets(lapnev$).Select
End If
Hiba:
End Sub