Avatar billede lillejens Nybegynder
14. august 2001 - 11:21 Der er 5 kommentarer og
1 løsning

Definering af værdien ingenting og o,oo

jeg prøver at udskrive eften en værdi i en celle og lige meget hvad resultatet i celle er udskriver koden to sider er det fordi der er en formel i cellen eller er definationen af ingenting og 0,00 ikke det samme her er en kopi af koden
If Range(\"O96\").Value = \"\" Then
 
  ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True
ElseIf Range(\"O96\").Value <> \"\" Then
 
  ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
        :=True
End If
14. august 2001 - 11:29 #1
Se jeg har fjernet Value samt din ElseIF -> Else
Det skulle kunne virke - 1 side hvis O96 er blank og to, hvis der er noget i cellen.

If Range(\"O96\") = \"\" Then
  ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True
Else 
  ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
        :=True
End If
Avatar billede lillejens Nybegynder
14. august 2001 - 11:36 #2
jeg fik sgu 2 sider selv om der ikke stod andet end 0,00 i celle O96 ,der er en formel i cellen
=HVIS(J1=\"x\";S95/100*95;S95/100*90)   
14. august 2001 - 11:37 #3
OK har du en formel i cellen, så virker det jeg har lavet ikke. Øjeblik....
14. august 2001 - 11:40 #4
If Range(\"O96\").Value = 0 Then
  ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
Else
  ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate:=True
End If
Avatar billede lillejens Nybegynder
14. august 2001 - 11:46 #5
Det var meget bedre,nu ser det ud til at virke ,det var det projekt nu skal jeg til at se på databaser så der kommer nok fler spørgsmål ;o)
14. august 2001 - 11:48 #6
God fornøjelse :-) hilsen www.win-consult.com
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester