Hoe tabblad verwijzing automatisch laten doorkopieren???!!!

[Diederick002]

Beste excel fanaten,

Ik ben op zoek hoe ik onderstaande formule kan kopieren naar een ander tabblad...
Even om duidelijker te zijn, in mijn bestand zitten 55 tabbladen en ik wil deze formule overal in dezelfde cel van het desbetreffende tabblad zetten maar ik wil dat hij verwijst naar het tabblad zelf waarin ik de formule kopieer.
De tabbladen zijn gewoon genaamd op nummer van 3 to 55.

In tabblad 3 ziet de formule er zo uit.

=ALS('3'!C3=SCORE!$G$33,SCORE!$B$33,ALS('3'!C3<=SCORE!$G$34,SCORE!$B$34,ALS('3'!C3<=SCORE!$G$35,SCORE!$B$35,ALS('3'!C3<=SCORE!$G$36,SCORE!$B$36,ALS('3'!C3<=SCORE!$G$37,SCORE!$B$37,ALS('3'!C3<=SCORE!$G$38,SCORE!$B$38,ALS('3'!C3<=SCORE!$G$39,SCORE!$B$39,)))))))

In tabblad 4 moet het er dan zo uit zien:

=ALS('4'!C3=SCORE!$G$33,SCORE!$B$33,ALS('4'!C3<=SCORE!$G$34,SCORE!$B$34,ALS('4'!C3<=SCORE!$G$35,SCORE!$B$35,ALS('4'!C3<=SCORE!$G$36,SCORE!$B$36,ALS('4'!C3<=SCORE!$G$37,SCORE!$B$37,ALS('4'!C3<=SCORE!$G$38,SCORE!$B$38,ALS('4'!C3<=SCORE!$G$39,SCORE!$B$39,)))))))

Je ziet dat enkel de tabblad verwijzing is veranderd. (van tabblad 3 naar 4)


Aangezien ik met 55+ tabbladen zit en ook nog eens 12 cellen per tabblad waarin een andere formule staat is alles manueel aanpassen niet echt een optie.
Met kopieren of met plakken speciaal kan ik de formules kopieren maar moet ik daarna de tabblad benaming gaan aanpassen voor elke cel.....
Hoe kan ik dit doorkopieren zodat hij automatisch de verwijzing naar het tabblad veranderd?



Alvast bedankt voor jullie input.

 

[Timshel]

Als de formule verwijst naar cellen op hetzelfde werkblad hoef je toch geen werkbladverwijzing te maken?
Die formule ziet eruit of hij een stuk eenvoudiger kan. Als je een duidelijk voorbeeld plaatst weten helpers er wel raad mee.
Maar goed. Probeer het zo eens:

Sub tsh()
    Dim Sh
    Dim Cl As Range

    With Sheets("3")
        For Each Sh In Sheets
            If Not Sh.Name = "Sheet1" Then
                For Each Cl In .UsedRange
                    If Cl.HasFormula Then Sh.Range(Cl.Address).Formula = Replace(Cl.Formula, "'" & .Name & "'!", "'" & Sh.Name & "'!")
                Next
            End If
        Next
    End With
End Sub

 

[plongske]

Zoals Timshel reeds aangaf kan de formule waarschijnlijk een stuk eenvoudiger.
Ik vermoed dat je gewoon een waarde wilt opzoeken uit een ander Tabblad.
Misschien kan het zo

=INDEX(SCORE!$B$33:$B$39;VERGELIJKEN(C3;SCORE!$G$33:$G$39;0);1)

Anders plaats even een voorbeeld bestandje met wat je wenst te bereiken.

 

[Diederick002]

Aangezien ik het bestand niet kan uploaden via de site heb ik het via filedropper gedaan.
File is te groot en er zitte macro's in. Ik hoop dat dit ok is? Mijn excuses voor mocht dit niet mogen.

http://www.filedropper.com/missingrapportcoaching2016updatedjuni2016_1


