[es] - Pomoc oko excela!!!!

ercha85
Ivan Erlenvajn
Cuprija

Član broj: 74235
Poruke: 33
*.041net.co.yu.

Profil

^{09.01.2006. u 23:13}

Imam nekoliko pitanja oko Excel-a!!!

1) Kako mogu da zapamtim neki dokument da ima naziv onoga sto sadrzi neka celija?

2) Kako mogu da ukoliko neka celija ima odredjenu vrednost mogu da automatski otstampam taj dokument sto sam radio ?

3) Kako mogu da obavestim onoga ko unosi neke podatke da je zaboravio da unese vrednost u neku odredjenu celiju?

Nadam se da je neko otprilike razumeo sta hocu??? Pomoc!!!

^{09.01.2006. u 23:13}

Jpeca
Predrag Jovanović
Bozic i sinovi škola računara
Pančevo

Moderator
Član broj: 25683
Poruke: 927
194.106.171.*

Jabber: jpeca@elitesecurity.org

Profil

Re: Pomoc oko excela!!!!

^{10.01.2006. u 08:34}

1) Evo rutine koja čuva

Sub MySave()
' Rutina koja cuva aktivnu radnu svesku pod imenom upisanim u celiji A1
Dim Fname As String
Fname = "C:\" & Range("A1").Text & ".xls" ' izmeniti putanju i adresu celije za ime
Application.DisplayAlerts = False ' ukida potvrdu za snimanje preko postojece
ActiveWorkbook.SaveAs (Fname)
Application.DisplayAlerts = True
End Sub

Za ovaj makro možeš napraviti novu ikonicu u toolbaru (Tools/Customize) baš hoćeš da dodaš ovaj makro na postojeću ikonicu Save (kad je uključen Customize scree, otvori konteksni meni za ikonicu Save pa Assign Makro.

2) Snimi makro za Print pa ga aktiviraj iz dogadaja SelectionChange worksheet-a

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Text = "Test" Then
....

O reagovanju na događaje možeš naći na adresi
[url]http://www.praktikum.co.yu/office/vba/vba_014.htm [/url]

3) Čini mi se najbolje da staviš uslovno formatiranje (Format/Conditional Formating) - npr zadaš kriterijum ćeliju koja je equal to 0 (tj. prazna) označi sa crvenim okvirom.
Proveru možeš da obaviš i na događaj BeforeSave gde bi ispisao poruku Nije popunjena ćelija ...

Dva u dva ide jednom ako možeš da ga ućuškaš

^{10.01.2006. u 08:34}