Avatar billede phuc69 Juniormester
21. november 2005 - 11:21 Der er 3 kommentarer og
1 løsning

VBA- indsætte værdi i celle

Jeg har følgende kode
  For x = 2 To 10
    afdorg = "c" & x
    out = "d" & x
    Range(afdorg).Select
    Selection.Copy
    Range(out).Select
    ActiveSheet.Paste
    summ = summ + Range(out).Value
Next x
Her vil jeg gerne have summen indsat i feltet h1
Hvordan kan det lade sig gøre
Avatar billede kabbak Professor
21. november 2005 - 11:23 #1
For x = 2 To 10
    afdorg = "c" & x
    out = "d" & x
    Range(afdorg).Select
    Selection.Copy
    Range(out).Select
    ActiveSheet.Paste
    summ = summ + Range(out).Value
Next x
Range("H1")= summ
Avatar billede kabbak Professor
21. november 2005 - 11:25 #2
For x = 2 To 10
    afdorg = "c" & x
    out = "d" & x
    Range(afdorg).Copy  Range(out)
    summ = summ + Range(out).Value
Next x
Range("H1")= summ

kortede koden lidt
Avatar billede phuc69 Juniormester
21. november 2005 - 11:26 #3
tak smid et svar
Avatar billede kabbak Professor
21. november 2005 - 11:31 #4
et svar ;-))
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
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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