..|| Blog || Produkti/Storitve || MExcel || MDodatki || 300 nasvetov ||..

Nova številka ob odpiranju

Pomoč pri izdelavi makrov

Nova številka ob odpiranju

OdgovorNapisal/-a BJ » Če maj 31, 2007 10:18 am

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
BJ
 
Prispevkov: 152
Pridružen: Sr okt 26, 2005 5:46 pm



Matjazev.NET
 

OdgovorNapisal/-a admin » Če maj 31, 2007 1:51 pm

Kako pa imate to rešeno? Na takšen način, kot smo to svetovali v tem forumu?
lp,
Matjaž Prtenjak
Administrator
admin
Site Admin
 
Prispevkov: 3492
Pridružen: Sr jul 20, 2005 10:06 pm

OdgovorNapisal/-a BJ » Če maj 31, 2007 4:35 pm

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: 152
Pridružen: Sr okt 26, 2005 5:46 pm

OdgovorNapisal/-a BJ » To jun 05, 2007 10:01 am

Se opravičujem, ampak se mi zdi,da ste vprašanje oziroma moj odgovor spregledali.
Lep pozdrav BJ
BJ
 
Prispevkov: 152
Pridružen: Sr okt 26, 2005 5:46 pm

OdgovorNapisal/-a admin » To jun 05, 2007 11:34 am

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
admin
Site Admin
 
Prispevkov: 3492
Pridružen: Sr jul 20, 2005 10:06 pm

OdgovorNapisal/-a BJ » To jun 05, 2007 3:21 pm

Najlepša hvala! Deluje super!
BJ
 
Prispevkov: 152
Pridružen: Sr okt 26, 2005 5:46 pm


Vrni se na VBA

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 0 gostov