Forfatter |
Emne Søg Emne funktioner
|
Soeren50
Bronze bruger
Medlem: 13.Aug.2015
Land: Danamrk
Status: Offline
Point: 80
|
Emne: Saldo og trækningsret Sendt: 03.Jul.2023 kl. 08:52 |
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
|
|
|
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5585
|
Sendt: 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
|
|
H_sønderskov
Sølv bruger
Medlem: 18.Okt.2022
Land: Danmark
Status: Offline
Point: 157
|
Sendt: 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
|
|
Soeren50
Bronze bruger
Medlem: 13.Aug.2015
Land: Danamrk
Status: Offline
Point: 80
|
Sendt: 07.Jul.2023 kl. 22:46 |
Hvad skal jeg ændre for at få formularen til at skrive tal værdier og ikke tekst?
|
Med venlig hilsen Søren Hansen
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5585
|
Sendt: 08.Jul.2023 kl. 09:35 |
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
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5585
|
Sendt: 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
|
|
Soeren50
Bronze bruger
Medlem: 13.Aug.2015
Land: Danamrk
Status: Offline
Point: 80
|
Sendt: 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
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5585
|
Sendt: 10.Jul.2023 kl. 07:39 |
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
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5585
|
Sendt: 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
Redigeret af Bjarnehansen - 10.Jul.2023 kl. 07:47
|
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
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5585
|
Sendt: 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
|
|
H_sønderskov
Sølv bruger
Medlem: 18.Okt.2022
Land: Danmark
Status: Offline
Point: 157
|
Sendt: 02.Aug.2023 kl. 21:40 |
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
|
|