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
Nova številka ob odpiranju
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
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:
Ali pa logiko obrnete in številčite DOKLER je v H1 zapisana 1. Če enico zbrišete Excel neha številčiti:
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
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
Matjaž Prtenjak
Administrator