Code verwijzen naar gegeven in cel A1

[danny147]

Beste,

Kan ik de code laten verwijzen naar een gegeven in cel A1

VB.

Rows("7:7").Copy

Zou moeten worden:

Rows([A1].value).Copy

Waarbij in A1 "7:7" staat.
ALs ik in cel A1 7:7 zet ziet hij dit als tijd !

Ik moet telkens aparte gegevens ophalen met een formule en daarna deze allemaal omzetten in waarden, ongeveer 100 rijen.

Mijn code is als volgt:

Sub Macro2()
    Rows("7:7").Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A1").Select
End Sub

Nu zou het natuurlijk gemakkelijk zijn om telkens A1 te moeten veranderen dan altijd maar naar de VBA editor te gaan en daar te wijzigen? kwestie van tijd te besparen.

Groetjes Danny. :thumb:

 

[HSV]

Je hoeft dan alleen een zeven in cel A1 te zetten Danny.

Dit zou moeten voldoen.

 

[danny147]

Beste HSV

Je hoeft dan alleen een zeven in cel A1 te zetten Danny.

Dit zou moeten voldoen.

Wat kan het toch simpel zijn hé

Groetjes Danny. :thumb: