Bedragen automatisch verhogen

[tonp60]

Hallo

Ik heb een bestand met meerdere tabbladen. In deze tabbladen staan in diverse cellen bedragen vermeld. Dit zijn geen vaste cellen, bijv. op blad 1 staan de bedragen in A3, G5 en L76.
Op blad 2 staan ze in F55, H43 en Q98.
Kan ik op een makkelijke manier de willekeurige bedragen op de diverse tabbladen verhogen met bijv. 5%? Kan dit met een basis functie of is dit iets voor VBA?
Ik ben benieuwd naar jullie reactie.

Ton

 

[VenA]

Ik zie geen voorbeeldbestand. Er zijn diverse mogelijkheden copy pastespecial multiply is er 1 van.

 

[tonp60]

Sorry. Ik heb een voorbeeldbestand bijgevoegd.

 

[VenA]

Ik denk niet dat dit ook maar in iets lijkt op het echte bestand. Maar goed.

Sub VenA()
  For Each sh In Sheets
    For Each cl In sh.UsedRange.SpecialCells(2, 1)
      cl.Value = cl.Value * 1.05
    Next cl
  Next sh
End Sub

 

[tonp60]

Dat klopt, maar ik begreep dat dit ook niet mocht.
Het script doet wel precies wat ik bedoel.
Bedankt voor de oplossing.

 

[snb]

@tonp60

Dat begrijp je helemaal verkeerd.
Het bestand moet nl. zo goed mogelijk lijken op het bestand waarin je werkt, met uitzondering van persoonsgebonden (privé) gegevens.
Als er geen persoonsgebonden gegevens in het bestand staan kun je dat ook gewoon plaatsen.

 

[tonp60]

Oké