Waarden uit zin als gemiddelde optellen en automatisch updaten

[HSV]

Zie #19, niets meer.

 

[Instel]

Zou je de code in mijn testbestand kunnen toevoegen, ik snap niet zo goed wat jullie bedoelen. Moet ik mijn oude macro helemaal verwijderen en dan alleen de code uit #19 plaatsen? Geen Sub en End Sub etc?

 

[HSV]

Haal dit er voor weg.
.

Headerrowrange.offset

 

[Instel]

Dan krijg ik het volgende:

Sub Rechthoekafgerondehoeken1_Klikken()
    Dim v As Variant
    ActiveWorkbook.RefreshAll
    v = Blad4.ListObjects(1).DataBodyRange.Value
    With Blad5.ListObjects(1)
       [COLOR="#FF0000"] (.ListRows.Count + 1).Resize(UBound(v)).Value = v[/COLOR]
        .Range.EntireColumn.AutoFit
    End With
End Sub

 

[HSV]

Je kan toch lezen?
Haal die hele regel maar weg en plak die uit #19 er weer in.

 

[Instel]

Het werkt, bedankt!!!

 

[pixcel]

Mooi als het werkt. Maar door niet een volledig voorbeeldbestand te geven (met query's) geef je helpers niet de kans om met betere en eenvoudigere oplossingen te komen. Het is aan jou.

Het is overigens een interessante case!

 

[Instel]

Hoi Pixcel, mijn bestand is exact hetzelfde als #17. Enige wat bij mij anders is is dat de historie nu veel langer is!

 

[pixcel]

Je bestanden in dit draadje bevatten geen query's. Hebben ze niet te maken met dit project: https://www.helpmij.nl/forum/showthread.php/957922-Oude-data-met-webquery-opslaan-via-macro ?

 

[Instel]

Klopt inderdaad, ik dacht dat het handig was om mijn vragen apart te stellen. Had het misschien beter in een thread kunnen zetten achteraf. Still learning.