+1

[opil]

Imam majhen problemček. V excellu imam izdelano datoteko s katero izdelujem račune za stranke. Zanima me, kako bi lahko uredil zadevo s številko računa, sedaj jo moram ročno spreminjati. Zanima me tudi, ali obstaja kakšen ukaz, ki bi mi zadeve ki jo vpišem prenesel v drug list, recimo v arhiv?

Najlepša hvala za odgovor!

[admin]

Pozdravljeni,

Rešitev vašega problema se nahaja med pogostimi vprašanji: http://www.matjazev.net/pnew/index.php? ... tip56.html Predstavljena pa je rešitev za Word. Excelov makro pa izgleda takole:

Koda: Izberi vse

Private Declare Function GetPrivateProfileStringA Lib "Kernel32" _
  (ByVal strSection As String, ByVal strKey As String, _
   ByVal strDefault As String, ByVal strReturnedString As String, _
   ByVal lngSize As Long, ByVal strFileNameName As String) As Long
   
Private Declare Function WritePrivateProfileStringA Lib "Kernel32" _
  (ByVal strSection As String, ByVal strKey As String, _
   ByVal strString As String, ByVal strFileNameName As String) _
   As Boolean

Private Sub Document_New()
  Dim Vrednost As String * 10
  Dim dolzina As Long
  Dim stevilka As Long
 
  dolzina = GetPrivateProfileStringA("Podloga1", "Stevec", "", _
            Vrednost, 9, "i:\matjaz\stevci.ini")

  If (Asc(Vrednost) = 0) Then
    stevilka = 1
  Else
    stevilka = CInt(Vrednost) + 1
  End If
  
  Vrednost = CStr(stevilka)
  
  WritePrivateProfileStringA _
    "Podloga1", "Stevec", Vrednost, "i:\matjaz\stevci.ini"

  Range("Stevec").Value = stevilka
End Sub

Ustrezno je seveda potrebno urediti ime da datoteke s števci (nekaj namesto i:\matjaz\stevci.ini).

Kar pa se tiče drugega vprašanja pa posebnega ukaza ni, ker je to čisto specifična želja in je potrebno natančno definirati kaj želite shraniti kam in kdaj želite to narediti. Ko to veste je rešiev majhen VBA makro.