[es] - Promena imena sheeta i boje jezička u zavisnosti od vrednosti u celiji

intelekt

Član broj: 94867
Poruke: 19
*.220.eunet.yu.

Profil

Promena imena sheeta i boje jezička u zavisnosti od vrednosti u celiji

^{03.11.2008. u 21:06 - pre 188 meseci}

Dobijam tabele sa 3 sheeta. Prvi je "glavni", sa podacima o firmi, a druga dva su uvek razlicite narudzbenice.
Da ne bih morao da otvaram sheetove bez potrebe, kako da stavim sledece:
- ako npr. u sheetu 2 imam robu iz magacina Beograd, da mi se naziv sheeta 2 promeni u Beograd, a u sh. 3 Novi Sad, ako je iz tog magacina. Ako ih nema, onda nista.
- ako imam npr. robu koja se zove "printer", da se sheet oboji u crveno (a za "skener" u zeleno). Ako nema te robe, onda ostaje default naziv sheeta.
Hvala unapred.

Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898

+66 Profil

Re: Promena imena sheeta i boje jezička u zavisnosti od vrednosti u celiji

^{04.11.2008. u 08:57 - pre 188 meseci}

Citat:

intelekt: - ako npr. u sheetu 2 imam robu iz magacina Beograd, da mi se naziv sheeta 2 promeni u Beograd, a u sh. 3 Novi Sad, ako je iz tog magacina. Ako ih nema, onda nista.

Probaj sa ovim kodom ( btw: ne pišem VBA ali sam malo za tebe proguglao

Uzmimo za primjer da ti je ćelija A1 ona u kojoj se nalaze imena po kojima hoćeš nazvati Sheet

Za pojedini Sheet, kopira se u dotični Sheet

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
ActiveSheet.Name = [A1]
End If
End Sub

Za sve Sheets u Woorkbook ( kopira se u ThisWorkbook )

Code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$A$1" Then
ActiveSheet.Name = [A1]
End If
End Sub

1. Otvori file i sa ALT+F11 otvori VBA editor
2. Klkini dvoklik na ThisWorkbook i Copy/Paste drugi kod u desnom dijelu editora
3. Izađi iz VBA editora i snimi
4. Otvori ponovno snimljeni file
5. Prihvati Makronaredbe
6. Upiši u ćeliju A1 naziv po želji + Enter

Jednini problem je što ne možeš ćeliju ostaviti praznu, mora biti neki podatak ( nemoj koristiti specijalne znakove )
Nadam se da sam ti malo pomogao oko prvog dijela pitanja
BTW: Vidi Attach

Prikačeni fajlovi