• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

kopiëren met een knop

Status
Niet open voor verdere reacties.
N

Noord2011

Gebruiker
Lid geworden
28 jan 2009
Berichten
350
Mijn bedoeling is om van rij 11 (C11:H11) te kopiëren en inert in rij waar ik in staat.

Bijv. als in rij 15 klikt en daarna op het knop druk dient het gegeven van rij 11 ingevoegd worden in rij 15 (C15:H15).

Wie kan me helpen met een VBA code ?

Mv/gr
 
Noord25,

Wist je dat er een macro recorder zit in Excel VBA?
Gebruik deze, doe de handelinge die nodig zijn en hij schrijft de code voor je.
De geschreven code kun je naderhand vereenvoudigen.
Hij schrijft:
Code: 
Range("A11").select
Selection.Copy
Je kunt daar dan dit van maken.
Code: 
Range("A11").Copy

Probeer de macro recorder maar eens.
 
Deze werkt met dubbelklikken op een cel
Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
[C11:H11].Copy Target
End Sub

Mvg

Rudi
 
Het doet niet precies wat ik bedoeld.

Met de knop dien ik van ene cel te kopiëren naar de cel die ik 1 keer klik (geselecteerd)

Bijv. klik in cel C20, druk op knop en gegeven van cel C11 wordt gekopieerd en geplakt in cel C20.

Mv/Gr
 
Bekijk nu eens goed je openingsvraag. Daar spreek je van een bereik (C11:H11) dat moet gekopieërd worden. Nu spreek je weer van 1 cel die gekopieërd moet worden. Een goede vraagstelling vergroot de kans op een goed antwoord.

Code: 
Sub kopie()
[c11].Copy ActiveCell
End Sub

Mvg

Rudi
 
Ja, even een foutje.

En trouwens het Macro recorder is een goede tip.

Maar ik blijf vast lopen zie onderstaande code gemaakt met macro recorder.

Range("C11:F11").Select
Selection.Copy
Range("C32:F32").Select
ActiveSheet.Paste
Application.CutCopyMode = False

In principe het functioneel wel maar ik wil dat het insert rij variabel is en het insert column vast is.

Dus het ("C11:F11") kan ik in elke rij invoegen, maar in de column C t/m F.

Mv/Gr
 
Mijn laatste poging want ik blijf in herhaling vallen.
Selecteer eender welke cel in de gekozen rij en het resultaat wordt gekopieërd op die rij in de C-kolom (Kan aangepast worden in de macro)
Code: 
Sub kopie()
[c11:F11].Copy Range("C" & ActiveCell.Row)
End Sub

Mvg

Rudi
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan