kopiëren (slepen)

[flats]

Dag, ik zoek een macro die in staat is om de formule in ‘C1’ naar beneden
te kopiëren (slepen) tot aan de laatste niet lege cel in kolom ‘B’
Alvast bedankt, Fernand

 

[OctaFish]

Al geprobeerd om hem op te nemen?

 

[JanBG]

Waarom niet met een formule:

=ALS(B1="";"";A1+B1)

 

[popipipo]

Excel heeft daar een standaard methode voor

Dubbel klik op het kleine vierkantje rechtsonder in de cel

 

[flats]

Begrijp ik hoor, handmatig naar beneden slepen, maar ik bedoel een macro die deze handmatige bewerking voor mij doet, het gaat hem immers om reeksen van soms meer dat 2500 cellen.

 

[popipipo]

Niet slepen maar dubbel klikken op het vierkantje.

 

[JanBG]

Niet slepen maar dubbel klikken op het vierkantje.

Exact!

 

[flats]

begrijp ik

Oke, dat weet ik maar ik wil deze handmatige bewerking door een macro laten uitvoeren.
Inmiddels werkt het bijna met deze macro, alleen stopt die niet bij rij zeven.

Sub Macro1()
'
' Macro1 Macro
Range("C1").Select
    Selection.AutoFill Destination:=Range("C:C")
    Range("C:C").Select
    Range("C1").Select
End Sub

 

[JanBG]

Wat is het grote verschil tussen "klikken op het vierkantje" en "klikken op de macro commandbutton?"

 

[popipipo]

Wat is het verschil tussen een marco te starten dmv een knop en het dubbel klikken op het vierkantje?
Probeer het dubbel klikken eens en kijk of het doet wat je wilt.


Dubbel klikken op het vierkantje is een standaardmacro in excel die deze bewerking doet.

 

[JanBG]

alleen stopt die niet bij rij zeven.

Heb jou code even getest: stopt inderdaad niet bij de eerste lege cel in kolom B, maar daardoor duurt het ook een eeuwigheid voor je code klaar is, dus nogmaals de vraag uit # 9

 

[flats]

okee

Okee, je hebt daar een punt, moet het alleen zien uit te leggen aan de onervaren gebruiker(s) dan

 

[VenA]

Sub VenA()
  Range("C1").AutoFill Range("C1:C" & Cells(Rows.Count, 2).End(xlUp).Row)
End Sub

of

Sub VenA()
  Range("C1:C" & Cells(Rows.Count, 2).End(xlUp).Row) = Range("C1").Formula
End Sub

 

[popipipo]

moet het alleen zien uit te leggen aan de onervaren gebruiker(s)

Is niet zo moeilijk heb ik ook op mijn werk aan onervaren gebruikers kunnen doen.

 

[flats]

oplossing

Ja dat kan, maar zou in mijn geval nogal wat kilometers of telefoontjes kosten
Swoit, de oplossing is aangebracht bij #13 …. Waarvoor dank