Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketSaldo og trækningsret

 Besvar Besvar
Forfatter
Soeren50 Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 13.Aug.2015
Land: Danamrk
Status: Offline
Point: 80
Direkte link til dette indlæg 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
Til top



Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5585
Direkte link til dette indlæg 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
Til top
H_sønderskov Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 18.Okt.2022
Land: Danmark
Status: Offline
Point: 157
Direkte link til dette indlæg 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.
VHApprove
Til top
Soeren50 Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 13.Aug.2015
Land: Danamrk
Status: Offline
Point: 80
Direkte link til dette indlæg 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
Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5585
Direkte link til dette indlæg 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
Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5585
Direkte link til dette indlæg 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
Til top
Soeren50 Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 13.Aug.2015
Land: Danamrk
Status: Offline
Point: 80
Direkte link til dette indlæg 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
Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5585
Direkte link til dette indlæg 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
Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5585
Direkte link til dette indlæg 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
Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5585
Direkte link til dette indlæg 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
Til top
H_sønderskov Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 18.Okt.2022
Land: Danmark
Status: Offline
Point: 157
Direkte link til dette indlæg 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 Wink
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk