CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede mbe78 Praktikant
24. november 2009 - 13:06 Der er 8 kommentarer og
1 løsning

VBA - excel

Hej, jeg har denne kode (se nedenfor) men har brug for at lave en overskrift der er "fast".

Kan nogen hjælpe. Jeg er ikke ekspert så skal have det "penslet ud" :-S

Tak

Sub ListArk()
    Dim i As Long, so As Object
    Sheets("Udskrift").Range("A:A").ClearContents
    i = 0
  For Each so In Sheets
    If so.Name <> "Udskrift" Then
        i = i + 1
        Sheets("Udskrift").Cells(i, 1).Value = so.Name
        Sheets("Udskrift").Cells(i, 2).Value = so.Range("B7")
        Sheets("Udskrift").Cells(i, 3).Value = so.Range("F3")
        Sheets("Udskrift").Cells(i, 4).Value = so.Range("F34")
        Sheets("Udskrift").Cells(i, 5).Value = so.Range("B41")
        Sheets("Udskrift").Cells(i, 6).Value = so.Range("H3")
        Sheets("Udskrift").Cells(i, 7).Value = so.Range("H2")
      End If
    Next
End Sub
Avatar billede tjacob Juniormester
24. november 2009 - 16:54 #1
Kan du forklare det lidt nærmere?
Hvad mener du med fast overskrift?
Og hvor skal den stå?
Avatar billede mbe78 Praktikant
25. november 2009 - 09:13 #2
Jeg skal bruge kolonneoverskrifter.

Eks:
Sheets("Udskrift").Cells(i, 2).Value = so.Range("B7")= B7 henter fakturanummer og overskriften på "udskrift" skal være Faktura.
Alle overskrivter skal være i række 1 -

Giver det mening?

PFT :-)
Avatar billede tjacob Juniormester
25. november 2009 - 14:02 #3
OK. Nu bruger du jo allerede række 1, så jeg har rykket alle data en række nedad, så der er plads til overskrifterne i række 1.
Du skal selv indsætte de korrekte overskrifter i de nederste 7 linier i sub'en.

Sub ListArk()
    Dim i As Long, so As Object
    Sheets("Udskrift").Range("A:A").ClearContents
    i = 1
  For Each so In Sheets
    If so.Name <> "Udskrift" Then
        i = i + 1
        Sheets("Udskrift").Cells(i, 1).Value = so.Name
        Sheets("Udskrift").Cells(i, 2).Value = so.Range("B7")
        Sheets("Udskrift").Cells(i, 3).Value = so.Range("F3")
        Sheets("Udskrift").Cells(i, 4).Value = so.Range("F34")
        Sheets("Udskrift").Cells(i, 5).Value = so.Range("B41")
        Sheets("Udskrift").Cells(i, 6).Value = so.Range("H3")
        Sheets("Udskrift").Cells(i, 7).Value = so.Range("H2")
      End If
    Next
    Sheets("Udskrift").Cells(1, 1).Value = "Arknavn"    '< ret her
    Sheets("Udskrift").Cells(1, 2).Value = "B7 navn"    '< ret her
    Sheets("Udskrift").Cells(1, 3).Value = "F3 navn"    '< ret her
    Sheets("Udskrift").Cells(1, 4).Value = "F34 navn"   '< ret her
    Sheets("Udskrift").Cells(1, 5).Value = "B41 navn"   '< ret her
    Sheets("Udskrift").Cells(1, 6).Value = "H3 navn"    '< ret her
    Sheets("Udskrift").Cells(1, 7).Value = "H2 navn"    '< ret her
End Sub
Avatar billede mbe78 Praktikant
25. november 2009 - 16:22 #4
hmm den siger at der er en fejl..Hvad gør jeg mon forkert?

Sub ListArk()
    Dim i As Long, so As Object
    Sheets("Udskrift").Range("A:A").ClearContents
    i = 1
  For Each so In Sheets
    If so.Name <> "Udskrift" Then
        i = i + 1
        Sheets("Udskrift").Cells(i, 1).Value = so.Name
        Sheets("Udskrift").Cells(i, 2).Value = so.Range("B7")
        Sheets("Udskrift").Cells(i, 3).Value = so.Range("F3")
        Sheets("Udskrift").Cells(i, 4).Value = so.Range("F34")
        Sheets("Udskrift").Cells(i, 5).Value = so.Range("B41")
        Sheets("Udskrift").Cells(i, 6).Value = so.Range("H3")
        Sheets("Udskrift").Cells(i, 7).Value = so.Range("H2")
      End If
    Next
    Sheets("Udskrift").Cells(1, 1).Value = "Faktrua nr"
    Sheets("Udskrift").Cells(1, 2).Value = "Kunde"
    Sheets("Udskrift").Cells(1, 3).Value = "Fkt dato"
    Sheets("Udskrift").Cells(1, 4).Value = "Beløb"
    Sheets("Udskrift").Cells(1, 5).Value = "Betalings dato"
    Sheets("Udskrift").Cells(1, 6).Value = "Ydelse"
    Sheets("Udskrift").Cells(1, 7).Value = "Status"
