Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

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

  • 4 odgovora
  • 4.146 pregleda

Najnovija ↓

Promena imena sheeta i boje jezička u zavisnosti od vrednosti u celiji 03.11.2008. u 22:06 · pre 219 meseci #1
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.
Re: Promena imena sheeta i boje jezička u zavisnosti od vrednosti u celiji 04.11.2008. u 09:57 · pre 219 meseci #2
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
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme