Zoeken in Loop met auto som

[MEradus]

Hallo allemaal!

Met dank aan @HSV heb ik onderstaande code gekregen voor een bastandje van mij.
Nu heb ik hem iets aangepast omdat ik graag wil dat hij na het zoeken een autosom invoert met een dynamische range.
Nu probeer ik het met "SendKeys" maar dit werkt niet helaas.

Wie zou mij hiermee kunnen/willen helpen?

Sub optellen2()
Dim c As Range
Set c = Cells.Find("Datum")
If Not c Is Nothing Then
Do
c.Resize().Offset(-2, 7).Application.SendKeys "%=~"
Set c = Cells.FindNext(c)
Loop While Not c Is Nothing
End If
End Sub

 

[snb]

Daartoe zou ik eerder bereid zijn geweest als je geen overbodige uitroeptekens in de titel had gezet.

 

[MEradus]

Sorry dat dit 'gehaast' of iets dergelijks overkomt.
Was niet de bedoeling.....

 

[MEradus]

Nog wel een aanvulling op mijn vraag.
Zou het mogelijk zijn dat hij een auto som berekend tot de cel daarboven met daarin "Excl Pauze"?
Zo pakt hij ook de lege cellen die hij anders niet mee neemt.

Alvast bedankt voor het kijken!

 

[snb]

Waar is je voorbeeldbestand ?

 

[MEradus]

Hier het bestand.
Het is de bedoeling dat op de plek waar nu "Autosom" staat de formulie hiervoor komt te staan.
Het "tot" punt is "Excl Pauze".

Bekijk bijlage Helpmij_vb_1.xlsx

 

[snb]

Als je in kolom H uit alle cellen waarin geen formules horen te staan de formules verwijdert, lijkt me dit voldoende

Sub M_snb()
    For Each ar In Blad1.Columns(8).SpecialCells(-4123).Areas
        ar.Cells(ar.Cells.Count).Offset(1) = Application.Sum(ar)
    Next
End Sub

 

[MEradus]

Hoi Snb,

Bedankt voor deze code!
Werkt inderdaad prima, als de rest van de cellen formule vrij zijn.
Ik stuit daardoor wel op een klein probleempje.

Ik laat namelijk autofill z'n werk doen helemaal tot de laatste regel, waardoor de rest van de cellen in H
niet leeg zijn. Ik krijg het niet voor elkaar om dit per naam te krijgen.
Zou je hier misschien ook voor mij naar willen kijken?
De vraag hiervoor staat ook in het forum.

In ieder geval nogmaals bedankt voor deze code!

 

[snb]

Sub M_snb()
    For Each ar In Blad1.Columns(7).SpecialCells(4).Areas
        ar.offset(,1).value=ar.value
    Next

    For Each ar In Blad1.Columns(8).SpecialCells(-4123).Areas
        ar.Cells(ar.Cells.Count).Offset(1) = Application.Sum(ar)
    Next
End Sub

 

[MEradus]

Sorry voor mijn late reactie, maar het werkt perfect.
Een kijken of ik het kan ontcijferen zodat ik het de volgende keer zelf kan!
In ieder geval bedankt!!! :thumb: