Som functie met variabele range

[broek76]

Goedemorgen,

ik heb een macro gemaakt die op Blad1 alle groepjes met waardes optelt en vervolgens naar kolom J plakt.
Vervolgens kijkt hij in B1 naar de waarde en plakt alles op Blad2 onder deze waarde.

Tot zover werkt het prima maar het gaat fout op het moment dat de groepjes met waardes groter of kleiner zijn.
Nu zijn het iedere keer 4 cellen maar het zouden er ook 10 kunnen zijn.

Heeft iemand hier een oplossing voor?

Bekijk bijlage autosom-copy-paste.xlsm

 

[MDN111]

Dag broek76 !

Zie bijlage.

Grtz,
MDN111.

 

[broek76]

Hoi MDN111,

eerste deel is helemaal anders zie ik, weer wat geleerd. Hartelijk dank.

Mvg Ron

 

[HSV]

Iets simpeler.

Sub hsv()
Dim arr, area As Range, Tb As Range
arr = Array()
With Sheets("blad1")
For Each area In .Columns(5).SpecialCells(2).Areas
 Set Tb = area
   ReDim Preserve arr(UBound(arr) + 1)
     arr(UBound(arr)) = Application.Sum(Tb)
    Next area
  Sheets("blad2").Cells(3, .Range("B1").Value).Resize(.Columns(5).SpecialCells(2).Areas.Count) = Application.Transpose(arr)
 End With
End Sub

 

[broek76]

HSV,
Ik ben nog maar een beginner met VBA en geloof je meteen dat deze code sneller/beter is.
Echter, die van MDN111 snapte ik meteen helemaal en deze zal ik eerst uit moeten pluizen.
Dat ga ik zeker doen, ik weet zeker dat ik er iets van leer, dus hartelijk dank daarvoor.
Wat voor jou simpeler is, is voor mij dus nog een beetje complex maar dat is mijn tekortkoming.

Nogmaals hartelijk dank allebei en een fijn weekend