Nova številka ob odpiranju

Pomoč pri izdelavi makrov
Odgovori
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

Nova številka ob odpiranju

Odgovor Napisal/-a BJ »

Najprej en lep pozdrav in vse pohvale forumu!
Imam DZ, v katerem se v določeni celici ob odpiranju avtomatsko doda nova zaporedna številka. Zvezek shranim pod to novo številko. Problem nastane, ko novo shranjeni zvezek ponovno odprem in se številka poveča, temu pa bi se rad izognil
Hvala in LP
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

Kako pa imate to rešeno? Na takšen način, kot smo to svetovali v tem forumu?
lp,
Matjaž Prtenjak
Administrator
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

Odgovor Napisal/-a BJ »

V ThisWorkbook imam naslednji modul:

Koda: Izberi vse

'Dodajanje številke- števec
Private Sub Workbook_Open()
Worksheets(1).Cells(1, 17) = Worksheets(1).Cells(1, 17) + 1
ThisWorkbook.Save
End Sub
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

Odgovor Napisal/-a BJ »

Se opravičujem, ampak se mi zdi,da ste vprašanje oziroma moj odgovor spregledali.
Lep pozdrav BJ
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

Nič se ne opravičujte, res sem spregledal vaš odgovor :?.

ZA rešitev pa boste morali najti nek način, da Excelu dopoveste, naj neha številčiti. Nekako je najtrivialnejša možnost, da v neko celico zapišete npr. vrednost 1 in to Excelu pomeni naj neha avtomatično številčiti.

Izberete si npr. celico H1 in če je v njej zapisana 1 potem naj Excel neha številčiti:

Koda: Izberi vse

Private Sub Workbook_Open()
  If (Worksheets(1).Range("H1") <> 1) Then
    Worksheets(1).Cells(1, 17) = Worksheets(1).Cells(1, 17) + 1
    ThisWorkbook.Save
  End If
End Sub 
Ali pa logiko obrnete in številčite DOKLER je v H1 zapisana 1. Če enico zbrišete Excel neha številčiti:

Koda: Izberi vse

Private Sub Workbook_Open()
  If (Worksheets(1).Range("H1") = 1) Then
    Worksheets(1).Cells(1, 17) = Worksheets(1).Cells(1, 17) + 1
    ThisWorkbook.Save
  End If
End Sub 
lp,
Matjaž Prtenjak
Administrator
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

Odgovor Napisal/-a BJ »

Najlepša hvala! Deluje super!
Odgovori