End Sub
Avatar billede tjacob Juniormester
25. november 2009 - 16:49 #5
Kan du se hvad den melder fejl?
I hvilken linie?

Koden  fejler ingenting. Den kører fint hos mig, som du kan se her:
http://www.gratisupload.dk/download/36720/
Avatar billede mbe78 Praktikant
26. november 2009 - 10:32 #6
Jeg fandt fejlen, tak - så points er på vej til dig.

Jeg har et andet spørgsmål vedr flere ark i denne projektmappe. Vil du hjælpe mig med det? Eller skal jeg oprette et nyt spørgsmål?
Avatar billede tjacob Juniormester
26. november 2009 - 14:54 #7
Nej, bare spørg her.
Avatar billede mbe78 Praktikant
26. november 2009 - 15:08 #8
Tak :-)

Når jeg gerne vil lavet eks. en pivottabel eller på anden måde indsætte et ark, kommer det med på mit ark "udskrift" - hvordan mon jeg kan undgå det?

Og hvordan giver jeg dig dine points :-)
Avatar billede tjacob Juniormester
26. november 2009 - 15:23 #9
Du kan først give mig points når jeg har svaret. -Det gør jeg her.

Når du vil indsætte f.eks. en pivottabel, skal du stille dig på det ark hvor du vil indsætte den.
Når du vælger data til den behøver de jo ikke være fra samme ark.

Derudover kan du jo også bare flytte pivottabellen til et andet ark efter den er oprettet: Fanen Indstillinger i Pivottabelværktøjer > klik på Flyt pivottabel.
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

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Opdatering af SAPgrid værdi Af dane022 i Visual Basic 2 25/04/202414:26 25/04/202422:06
overskrive datasæt hvis det allerede eksistere Af overisen i Visual Basic 0 08/12/202320:00 -
Manuel rotering af billedfil i en formular, 90 - 180 - 270 - 360 grader Af stejuu i Visual Basic 2 04/12/202320:07 09/12/202310:49
Erstat http med faktisk billede Af crjensen i Visual Basic 0 09/10/202309:14 -
Filtrering af dato i Pivottabel driller Af TrinoJ. i Visual Basic 4 07/08/202310:40 10/08/202310:44
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 14:03 “Haster” Hjælp til 240hz og konsol monitor køb. Af nalacin i Skærme
I dag 13:38 Vise en popup overskrift når cursoren stryges henover en control Af per2edb i Access
I dag 09:01 ubuntu - er der nogen der har erfaring med dette? Af Uvanga i Linux
I går 17:16 Optimer MySql table med ASP Af poulmadsen i ASP
I går 09:27 Stegkode scanner med funktionsknap Af kulawig i Andet hardware
White papers
Flere white papers »


Premium
Teaser billede
Køber 25.000 Copilot-licenser af Microsoft i kæmpe-aftale - vil investere milliarder i AI
Læs mere »
"Når jeg engang ikke er her mere, så vil jeg gerne huskes som generøs lige som ham"
Det danske it-lovsystem skal moderniseres: Styrelse søger ene-leverandør til 10-årig kæmpe-kontrakt
7N fra København runder halvanden milliard kroner i omsætning: Beskæftiger nu 1.700 konsulenter
Se alle »
Computerworld
Teaser billede
Her er Danmarks fem bedste CIO’er lige nu: Se de fem nominerede til prisen som Årets CIO 2024
Læs mere »
På tur i BMW's mægtigste elbil: Sådan er livet ombord i en monumental million-ellert
Porno-giganterne Pornhub og XVideos skal indlevere materiale til EU
Test: Denne bærbar beviser, hvorfor man ikke skal handle laptop alene ud fra teknikbladet
Se alle »
CIO
Teaser billede
Nu kan mange flere opgradere deres gamle Windows 10-pc'er til Windows 11: Se om du kan opgradere
Læs mere »
Her er Danmarks fem bedste CIO’er lige nu: Se de fem nominerede til prisen som Årets CIO 2024
På denne dato er det slut med udbredte versioner af Office: Microsoft vil have dig over på de dyrere E3-licenser
Microsoft skruer op for CPU-krav til den næste version af Windows 11: Færre brugere kan nu opdatere
Se alle »
Job & Karriere
Teaser billede
NNIT flytter til det centrale København: Her er selskabets nye hovedkvarter
Læs mere »
Knap 40 procent af disse it-folk tjener tjener mindst 57.000 kroner om måneden
Medarbejderne fik udleveret badetøfler ved indflytningen: Kom med inden for i IBM Danmarks nye topmoderne hovedkontor
Så meget tjener dine kollegaer: Her er alle data fra Computerworlds store it-lønstatistik for 2024
Se alle »
White paper
Teaser billede
SASE: Træf det rette valg – første gang
Læs mere »
Sådan høster du forretningsfordelene ved Internet of Things
Nemmere overblik, styring og omkostningskontrol i dit multicloud-miljø
Guide: Sådan udvikler du en moderne netværksstrategi
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »