Probleem met Fout melding 1004

[RobBlok]

@ VenA
Volgens mij is dit een supergeheime macro waar zelfs de FBI,CIA,NSA,Nederlandse en Belgische staatsveiligheid niets mogen vanaf weten.
@ RobBlok
Maak een representatief dummybestand en post als xlsb, anders heb ik het idee dat deze vlieger

dit keer niet gaat opgaan.

Het probleem is opgelost, alsnog bedankt

 

[puppie]

En ik kan de helpers mededelen dat er een mooie donatie is gedaan aan Helpmij.nl
Waarvoor dank aan de vraagsteller maar zekers ook aan de helpers.
Dit zien we niet vaak bij Helpmij.nl

 

[HSV]

Bedankt voor je donatie aan Helpmij.nl Rob.
Zo houd ik er tenminste geen vieze nasmaak aan over.

 

[VenA]

Beste Rob,

Volgens mij heb ik onbedoeld wel wat ter weeg gebracht met een vraag die ik vaak stel.
Als ik geen voorbeeldbestand zie en alleen een uitsnede van de code dan kan ik daar soms wat mee maar bijzonder vaak ook niets. Als ik jouw code al had willen simuleren krijg ik natuurlijk foutmeldingen.

Je kan je code ook opdelen in stukjes code. Als je dit in een voorbeeldbestandje had gedaan met wat gegevens erin dan is het probleem van de gehele code toch ook weg?

Sub VenA()
Sheets("Clusterlijnen").Select
        LastRow = ActiveSheet.UsedRange.Rows.Count
        BeginTotaal = LastRowTijdwens + 1
        EindTotaal = LastRowTijdwens + 11
        LastRow = ActiveSheet.UsedRange.Rows.Count
        RowTotaalInzet = LastRow - 9
        RowsAantallen = LastRow - 3
        LastRowDocenten = LastRow - 10
        strFormulaSom = "=SUM(R[-" & LastRowDocenten & "]C:R[-7]C)"
        Sheets("Clusterlijnen").Select
        Sheets("Clusterlijnen").Range("D" & RowTotaalInzet).Select
        ActiveCell.FormulaR1C1 = strFormulaSom
        Sheets("Clusterlijnen").Select
        Sheets("Clusterlijnen").Range("C" & RowsAantallen).Select
        strFormuleTotaal = "=COUNTA(R[-" & LastRowDocenten & "]C[-2]:R[-7]C[-2])"
        ActiveCell.FormulaR1C1 = strFormuleTotaal
        Application.CutCopyMode = False
        strFormuleFilter = "=SUBTOTAL(103,RC[-" & LastRowDocenten & "]C[-1]:R[-7]C[-1])"
        Sheets("Clusterlijnen").Select
        Sheets("Clusterlijnen").Range("B" & RowsAantallen).Select
        Sheets("Clusterlijnen").Range("B" & RowsAantallen) = strFormuleFilter
End Sub

Voorbeeldbestandje erbij en klaar. Dus er is niets spannends aan. En als je dit gedaan had was het ongetwijfeld gereduceerd tot een paar regels wel werkende code.

 

[snb]

En dan was er vast wel iemand bereid geweest die jou had voorgesteld om jouw code volledig te vervangen door:

Sub M_snb()
   BeginTotaal = LastRowTijdwens + 1
   EindTotaal = LastRowTijdwens + 11
   
   With Sheets("Clusterlijnen").Cells(Rows.Count, 1).End(xlUp)
        .Offset(-9, 3) = "=SUM(R[-" & .Row - 10 & "]C:R[-7]C)"
        .Offset(-3, 1).Resize(, 2) = Array("=SUBTOTAL(103,RC[-" & .Row - 10 & "]C[-1]:R[-7]C[-1])", "=COUNTA(R[-" & .Row - 10 & "]C[-2]:R[-7]C[-2])")
    End With
End Sub

 

[mumzel]

binnengekomen bij beheer:

Beste Harry,

Bedankt voor deze mededeling en zo houd het in mijn ogen onterechte gezeur op.
Zodra ik werkelijk iets bruikbaars heb dan ga ik eens kijken hoe en waar ik het kan wegzetten en dan geeft dat wellicht een betere kaspositie.

Toch zou ik ook graag evt. personen die een goed antwoord op een hulpvraag hebben ook willen doteren, in elk geval persoonlijker bedanken dan via het forum.

Ik zal zelf altijd vraagsteller blijven totdat ik hiermee klaar ben (eind van de herfst, in oktober heb ik een gesprek met een geïnteresseerde) want daarover heb ik een principe afspraak

--
met vriendelijke groet

Rob Blok