Kopier celler med Enter imellem hver celle

hvad mener du med et enter, mener du at der skal være en tom celle imellem hver. ?

Med Enter mener jeg et tryk på Enter tasten på tastaturet.

johnfm

Der skal ikke være nogen tom celle imellem.

hvorfor skal du bruge et Entertegn ?
er det for at trigge en worksheet_change-hændelse ?

Hej Bak

Jeg skal bruge et Enter tegn, efter at der er skrevet et tal ind i cellen, for at starte den markro der går ud og søger efter det tal der lige er tastet ind i en projektmappe.
johnfm

Tænker du på ved brug af copy-paste (Edit Copy) og man så bruger Enter til at indsætte igen (Edit paste (ctrl-v)).

Min foreslag ville være at extracte de ting ud du skal bruge. Søg efter (UK) Left(text;antal) eller right(text;antal) i hjælpen (gæt: venstre(), højre()). Jeg ved ikke hvad de funktioner hedder i den danske version, har aldrig brugt den dk Excel.

Jeg er ikke helt sikker på hvad du vil, men denne makro lader dig udvælge de celler du ønsker at kopiere og indsætter dem der hvor du ønsker med et ENTER efter hver indsættelse.

Sub test()
Dim y As Long, c As Range, z As Long, Place As Range, copyfrom As Range, x()
Set copyfrom = Application.InputBox(prompt:="hvor skal de hentes fra?", Type:=8)

ReDim x(copyfrom.Cells.Count, 1)
For Each c In copyfrom.Cells
    y = y + 1
    x(y, 1) = c
Next
Set Place = Application.InputBox(prompt:="hvor skal de indsættes ?", Type:=8)
For z = 1 To y
    Place.Offset(z - 1, 0) = x(z, 1)
    Application.SendKeys "{Enter}"
Next
End Sub

Makroen virker perfekt, tak for flot arbejde.
Smid lige et svar.

Johnfm

godt det virkede, John :-)

bak
her er lidt point
john