Olen tehnyt laskulomakkeen, jossa on tietyssä solussa juokseva numerointi.
Teen ja tulostan laskun, mutta en talleta laskun tietoja koneelle. Kuinka tuon yhden solun juoksevan numeroinnin saa juoksemaan tällaisessa tilanteessa, ettei se aina aloita uudelleen ykkösestä?
Teen ja tulostan laskun, mutta en talleta laskun tietoja koneelle. Kuinka tuon yhden solun juoksevan numeroinnin saa juoksemaan tällaisessa tilanteessa, ettei se aina aloita uudelleen ykkösestä?
Vastaukset 3
Vanhimmat
Tallenna laskunumero tekstitiedostoon ja lue se ennen tulostusta soluun :-)
Osasin ja arvasin :-) yritin kuitenkin
Oukki doukki tassa ohje sulle
ThisWorkbook moduuliin:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim x As Integer
On Error GoTo virhe
Range("A1") = "" 'muuta solu nyt A1
Open "C:\LaskunNumero.txt" For Input As #1 'muuta polku ja nimi sopivaksi
Input #1, x
Close #1
Range("A1").Value = x 'muuta solu nyt A1
toka:
Range("A1").Value = Range("A1").Value 1 'muuta solu nyt A1
Open "C:\LaskunNumero.txt" For Output As #1 'muuta polku ja nimi sopivaksi
Write #1, Range("A1").Value 'muuta solu nyt A1
Close #1
Exit Sub
virhe:
MsgBox "Tไnnehไn ei pitไnyt tulla!"
End Sub
Moduliin:
Sub Auto_Open()
LaskunNumero
End Sub
Sub LaskunNumero()
Dim x As Integer
On Error GoTo virhe
eka:
Open "C:\LaskunNumero.txt" For Input As #1 'muuta polku
Input #1, x
Close #1
toka:
Range("A1").Value = x 'muuta solu nyt A1
Open "C:\LaskunNumero.txt" For Output As #1 'muuta polku
Write #1, Range("A1").Value 'muuta solu nyt A1
Close #1
Exit Sub
virhe:
Select Case Err.Number
Case 53 'jos LaskunNumero.txt ei esiinny...
x = InputBox("Anna aloitusnumero josta aletaan laskea vไhennettynไ yhdellไ", "Laskuri")
Resume toka
Case Else
Resume Next
End Select
End Sub