Søg
Avatar billede Laugesen1 Mester
10. februar 2014 - 20:15 Der er 2 kommentarer og
1 løsning

Makro til en udregning, - betinget af værdien i en celle

Jeg har en del eksterne projektmapper om måneden, hvorfra jeg importerer data til et destinationsark. Kildearkene har altid samme opbygning, men der skal foretages nogle ændringer før jeg eksporterer data.
Til det formål er jeg ved at lave en makro der udfører nogle af handlingerne.

Der skal bl.a. fortages en udregning i området A2:K100, som jeg gerne vil fortage med makroen.

Eksempel:
Hvis værdien i B2 er større end 0 skal følgende udregning foretages:
D2+F2+K2+(K2*$F$1) - Resultatet skal vises i A2.
Hvis B2 er 0, skal A2 være tom.

Og tilsvarende hvis B3 er større end 0:
D3+F3+K3+(K3*$F$1) - Resultatet skal vises i A3

Udregningen skal foretages i hele området (99 rækker)

Er der nogen der har et bud på hvordan man laver sådan en makro ?

Laugesen
Avatar billede kabbak Professor
10. februar 2014 - 21:53 #1
Noget i denne stil
Den læser området ind i hukommelsen, laver udregninger og skriver kolonne A med udregnede værdier .
NB. Ikke testet

Public Sub Udregn()
Dim Data As Variant, UdData As Variant, Faktor As Double, I As Long
Data = Range("A2:K100")
UdData = Range("A2:A100")
Faktor = Range("K1")
' A  B  C  D  E  F  G  H  I  J  K
' 1  2  3  4  5  6  7  8  9  10 11
    For I = 1 To UBound(Data)
        If Data(I, 2) > 0 Then
            '                  D    +    F      +    K      +      (K      *  $F$1)
            UdData(I, 1) = Data(I, 4) + Data(I, 6) + Data(I, 11) + (Data(I, 11) * Faktor)
        Else
            UdData(I, 1) = ""
        End If
    Next
Range("A2:A100") = UdData
End Sub
Avatar billede Laugesen1 Mester
11. februar 2014 - 00:08 #2
Mange tak for dit input.

Makroen laver lige præcis den udregning som den skal. Resultatet kommer i kolonne A og udregningen blive kun udført hvis værdien i kolonne B er større end  0.

Super godt arbejde, - og endnu en gang mange tak for din hjælp.

Sender du et svar :)

Laugesen
Avatar billede kabbak Professor
11. februar 2014 - 07:02 #3
;-))
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 16:04 Canon printer vil ikke udskrive farver Af mort1 i Printere
I går 14: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
14/0523:24 Google sheets beregning udfra dato Af rickiegrayholm i Office & Kontorpakker
White papers
Flere white papers »