[ ercha85 @ 29.01.2007. 18:07 ] @
Interesuje me da li mozda ima negde na net-u makro koji bi mi posle unosa recimo 1 u neku celiju isprintao taj Sheet.
Pomoc!!!
[ Jpeca @ 30.01.2007. 08:25 ] @
Ne znam čemu služi (zar nije jednostavnije Ctrl+P?) ali mozeš da uradis tako što presretneš događaj on change radnog lista i ukoliko je izmenjena ćelija A1 i u nju upisano 1 štampaš taj list. Kod bi bio sledeći:
Code:

Private Sub Worksheet_Change(ByVal Target As Range)
' Stampa tekuci list kad se u celiju A1 unese 1
'
' P.Jovanovic za elitesecurity.org

If Not (Application.Intersect(Target, Range("A1")) Is Nothing) Then

    If Target.Value = 1 Then
       ' Stampaj tekuci lis
       ActiveSheet.PrintOut
       ' Isprazni celiju
      'Target.Value = ""
    End If
End If

End Sub

Ovaj kod treba dodati u okviru radnog lista koji treba da se štampa (npr Sheet1). Ukoliko želiš da ti se isprazni ćelija A1 nakon štampe iskluči komentar ispred Target...