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


Emne lukketFormater STORE BOGSTAVER til fed

 Besvar Besvar
Forfatter
2KJN Se dropdown
Forum Begynder
Forum Begynder


Medlem: 18.Maj.2017
Land: Danmark
Status: Offline
Point: 4
Direkte link til dette indlæg Emne: Formater STORE BOGSTAVER til fed
    Sendt: 18.Maj.2017 kl. 12:33
Hej,

Jeg har et regnskab i excel bestående af tre kolonner hvor alle sum konti er med store bogstaver.
 
Er der nogen der kan hjælpe med at lave en makro der kan formaterer alle celler med KUN store bogstaver til "fed"? Kolonne A = konto nr. 1010, Kolonne B = Tekst, Kolonne C = 1.000,00 (Beløb). 

Dvs. både kolonne A, B og C skal formateres til fed hvis ALLE bogstaver i kolonne C står med store bogstaver 

1010 Omsætning 1.000,00
1099 OMSÆTNING I ALT 1.000,00 (denne række skal være fed)

Dette skal gøres på alle rækker indtil der ikke er flere rækker med data.

På forhånd tak for hjælpen

Kim
Til top



Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5412
Direkte link til dette indlæg Sendt: 18.Maj.2017 kl. 14:19
Jeg går ud fra, at du mener kolonne B, med store bogstaver, og ikke C, som du skriver:
Sub FedeStoreBogstaver()

      Dim Række As Excel.Range
      For Each Række In ActiveSheet.UsedRange.Rows
            If Range("B" & Række.Row).Value = UCase$(Range("B" & Række.Row).Value) Then
                   Range("A" & Række.Row & ":C" & Række.Row).Font.Bold = True
            End If
      Next
      Set
Række = Nothing

End Sub

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.
Til top
2KJN Se dropdown
Forum Begynder
Forum Begynder


Medlem: 18.Maj.2017
Land: Danmark
Status: Offline
Point: 4
Direkte link til dette indlæg Sendt: 20.Maj.2017 kl. 16:17
Ja, det er korrekt og koden virker perfekt.

Jeg har dog lige et ekstra spørgsmål:

Er det muligt at lave en autosum i kolonne C på de rækker hvor tallene nu står med fed?

1010 Omsætning 1.000,00
1020        Omsætning 2                        200,00
1099 OMSÆTNING I ALT 1.200,00 (=Autosum)

Dette skal gøres på alle rækker til slut, der er ikke nogen tomme linjer ind i mellem.

Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5412
Direkte link til dette indlæg Sendt: 20.Maj.2017 kl. 16:46
Det kan man godt, men det er lidt risikabelt, at satse på, at alle SUM konti altid står alene med store bogstaver, og satse på, at alle drift og status konti altid står med ikke store bogstaver.

Hvad nu, hvis man har navngivet ATP-kontoen for, ja, ATP?
Dermed får denne drift konto alene store bogstaver, og vil blive opfattet som en SUM konto.

Eller, hvis man har kaldt konto for Arbejdsmarkedspension for 'AMP'?
Eller kaldt konto for omsætning i EU for 'OMS, EU'?
Eller kaldt konto for en bils drift efter bilens nummerplade, 'PP 12345'?
Eller, hvis man har en af de banker med ene af store bogstaver som navn: 'SEB 1234 - 123456789''?

Find selv på flere...

Et langt bedre alternativ vil være også, at udtrække konto type i kolonne D, og 'Sum Fra...' i kolonne E, og så benytte disse som angiver for, hvad der skal ske ud fra de enkelte konti.

Hvis man ikke ønsker, at se disse informationer, kan man blot skjule kolonnerne D og E, men makroerne vil alligevel kunne læse dem, og gøre tingene rigtigt.

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.
Til top
2KJN Se dropdown
Forum Begynder
Forum Begynder


Medlem: 18.Maj.2017
Land: Danmark
Status: Offline
Point: 4
Direkte link til dette indlæg Sendt: 22.Maj.2017 kl. 19:19
Hej Excelgaard,

Det er desværre ikke muligt at udtrække hvorfra Sumkontoen skal tælle fra.

Der er taget højde for ATP (Atp) osv.

Er det muligt at lave en autosum i kolonne C på de rækker hvor tallene nu står med fed?

1010 Omsætning 1.000,00
1020        Omsætning 2                        200,00
1099 OMSÆTNING I ALT 1.200,00 (=Autosum)

Dette skal gøres på alle rækker til slut, der er ikke nogen tomme linjer ind i mellem.

Mvh

Kim
Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5412
Direkte link til dette indlæg Sendt: 24.Maj.2017 kl. 10:49
Undskyld, at jeg først vender tilbage nu - lidt travlhed igen, igen...

Jo, det kan let lade sig gøre - men, hvordan styrer du to SUM konti lige efter hinanden???
1000   Omsætning
1995   OMSÆTNING I ALT
2000   Vareforbrug
2995   VAREFORBRUG I ALT
2999   DÆKNINGSBIDRAG

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.
Til top
2KJN Se dropdown
Forum Begynder
Forum Begynder


Medlem: 18.Maj.2017
Land: Danmark
Status: Offline
Point: 4
Direkte link til dette indlæg Sendt: 25.Maj.2017 kl. 17:23
Helt ok,
Medmindre at det er muligt at lave en kode hvor jeg selv kan indsætte konti hvorfra dækningsbidrager skal beregnes f.eks. IF 2999 = FED Then 1099 + 2099. Denne kode skal nok gentages på andre konti.
Resten af rækkerne med fed skal der bare beregnes en Sum.
Jeg håber at det er til at forstå.
Mvh Kim
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

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