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!
+1
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:
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.
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
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.
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator