Živjo
sem nov na forumu in že imam težavo.
Ali je možno (za mojstre je itak vse možno) izvesti naslednje in kako naj se tega lotim.
Rad bi, da se ob izhodu iz polja vanj vpisan tekst pojavi kot ime delovnega lista (torej list se po izhodu iz polja npr A1 imenuje tako, kot je vpisano v polje A1. Če je polje ostalo prazno ostane ime lista enako kot prej.
Lp Beni
Samodejno preimenovanje delovnega lista
Pozdravljeni,
Odzvati se boste morali na dogodek delovnega lista in reči. Ob spremembi aktivne celice preveri ali je to celica A1. Če je celica A1 in ni prazna potem to vrednost priredi imenu lista. Koda je temu primerno preprosta:
Opozarjam pa vsa, da to ni navadna procedura temveč odziv na dogodek. Več o dogodkih si lahko preberete v VBA nasvetih:
VBA#10: http://www.matjazev.net/pnew/index.php? ... tip10.html
VBA#22: http://www.matjazev.net/pnew/index.php? ... tip22.html
VBA#34: http://www.matjazev.net/pnew/index.php? ... tip34.html
VBA#41: http://www.matjazev.net/pnew/index.php? ... tip41.html
VBA#56: http://www.matjazev.net/pnew/index.php? ... tip56.html
Ali pa si naložite datoteko matjazev_net.chm, kjer najdete vse omenjene nasvete ter odgovore na vprašanja iz starega foruma (do leta 2004). Datoteko najdete na naslovu:
matjazev_net.chm: http://www.matjazev.net/pnew/index.php? ... ev_net.chm
Odzvati se boste morali na dogodek delovnega lista in reči. Ob spremembi aktivne celice preveri ali je to celica A1. Če je celica A1 in ni prazna potem to vrednost priredi imenu lista. Koda je temu primerno preprosta:
Koda: Izberi vse
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row = 1 Then
If (Target.Value <> "") Then
ActiveSheet.Name = Target.Value
End If
End If
End Sub
VBA#10: http://www.matjazev.net/pnew/index.php? ... tip10.html
VBA#22: http://www.matjazev.net/pnew/index.php? ... tip22.html
VBA#34: http://www.matjazev.net/pnew/index.php? ... tip34.html
VBA#41: http://www.matjazev.net/pnew/index.php? ... tip41.html
VBA#56: http://www.matjazev.net/pnew/index.php? ... tip56.html
Ali pa si naložite datoteko matjazev_net.chm, kjer najdete vse omenjene nasvete ter odgovore na vprašanja iz starega foruma (do leta 2004). Datoteko najdete na naslovu:
matjazev_net.chm: http://www.matjazev.net/pnew/index.php? ... ev_net.chm
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator