• 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.

macro uitbereiden

Status
Niet open voor verdere reacties.
R

ronnie123

Gebruiker
Lid geworden
21 nov 2007
Berichten
595
hallo forumleden
ik gebruik de volgende macro om te kopieren en plakken van de waarde,nu plakt hij het in G2 maar ik wil graag dat er een vraag komt waar het geplakt moet worden.
Code: 
Sub copieren_en_plakken()
'
' copieren_en_plakken Macro
'

'
    Range("E2:E13").Select
    Selection.Copy
    Range("G2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
End Sub
kan iemand voor mij de macro aanpassen?
bvd ronnie
 
Zie het nut er niet van in en heel fout gevoelig met het overschrijven van data die er al staat.

Code: 
   Sub test()
    On Error Resume Next
    Range(InputBox("geeft celadres op.")).Resize(12).Value = Range("E2:E13").Value
    End Sub

Niels
 
Laatst bewerkt:
je kunt ook nog de cel selecteren ipv intypen

Code: 
Sub test()
    Application.InputBox("Selecteer een bereik s.v.p.", Type:=8).Resize(12).Value = Range("E2:E13").Value
End Sub

Niels
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan