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!!!
Pomoc!!!
[Excel] Štampa radnog lista pomoću makroa
Zaključano
Zakačeno
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:
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...
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
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...
Potpis
Nije to loše Rembrante, samo što ne bi dodao još malo boje?