Lægge sammen fra flere ark, men.

Her er en function der tæller i alle ark, også den med formlen i.

Kaldes med =TælSammen("b")




Public Function TælSammen(Bogstav As String) As Integer
Bogstav = "b"
Dim Værdi As Integer
Værdi = 0
  For Each ws In Worksheets
 
    For Each C In Sheets(ws.Name).Range("B1:B30").Cells
    If Right(C, 1) = Bogstav Then
Værdi = Værdi + Val(Left(C, Len(C) - 1))
End If
  Next C
    Next ws
   
TælSammen = Værdi
End Function

fjern lige linien

Bogstav = "b"

denne opdaterer automatisk ved ændringer i alle ark.

Public Function TælSammen(Bogstav As String) As Integer
Dim Værdi As Integer
Application.Volatile
Værdi = 0
  For Each ws In Worksheets
 
    For Each C In Sheets(ws.Name).Range("B1:B30").Cells
    If Right(C, 1) = Bogstav Then
Værdi = Værdi + Val(Left(C, Len(C) - 1))
End If
  Next C
    Next ws
   
TælSammen = Værdi
End Function

Ja ok, men jeg har også nogle celler der står fra, 1b og op til 4b eller 1c og op til 4c alle a og b og c skal lægges sammen hverfor sig, og sumen skal ende i hver sin celle på et ark der heder total. øø kan det lade sig gøre.
håber jeg forklare mig godt nok ;-)
mvh H Cichosz

Public Function TælSammen(Bogstav As String) As Integer
Dim Værdi As Integer
Application.Volatile
Værdi = 0
  For Each ws In Worksheets
  If ws.name ="Total" then goto HopOver
    For Each C In Sheets(ws.Name).Range("B1:B30").Cells
    If Right(C, 1) = Bogstav Then
Værdi = Værdi + Val(Left(C, Len(C) - 1))
End If
  Next C
HopOver:
    Next ws
   
TælSammen = Værdi
End Function

I arket Total skriver du

A          B
a          =TælSammen(A1)
b          =TælSammen(A2)
b          =TælSammen(A3)

o.s.v.

A          B
a          =TælSammen(A1)
b          =TælSammen(A2)
c          =TælSammen(A3)

o.s.v.

Hej
Jeg forstår det så langt at jeg skal indsæte funktionen, det jeg ikke helt er med på er.
  I arket Total skriver du

A          B
a          =TælSammen(A1)
b          =TælSammen(A2)
b          =TælSammen(A3)

mvh H Cichosz

Du skal først sætte koden i et modul.

Højreklik på en arkfane, vælg vis programkode.

nu er du i VBA editoren

Oppe på menulinien vælger du Insert > Module

nu klister du koden ind der

Ja det er jeg sådan set med på, jeg troer jeg forklare mig lidt forkert, men jeg har denne her i en af celler på arket total =SUM('Uge 1:Uge 53'!B4) den tæller alle tallene sammen, men somme tider har jeg brug for at putte en bogstavs kode bag på som f.eks 1a eller 2b dem springer den over, den tæller kun dem hvor der kun er tal, jeg ville gerne at jeg kunne tælle hvor mange der er a bagved i en celle og hvormange der er b bagved i en celler og hvormange der kun er tal.
tallene jeg bruger er fra 1-4 bogstaverne der kan komme bagved er a eller b eller ingen.
mvh H Cichosz

det er også det den gør.

f.eks.

en celle med 1b og en anden med 4b
en celle med 3a og en anden med 5a
en celle med 3 og en anden med 4c

A          B
a          =TælSammen(A1)  så vil den retunere 8
b          =TælSammen(A2)  så vil den retunere 5
c          =TælSammen(A3)  så vil den retunere 4

Ja det er rigtig, men f.eks B4 på arkene Uge 1 til Uge 52 der kan der nogle uger stå 1 eller 2,3,4 eller 1a og 2a,3a,4,a eller 1b ...... osv. så er det at jeg på total gerne vil have lagt alle B4 cellerne  fra alle uger lagt sammen men soteret i 3 celler alt efter om det er ren tal eller der er a eller b efter
eks. uge 1 står der i B4 2, uge 3 står der i B4 3B uge 52 stå der i B4 2B
så vil der på total side i første celle stå 2, cellen der tæller dem med A vil der stå 0 og cellen der tæller dem med B stå 5.
på arkene Uge 1 til Uge 52 bruger jeg Cellerne B4 til B30 på den måde
kan man lave det
mvh H Cichosz

Du vil altså have dem talt sammen rækkevis og ikke total på alle ark.

er det rigtig forstået

altså ark1 -ark52 sum B1 for diverse bogstaver

Public Function TælSammen(Bogstav As String, Hvilken_Celle As Range) As Integer
Dim Værdi As Integer, A As String
Application.Volatile
Værdi = 0
  For Each ws In Worksheets
If ws.name ="Total" then goto HopOver
  A = Sheets(ws.Name).Range(Hvilken_Celle.Address)
    If Right(A, 1) = Bogstav Then
Værdi = Værdi + Val(Left(A, Len(A) - 1))
End If
HopOver:
    Next ws
TælSammen = Værdi
End Function


=TælSammen("a";$B1)
=TælSammen("b";$B1)
=TælSammen("c";$B1)

Sæt disse formler I 3 celler bag ved hinanden, og træk dem 30 celler nedad

så skulle du have for alle 30 celler

Ja Tak Herligt, ja jeg ved det jeg forklarede mig ikke rigtig godt nok
men igen mange tak.
smid et svar du har fortjent point
mvh H Cichosz

et svar ;-))

tak for point

Hej
Det virker bare perfekt, men jeg er rent i det problem at jeg også sommetide skal bruge 2 bogstaver efter tallet, Eks. 1 eller 3tu, jeg er ikke så stærk i det her at jeg kan regne den ud, kan man det og hvordan, jeg er villig til at smide flere point, det er da klart ;-)
mvh H Cichosz

opret et nyt spørgsmål, så kikker jeg på det.