• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Formules absoluut kopieren zonder dollartekens te gebruiken?

Status
Niet open voor verdere reacties.

Wout-er5

Gebruiker
Lid geworden
2 mei 2007
Berichten
9
Goedemorgen,

Ik heb een mooie formule gemaakt, die heel handig met de automatische celverwijzingsfunctie van Excel aangepast werd naar gelang ik hem hergebruikte in meerdere rijen.

So far, so good. Nou heb ik een heel blok aan gegevens met dezelfde formule, die omdat ik wilde dat excel de variabelen automatisch meewijzigde geen dollartekens bevat om de variabelen vast te zetten. Maar nou moet ik zo'n heel blok op een aantal plaatsen hergebruiken, waarbij de formules naar precies dezelfde rij en kolom moeten verwijzen als voorheen, maar dan naar een ander tabblad.

Mijn plan was: ik kopieer de formules 1 op 1 naar een nieuwe plek, en dan zoek en vervang ik de verwijzingen naar het juiste werkblad. Nou zit er schijnbaar geen functie in excel om cellen te kopieren zonder ze te wijzigen, zonder dat ik handmatig alle formules bij langs moet gaan en overal dollartekens tussen moet zetten. Ik ben bekend met de F4 knop die 'automatisch' dollartekens plaatst, maar dan moet ik alsnog elke cel afzonderlijk bij langs en dan het juiste stukje formule selecteren voordat ik F4 kan gebruiken.

Na een aantal uren knoeien en zoeken op het wereldwijde web ben ik er nog niet uitgekomen. Ik gebruik Excel 2003. Iemand ideeën?

Het gaat onder andere om de volgende formule:
Code:
=HORIZ.ZOEKEN(VERT.ZOEKEN(Scores!$N$2;Vertaaltabellen!$A$2:$B$13;2;ONWAAR);Incidentbeheer!D31:O32;2;ONWAAR)
 
Gebruik volgende code:

Code:
Sub Absoluut() 
  Dim c As Range 
  For Each c In Selection 
    c.Formula = Application.ConvertFormula(c.Formula, xlA1, xlA1, xlAbsolute) 
  Next 
End Sub

Selecteer het bereik met de te copiëren formules en draai de macro en al de verwijzingen zijn absoluut.

Cobbe
 
Gebruik volgende code:

Code:
Sub Absoluut() 
  Dim c As Range 
  For Each c In Selection 
    c.Formula = Application.ConvertFormula(c.Formula, xlA1, xlA1, xlAbsolute) 
  Next 
End Sub

Selecteer het bereik met de te copiëren formules en draai de macro en al de verwijzingen zijn absoluut.

Cobbe

Hoi Cobbe,

Bedankt! Dat was een goeie truc. Alhoewel ik me er over verbaas dat er niet een 'plakken speciaal' optie is voor dit soort geintjes wekte dit prima.

Moet me toch maar eens wat meer gaan verdiepen in macro's... ben er niet zo in thuis.

Wout
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan