Dynamische Autosom (Keypress?)

[MEradus]

Hoi,

Ik ben bezig met een bestandje waar op verschillende plaatsen (variabel) autosommen moeten komen te staan.
Nou vroeg ik mij af of het mogelijk om de toetsten "Alt & de += toets" als code in te voeren.
Ik heb gezocht naar een code voor een variabele autosom maar die kon ik niet vinden, als je die hebt voor mij mag het natuurlijk ook

Alvast bedankt voor het meedenken!!

 

[VenA]

Een uitleg bij de oplossing is niet verplicht maar wel van harte welkom.

Een voorbeeldje is niet verplicht, maar wel van harte welkom:d

 

[HSV]

Een voorbeeld is in dit geval echt niet nodig toch (twee getallen onder elkaar plaatsen en proberen de autosom na te bootsen).


Probeer deze combinatie eens.

Application.CommandBars("Auto Sum").FindControl(, 226).Execute
Application.SendKeys "~"

anders:

With ActiveCell
  .Formula = "=sum(" & Range(.Offset(-1), _
  .Offset(-1).End(xlUp)).Address(0, 0) & ")"
 End With

Of zonder formule in de cel.

With ActiveCell
 .Value = Application.Sum(Range(.Offset(-1), .Offset(-1).End(xlUp)))
End With

Nog een mogelijkheid:

Application.SendKeys "%=~"
Range(ActiveCell.Offset(-1), ActiveCell.Offset(-1).End(xlUp)).Select

 

[MEradus]

Hoi Harry,

Bedankt voor de codes, dit is inderdaad wat ik zocht.

Ga er mee bezig.

 

[MEradus]

Ik weet niet of ik nog kan reageren als ik de vraag al op opgelost heb staan, maar als ik nu ipv "UP" naar LEFT wil?
Ik heb al geprobeerd om xlUp te veranderen naar xlLeft, alleen dit werkt helaas niet.

 

[HSV]

Dan moet je ook van rijen naar kolommen.

 .Value = Application.Sum(Range(.Offset(, -1), .Offset(, -1).End(xltoleft)))

 

[MEradus]

Ah...... Was de "to" vergeten!! Bedankt!!!

Goed weekend!

 

[HSV]

Dit stukje is het omgedraaide van de vorige wat logischer is.

Application.Sum(Range(.Offset(, -1).End(xlToLeft), .Offset(, -1)))

Ook een goed weekend.

 

[VenA]

Wat is er dynamisch aan? Het is toch de 'autosum' maar dan vanaf een knop oid? Dynamisch is volgens mij dat het elke keer ergens anders kan staan, zoals ook in de OP en de titel staat.