dave2000 Nybegynder
26. maj 2003 - 14:53 Der er 14 kommentarer og
2 løsninger

Midde værdi, konstant

Hvad er der galt med den følgende sætning?

  Sheets(t).Select
  Range("F6").Value = "=AVERAGE(t!C" & x & ":C" & y & ")"

og t = UF4.TextBox3.Value, 'UF(User¨Form)og x og y er nogle konstanter.

Med hver gang jeg bruger den så får jeg følgende sætning :

  " File t not found "

Er der nogen der kan sige hvad jeg har gjort forkert?

Mvh / David
b_hansen Nybegynder
26. maj 2003 - 14:59 #1
Du henviser til filen t i linien "=AVERAGE(t!C" & x & ":C" & y & ")"

Det gøres i "t!"
b_hansen Nybegynder
26. maj 2003 - 15:02 #2
Hvis du bare skal henvise til den fil, hvor du har din makro, skal du bare slette "t!".
Alternativt mangler du nogle anførselstegn:
"=AVERAGE("t"!C" & x & ":C" & y & ")"
dave2000 Nybegynder
26. maj 2003 - 15:09 #3
b hansen
t er bare navnet på ARK1.
Og jeg skulle bare tage gennemsnit af 5 tal der står på kollone C på ark1 eller t.
og det med "t" virker desværre ikke.
b_hansen Nybegynder
26. maj 2003 - 15:12 #4
i dit tilfælde er t blevet til navnet på en fil, da den er indefor de to første anførselstegn. Det er derfor, du får fejlmeldingen. Så du bliver nød til at lege lidt med at placere nogle flere anførselstegn i din formellinie
b_hansen Nybegynder
26. maj 2003 - 15:19 #5
Selvfølgelig... der mangler jo nogle &-tegn:

"=AVERAGE(" & t & "!C" & x & ":C" & y & ")"
dave2000 Nybegynder
26. maj 2003 - 15:42 #6
Jeg får fejl igen!
b_hansen Nybegynder
26. maj 2003 - 15:44 #7
hvilken fejl?
dave2000 Nybegynder
26. maj 2003 - 15:46 #8
At  Sheets("&t&").select  er forkert.
kabbak Seniormester
26. maj 2003 - 15:52 #9
"=AVERAGE("t!C" & x & ":C" & y & ")"

der var et " formeget
bak Nybegynder
26. maj 2003 - 17:21 #10
Her er en lille demo. Det her virker fint, men i din kode skriver du
Range("F6").Value. Betyder det at du ikke ønsker formlen indsat, men kun værdien ?
Hvis det er tilfældet, så fjern apostroffen fra sidste linie

Sub test()
t = "Sheet1"
x = 2
y = 10
Sheets(t).Select
Range("F6").Formula = "=AVERAGE(" & t & "!C" & x & ":C" & y & ")"
'Range("F6") = Range("F6").Value
End Sub
bak Nybegynder
26. maj 2003 - 17:31 #11
en anden mulighed, hvis du ikke vil have formlen indsat men kun værdien
Sub test()
t = "Sheet1"
x = 2
y = 10
Sheets(t).Select
Range("F6").Value = Application.WorksheetFunction.Average(Sheets(t).Range("C" & x & ":C" & y))
End Sub
dave2000 Nybegynder
27. maj 2003 - 10:18 #12
Det virker bare ikke.
Hvis jeg skriver :
  Let t = UserForm1.TextBox3.Value
  Sheets(t).select
så er der ingen problemer med konstanten "t".

men og men de her går slet ikke :

Range("F6").Value = "=AVERAGE(t!B" & x & ":B" & y & ")"
eller
Range("F6").Value = "=AVERAGE("&t&"!B" & x & ":B" & y & ")"
eller
Range("F6").Value = "=AVERAGE('t'!B" & x & ":B" & y & ")"

Hvordan får jeg "t" til at virke?
b_hansen Nybegynder
27. maj 2003 - 10:22 #13
Jeg vil foreslå at bruge bak's løsning.

Når jeg tester diverse versioner af "=AVERAGE(" & t & "!C" & x & ":C" & y & ")", bliver der sat apostroffer omkring celleangivelserne. Eksempelvis 'B1':'C1'
bak Nybegynder
27. maj 2003 - 12:42 #14
Dave2000, dine tre forslag virker ikke fordi du vil sætte range("F6").value lig med en formel. Denne formel er opgivet som en tekst. Altså vil du kun få en tekst i F6.
du SKAL bruge
range("F6").Formula="=AVERAGE(" & t & "!C" & x & ":C" & y & ")"
dave2000 Nybegynder
27. maj 2003 - 13:41 #15
bak
At last at last.
Tak for hjælpen, igen.
Det virkede, men samme fejl må ikke gentages igen, så gider du sende mig et svar i stedet for kommentar.

Mvh/Dave2000
bak Nybegynder
27. maj 2003 - 17:28 #16
Ok, godt det funker :-)
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

Opret Preview

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





Computerworld
Advarsel til Gmail-brugerne: Lumsk phishing-mail på spil netop nu - sådan spotter du den
Gmail-brugerne skal være på vagt: It-kriminelle forsøger sig i øjeblikket med en udspekuleret phishing-mail. Se her, hvordan du spotter fupnummeret.
CIO
Coop på jagt efter afløser til den 49 år gamle mainframe: "Systemet er ikke længere tilstrækkeligt til vores vision for Coop"
Coop Danmark er i gang med en støre digitalisering af hele forretningen, og det kommer ikke til at gå stille for sig i 2017. Blandt andet skal Coop have fundet en erstatning for den 49 år gamle mainframe.
Comon
Undgå passwordet: Smart tilbehør til at låse og åbne din computer med Windows Hello
Windows Hello kan mere end blot låse din computer op med dit ansigt. Der findes en lang række muligheder af tilbehør, som kan være med til at sikre din computer mod indtrængere. Se fem af dem her.
Channelworld
Ny EG-direktør har en plan: Sådan skal EG vokse sig større og endnu mere profitabel
Interview: Mikkel Bardram er ny administrerende direktør i EG. Selvom EG nu har 2.000 ansatte og en omsætning på 1,8 milliarder kroner, er der potentiale for endnu mere, mener den nye direktør.
White paper
Tjekliste: 10 tegn på, at du har behov for at modernisere din Backup og Recovery løsning
Gennemgå denne tjekliste for at afgøre, om dit miljø har behov for en mere moderne tilgang til backup og recovery. Hvis ikke du kan tjekke nogen af disse af, kan det være tid til at revurdere din databeskyttelse strategi.