In de tabbladen VIR, CRR, DKV en VAN SCAN word manueel data ingevuld. Het is data van vergeten rapporten van werknemers van het hele jaar.
Op de tabbladen 3 tot en met 55 word deze data weergegeven in een overzicht per werknemer. 1 tabblad per werknemer.
Elk van deze tabbladen is dus uniek voor enkele werknemer. Ze krijgen dit overzicht elke maand.

Voor alle onderwerpen kregen ze tot nu toe een opmerking toegevoegd op hun jaarlijks totaal. Deze opmerking was terug te vinden de score tab.
Nu heb ik ipv van 4 verschillende opmerkingen er 7 van gemaakt + ik wil dat deze opmerkingen per maand worden toegevoegd op de verschillende tabbladen.
In tabblad 3, 4 en 5 heb ik het al manueel goed gezet voor het onderwerp VIR. Zo kan je al eens kijken. Ik moet deze nu doorkopieren voor all resterende tabbladen en voor alle 4 onderwerpen op het tabblad.

Als ik de formules op tabblad 5 (L6 tot L17) kopieer naar tabblad 6 (L6 tot L17) kopieert hij letterlijk de formule. Maar ik wil dat ik dit kan doorkopieren dat hij de verwijzing zet naar tabblad 6 ipv 5.

PS: Ik ben geen macro specialist dus ik weet niet goed hoe ik die code kan inserten in mijn file. Ik kan just met developer er 1tje opnemen.
De formule met index werkt niet bij mij.

Alvast bedankt voor jullie input.

 

[VenA]

Selecteer de tabjes 3 t/m 55. Zet de volgende formule (met dank aan plongske) in tab 3 L6. Sleep de formule naar beneden. Hef de selectie van de tabje weer op. De formule staat nu in alle 55 tabjes.

=INDEX(SCORE!$B$33:$B$39;VERGELIJKEN(VERSCHUIVING($C$3;;RIJ()-6);SCORE!$G$33:$G$39;0);1)

 

[Ginger]

Ik was er in 2 minuten mee klaar...

1) selecteer sheet 3 (met de naam 3 dus)
2) kopieer die bladverwijzing uit de eerste formule (was geloof ik '3!' ofzo)
3) selecteer het bereik met de formules L6:L17
4) Druk de toetscombinatie Ctrl+h (zoek en vervang
5) plak je copie uit het geheugen (dat is dus die bladverwijzing) in het zoekvak. Laat het vervangvak leeg
6) klik op OK (al je bladverwijzingen zijn nu uit de formules verwijderd)
7) Hou de selectie op sheet "3" en spring dmv het >| navigatieknopje helemaal naar de laatste sheet in je workbook. Nu zie je namelijk sheet "55" staan. Druk Shift in en klik dan op de TAB van sheet "55". Nu staan alle nummer sheets in Group mode
8) Spring naar links dmv de |< navigatieknop en klik op sheet "3"
9) Ga op cel K6 staan en druk op F2 (dan kom je in de Edit mode van de cel) en druk dan gelijk op enter
10) Je staat nu in cel K7, herhaal hier de F2 en Enter. doorloop dit proces totdat je alle maandcellen hebt gehad
11) Ga in cel L6 staan en herhaal hier ook weer dat hele F2 en Enter proces totdat je alle formules hebt gehad
12) Selecteer het bereik K6:K17 en rechtsklik de selectie om het popupscherm te verkrijgen. Kies hierin de tab "borders" (randen ?) en klik in het voorbeeldvenstertje met de muis op elk lijntje zodat deze van grijs in zwart gaat en sluit af met OK
13) klik op 1 van de sheets rechts van sheet "3" om de sheets uit de group mode te halen.
14) alle sheets zijn nu voorzien van je opmaak, tekst en formules.

Succes ermee.

 

[Diederick002]

inderdaad 2 min !!
Dank je wel!!!!

Top bedankt!!!

 

[Ginger]

Graag gedaan. Zet je nog wel ff je vraag op opgelost als deze dat ook werkelijk voor je is?