hvordan laver jeg faktura menu i xp kan tildele faktura nr.

Kan du forklare lidt nærmere, hvad det er du ønsker? Vil du kunne lave en automatisk nummerering i andre programmer eller bare i Windows?

Hej
kun i windows xp. automatisk faktura nr

Denne stump VBA-kode kører i Excel og laver en forløbende nummerrække ved tryk på en kommandoknap. Når den er lavet i VBA, kan den i princippet køre i alle programmer, men der skal være et sted at gøre af tallet - hvilket igen peger på Excel som din løsning. Kan du beskrive dit projekt lidt nærmere?

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If Range("A3").Value <> "" Then
MsgBox "Dér er valgt et nummer!"
Exit Sub
End If
Range("A3").Select
Open "c:\fakt.txt" For Input As #1
    Line Input #1, a$
Close #1
fak = Val(a$)
fak = fak + 1
Open "c:\rekv.txt" For Output As #1
    Print #1, Str(fak)
Close #1
    ActiveCell.FormulaR1C1 = "faktura" + Str(fak)
    Range("D18").Select
End Sub

Mindre trykfejl - vi prøver lige igen:

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If Range("A3").Value <> "" Then
MsgBox "Dér er valgt et nummer!"
Exit Sub
End If
Range("A3").Select
Open "c:\fakt.txt" For Input As #1
    Line Input #1, a$
Close #1
fak = Val(a$)
fak = fak + 1
Open "c:\fakt.txt" For Output As #1
    Print #1, Str(fak)
Close #1
    ActiveCell.FormulaR1C1 = "faktura" + Str(fak)
    Range("D18").Select
End Sub

Hej igen virker meget fin mange tusinde tak.

Hej x-lars du skal send som svar så jeg kan give point til dig! eller hvad den give man point?  mvh.

Så må det her tælle som et svar. §;-P