Saldo og trækningsret
Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=4952
Udskrevet den: 08.Maj.2024 kl. 21:20
Emne: Saldo og trækningsret
Besked fra: Soeren50
Emne: Saldo og trækningsret
Posteringsdato: 03.Jul.2023 kl. 08:52
|
uploads/1492/Bogføring.xlsm" rel="nofollow - - uploads/1492/Bogføring.xlsm
Jeg har lidt problemer med kolonne K den skriver #VÆRDI!. Er det i MODULE2 som er dette, at jeg skal have ændret noget?: Funktion Saldo(T1 Som heltal, t2 Som heltal, t3 Som heltal) Som heltal Saldo = t2 - T1 + t3 Afslut funktion Public Function FindSum(Kriterie1 As Range, Kriterie2 As Range) Dim Find1 Som Variant, Find2 Som Variant Dim data som variant, i som heltal, J som heltal, M som lang, RW så lang RW = Range("K30000").End(xlUp).Række Find1 = Kriterie1 Find2 = Kriterie2 Data = Range("K2:P" & RW) For M = 1 Til UBound(Data, 1) For i = 1 Til UBound(Find1, 2) Hvis ikke er tom(Find1(1, i)) Så Hvis Find1(1, i) = Data(M, 1) Så Data(M, 1) = "+" Afslut for Afslut Hvis Afslut Hvis Næste For J = 1 Til UBound(Find2, 2) Hvis ikke er tom(Find2(1, J)) Så Hvis UCase(Find2(1, J)) = UCase(Data(M, 5)) Data(M, 5) = "+" Afslut for Afslut Hvis Afslut Hvis Næste Hvis Data(M, 1) = "+" Og Data(M, 5) = "+" Så FindSum = FindSum + Data(M, 6) Næste Afslut funktion ------------- Med venlig hilsen Søren Hansen |
Svar:
Besked fra: Bjarnehansen
Posteringsdato: 03.Jul.2023 kl. 09:06
|
=HVIS(H8<>"";SUM($K$5+H8);"") ret din formel til dette i k8 kolonnen og træk ned ------------- Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK |
Besked fra: H_sønderskov
Posteringsdato: 03.Jul.2023 kl. 13:59
|
Hej Kan ikke se der er nogen steder der kalder module2, du åbner userform1 i module1. om der er fejl i module2 kan jeg ikke se, men kan måske hjælpe hvis du beskriver lidt hvad du vil hav det til. VH
 |
Besked fra: Soeren50
Posteringsdato: 07.Jul.2023 kl. 22:46
|
Hvad skal jeg ændre for at få formularen til at skrive tal værdier og ikke tekst? uploads/1492/Bogføring.xlsm" rel="nofollow - uploads/1492/Bogføring.xlsm ------------- Med venlig hilsen Søren Hansen |
Besked fra: Bjarnehansen
Posteringsdato: 08.Jul.2023 kl. 09:35
|
uploads/397/Bogføring_bj.xlsm" rel="nofollow - uploads/397/Bogføring_bj.xlsm denne lader cellen være tom hvis der ikke står noget i H kolonnen ------------- Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK |
Besked fra: Bjarnehansen
Posteringsdato: 08.Jul.2023 kl. 09:38
|
=HVIS.FEJL(SUM($K$5+H13);"") du kan også bruge denne ------------- Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK |
Besked fra: Soeren50
Posteringsdato: 09.Jul.2023 kl. 21:43
|
Det er i Userform1 at jeg har en udfordring. I de felter der skal stå tal bliver det formateret som tekst, hvilket betyder at saldoen i kolonnerne L6 til AC 6 ikke kan lægges sammen. Er der noget i VBA som jeg skal have ændret? Kolonne H har jeg fået løst. ------------- Med venlig hilsen Søren Hansen |
Besked fra: Bjarnehansen
Posteringsdato: 10.Jul.2023 kl. 07:39
|
uploads/397/Bogføring_bj_2.xlsm" rel="nofollow - uploads/397/Bogføring_bj_2.xlsm prøv at sende et ark med fejl da jeg ikke kan få den til at lave fejl i det vedhæftede ark
------------- Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK |
Besked fra: Bjarnehansen
Posteringsdato: 10.Jul.2023 kl. 07:44
|
har lige fundet ud af at det er noget med formateringen hvis du skriver et beløb med øre ind feks. 256,75 laver den fejl ------------- Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK |
Besked fra: Bjarnehansen
Posteringsdato: 10.Jul.2023 kl. 07:46
|
prøv at taste beløbet ind med . istedet for med , ------------- Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK |
Besked fra: H_sønderskov
Posteringsdato: 02.Aug.2023 kl. 21:40
|
uploads/2975/Bogføring_1.xlsm" rel="nofollow - uploads/2975/Bogføring_1.xlsm
Hej Jeg har været på ferie, men jeg har lavet lidt værktøjer til dig, du kan ændre Dato ved at holde shift og delete, tekst sletter sig selv ved enter. VH
 |