Data uit 1 tabblad verwijzen naar cellen in andere tabbladen

[Joseph8282]

Beste allen, ik ben nieuw hier, lees regelmatig op dit forum.

Ik heb een groot werkblad met 100 tabbladen.
Een tabblad heet "Input", hier wordt data ingevoerd wat in alle tabbladen naar voren dient te komen. De overige tabbladen zijn genummerd van 1 tot 98 ("1" "2" etc.)

De waarde in tabblad Input cel L4 dient in tabblad 1 in cel C47 te komen.
De waarde in tabblad Input cel L5 dient in tabblad 2 in cel C47 te komen.
De waarde in tabblad Input cel L6 dient in tabblad 3 in cel C47 te komen.
De waarde in tabblad Input cel L7 dient in tabblad 4 in cel C47 te komen. En zo verder.

Is er een manier om dit middels groeperen in te passen?
Het probleem is dat hoewel de cellen in de tabbladen gelijk blijven de cellen in het Input blad steeds één naar beneden dienen te gaan.
Omdat het erg veel verwijzingen worden is handmatig eigenlijk geen optie.

Alvast dank!

 

[SjonR]

je zou deze kunnen draaien:

Sub SjonR()
Dim blad As String
For i = 1 To 98
    blad = i
    Sheets(blad).Cells(47, 3) = Sheets("Input").Cells(i + 3, 12)
Next
End Sub

 

[Joseph8282]

Dag SjonR,

Deze werkt! Super dank je wel.

Stel dat ik de kolommen in blad input op de juiste volgorde zet als de rijen van de werkbladen, is het dan mogelijk meerdere rijen ineens te pakken?
Bijvoorbeeld kolommen 2-11 -> cellen C38-C47

Of de macro aanpassen zodat dit per kolom gebeurt?

 

[SjonR]

zoiets dan?

Sub SjonR()
Dim blad As String
For i = 1 To 98
    blad = i
    Sheets(blad).Cells(38, 3).Resize(10, 1) = Application.Transpose(Sheets("Input").Cells(i + 3, 2).Resize(, 10))
Next
End Sub

 

[HSV]

Zonder blad te declareren als string.

sheets(çstr(i)).cells(

 

[Joseph8282]

@SjonR

Werkt!!