Søg
Avatar billede petzel Novice
18. august 2008 - 19:37 Der er 7 kommentarer og
1 løsning

Makro til Excel.

Jeg har uden held forsøgt at skabe en makro til et regneark.

Jeg ønsker følgende funktion:

Talværdien i celle A1 skal lægges til celle B1 Når makroen aktiveres, og kun når den aktiveres!
Når summeringen er afsluttet skal talværdien i celle A1 slettes.

Næste gang der er en op/ned justering skal den skrives i A1 og ved aktivering af Makroen skal værdien summeres op i B1 hvorefter A1 igen slettes. Herefter kan historien gentage sig. Hvis der ikke er indsat et tal i A1 skal værdien i B1 forblive uændret.
Jeg skal bruge makroen på mange rækker i samme omgang, men det er vel bare se spørgsmål om skrive makroen flere gange med ændrert celler?
Håber at hjælpen er på vej!!
Avatar billede Flemming Vadet - Smart Office DK Professor
18. august 2008 - 20:36 #1
Sub TestDims()
    If IsNumeric(Range("A1").Value) Then
        Range("B1").Value = Range("B1").Value + Range("A1").Value
        Range("A1").Value = ""
    End If
End Sub
Avatar billede Flemming Vadet - Smart Office DK Professor
18. august 2008 - 20:37 #2
De der "mange rækker" - ligger de lige efter hinanden - f.eks. fra række 1 til 100??

Kan man måske finde ud af, hvor mange rækker der er, ved at finde den nederste celle i f.eks. B kolonnen, som indeholder data?
Avatar billede Flemming Vadet - Smart Office DK Professor
18. august 2008 - 20:41 #3
Her en en dims, som finder rækkenummeret for den nederste celle i kolonne B, som indeholder data, og så kører den fra række 1 til det fundne rækkenummer, og laver den der op/ned justering...

Sub TestDimsMulti()
    Dim lRow As Long
    For lRow = 1 To Range("B65000").End(xlUp).Row
        If IsNumeric(Cells(lRow, 1).Value) Then
            Cells(lRow, 2).Value = Cells(lRow, 2).Value + Cells(lRow, 1).Value
            Cells(lRow, 1).Value = ""
        End If
    Next lRow
End Sub
Avatar billede petzel Novice
19. august 2008 - 10:58 #4
Kanon mange tak
Avatar billede Flemming Vadet - Smart Office DK Professor
19. august 2008 - 22:14 #5
Super - så bare accepter svaret og den er lukket :-)
Avatar billede petzel Novice
26. august 2008 - 19:41 #6
Jeg har accepteret, men jeg tror ikke det virker?? Har du fået "betalingen"?? Jeg har trykket på >accepter< gentagende gange??
Avatar billede petzel Novice
26. august 2008 - 19:42 #7
Nu fandt jeg vist ud af det?? Lykkes det??
Avatar billede Flemming Vadet - Smart Office DK Professor
26. august 2008 - 20:13 #8
Smiler - fint
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
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Samle data fra flere kolonner i 1 Af FinnLauridsen i Excel 5 17/04/202616:11 27/04/202617:58
Træk data fra ny lokation ved måneds skift Af Hezo i Excel 6 13/04/202614:32 15/04/202611:04
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel 2 31/03/202610:22 31/03/202611:47
Stempel ur start og stop Af lurup i Excel 3 23/03/202613:24 07/05/202614:01
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel 4 08/03/202611:56 08/03/202613:57
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 går 21:35 Lidt simpel (håber jeg) Photoshop hjælp Af fcs i Billedbehandling
16/0516:04 Canon printer vil ikke udskrive farver Af mort1 i Printere
16/0514:50 Hvilket fabrikat af Mesh systemer virker? Af fkj i Wifi
15/0513:45 AJAX kode -javascript Af Asky i Programmeringsværktøjer
15/0511:50 Vælg indstilling - blå skærm med med flere muligheder for fejlretning Af Uvanga i Windows
White papers
Flere white papers »