Hjælp til excel

1. =HVIS((Slut_km-start_km)>Antal_dage*100;(Slut_km-start_km)-(Antal_dage*100);"")
Så skriver den kun de overskydende km.

2. og 4. Vender jeg lige tilbage til ledt senere.

3. Marker de celler, som brugeren skal kunne taste i, højreklik og vælg "Formater celler". Vælg fanebladet "Beskyttelse" og fjern fluebenet i "Låst". Klik OK. Når du er tilbage i regnearket, vælger du Funktioner > Beskyttelse > Beskyt ark. Du afgør selv, om du vil sætte et password på. Nu kan der kun tastes i de celler, hvor du har fjernet fluebenet for "Låst".

Til de andre 2 punkter skal du bruge lidt makro:

Vælg Vis > Værktøjslinier > Kontrolelementer. Vælg en knap, klik på den og gå ud på regnearket. Din markør ligner nu et sigtekorn. Vælg et sted, klik og hold, og træk din knap ud, indtil størrelsen passer.

Højreklik på knappen, vælg "Vis programkode" og erstat det, der står, men nedenstående (fra Sub og til End sub). Skift tilbage til regnearket, højreklik på knappen igen og vælg "Egenskaber". I det felt, der hedder Caption, kan du vælge en tekst til knappen, f.eks. "Tryk her for at gemme, printe og lukke.". Gem hele regnearket. Når knappen nu bruges, sættes der fakturanummer på, regnearket gemmes med fakturanummeret som filnavn og fakturaen printes i 2 eksemplarer.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = True
If Range("A1").Value <> "" Then
MsgBox "BILAGET ER ALLEREDE NUMMERERET!!"
Exit Sub
End If
Range("A1").Select
Open "C:\Mine_regneark\fakt.txt" For Input As #1
Line Input #1, a$
Close #1
fak = Val(a$)
fak = fak + 1
Open "C:\Mine_regneark\fakt.txt" For Output As #1
Print #1, Str(fak)
Close #1
ActiveCell.FormulaR1C1 = Str(fak)
Range("b9").Select
' Gemmer fakturaen med fakturanummer som filnavn og udskriver den i to kopier
    filnavn = Str(Range("A1"))
    VUPTI = "C:\Mine_regneark\fakturaer\" & filnavn & ".XLS"
    ActiveWorkbook.SaveAs FileName:=VUPTI, FileFormat:=xlNormal,
  password:="", Writerespassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
    ActiveWindow.Close
End Sub

Det kan være, at du lige skal trykke på tegnetrekanten på værktøjslinien Kontrolelementer for at få det hele til at virke.

Desuden skal der eksistere en fil, der hedder C:\Mine_regneark\fakt.txt, lavet i WordPad og som til start bare skal indeholde et 0 (nul).

Hej lars

Jeg få en fejl i følgen tekst

ActiveWorkbook.SaveAs FileName:=VUPTI, FileFormat:=xlNormal,
  password:="", Writerespassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

/lasse

Det kommer nok fra klippe/klistre-metoden. Prøv at sætte markøren lige efter xlNormal og tryk Delete, indtil der er præcis ét mellemrum til næste ord. Så virker det i hvert fald hos mig.

Hej lars

det har jeg prøvet på. men jeg ved ikke havd det er jeg laver af fejl. kun jeg mail det til også kunne det være at du kunne se fejlen


/lasse

Gerne. Send det til x_lars@yahoo.com

Har sendt det til dig
/lasse