range veranderen na uitvoering van macro

[AD1957]

Ik heb een simpele macro voor het copieren van een cel naar de andere


Range("G29").Select
Selection.Copy
Range("A33").Select
ActiveSheet.Paste
ActiveSheet.Paste
Application.CutCopyMode = False

Na uitvoeren van de macro moet de range veranderen in de cel A32 tot A73
dit kan wisselen per keer. kan A33 zijn maar ook A50
Met activecell lukt het me niet.
Eigenlijk zo het zo moeten zijn dat de range verandert in de cel in kolom A die ik heb geselecteerd.

Hoop dat het een beetje duidelijk is.

mvg,
Albert

 

[VenA]

Voor mij nog niet!

Er staat vooralsnog niet veel meer dan

sub VenA
[A33]=[G29]
end sub

of

sub VenA1
[g29].copy [a33]
end sub

Na het uitvoeren van de macro moet er iets veranderen waarom dan wel? En wat moet er veranderen?

 

[AD1957]

hallo VenA,

Zal proberen het uit te leggen.
Cel G29 is de gekoppelde cel van een formulierbesturingselement.

Wat gebeurt nu:
Als cel G29 is bijvoorbeeld 5 dan moet cel A32 ook 5 worden, dit lukt met de macro te koppelen aan het besturingselement.
klick ik nu op een artikel in het besturingselement dan verandert cel A32.

wat wil ik bereiken:
ik selecteer een cel in het bereik A32:A73
de macro moet deze cel automatisch nemen als de cel waarna gecopieerd wordt zonder dat de reeds ingevulde cellen A32:A73 wijzigen.



Albert
Bekijk bijlage FACTUUR test helpmij.xlsb

 

[VenA]

Zoiets

Sub artikelen_automatisch_invoeren()
With ActiveCell
    If .Column = 1 And .Row > 32 And .Row < 74 Then .Value = [g37]
End With
End Sub

 

[AD1957]

Hallo VenA,

Als leek krijg ik het gewoon niet goed.
Vermoed dat als activeCell de cel G37 wordt genomen.

Je zou me een heel groot!!! plezier doen om een compleet juiste macro te schrijven.
Zelf heb ik van macro's geen kaas gegeten.
De macro's die nu in het werkblad functioneren heb ik nml. gecopieerd uit andere.

Groet,
Albert

 

[VenA]

Wat gaat er niet goed met de geplaatste code?

 

[AD1957]

zie nu pas dat het een geheel nieuwe code is.
had hem bij die andere macro geplakt.
Zal het straks uitproberen, moet eerst mijn dieren gaan verzorgen.
Laat snel iets weten.

Groet,
Albert

 

[AD1957]

Hoi VenA,

Het werkt perfect.
GIGA goed.!!!!

duizendmaal dank!!

Groet,
Albert