waarde van 1 kolom automatisch verdelen over meerdere sheets

[youngkim]

Ik ben een klantenkaart aan het ontwikkelen.
De naw gegevens staan centraal in 1 bestand.
Ik wil nu de gegevens via verticaal zoeken in een ander bestand kopieren.
Tot zover geen probleem. Nu wil ik echter voor elke relatie een seperate sheet hebben.

Inmiddels heb ik wel 1 bestand met daarin 250 sheets (klanten) met opmaak. De opmaak en inhoud zijn echter allemaal hetzelfde.
In cel F3 wil ik nu telkens een andere waarde. (deze waardes staan in een kolom in sheet 1) Dit wil ik natuurlijk niet handmatig hoeven te doen.

Hoe krijg ik telkens een andere waarde in cel F3 ???

Alvast bedankt.

 

[hazesoft]

Zoiets als =Blad1!A4 en daarna de formule doorvoeren?

 

[youngkim]

inderdaad. Alleen dan automatisch per sheet een andere cel
a4 dan a5 dan a6 enz.

 

[zapatr]

Als de waarden die in F3 moeten komen in het eerste blad in kolom A staan, beginnend in A2, dan kun je gebruiken:

Sub macro1()
Dim x as integer
'Deze macro is geschreven door Zapatr
For x = 2 To 249
Sheets(x).[F3] = Sheets(1).Cells(x, 1).Value
Next x
End Sub

 

[youngkim]

gelukt

Het is gelukt. Bedankt

 

[zapatr]

youngkim,
markeer de vraag als "Opgelost" a.u.b.