Copy/plakken

[Imod]

Hallo'

Is er een mogelijk dat ik met 1 macro - 1 willekeurige cel kan kopieren en dat ik dan 1 andere cel of cellen selecteer en daarin de waarden plak??

Sub CopyPlakken()
Selection.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Nu is copy en plakken in dezelfde cel

 

[Roncancio]

Sub CopyPlakken()
ActiveCell.Copy Destination:=Range("A1")
Application.CutCopyMode = False
End Sub

De huidige celwaarde wordt in cel A1 geplaatst.

Met vriendelijke groet,


Roncancio

 

[Cobbe]

Deze past wellicht beter in uw visie:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(ActiveCell, Range("A1:A25")) Is Nothing Then Exit Sub
Application.ActiveCell.Copy
End Sub

Je selecteert een cel in de range("A1:A25") en je kunt ze overal in je werkbook plakken, zonder bijkomende handeling.

Cobbe

 

[Wigi]

Als er toch enkel waarden overgezet worden, en geen opmaak gekopieerd:

Sheets("naamvanhetdoelblad").Range("adresvandedoelcel").Value = Sheets("naamvanhetbronblad").Range("adresvandebroncel").Value

Blijf je op hetzelfde actieve tabblad, dan kan dit volstaan:

Range("adresvandedoelcel").Value = Range("adresvandebroncel").Value

Wigi

 

[Imod]

Ik denk dat ik hier niet mee kom
Ik sta op een cel bv A4 maar het kan ook B6 zijn.
Nu start ik de macro en dan wil ik deze waarden in bv C10 hebben maar dit kan net zo goed ook E6 t/m E9 zijn - dus GEEN vaste cel - kan dit??

 

[Roncancio]

Ik denk dat ik hier niet mee kom
Ik sta op een cel bv A4 maar het kan ook B6 zijn.
Nu start ik de macro en dan wil ik deze waarden in bv C10 hebben maar dit kan net zo goed ook E6 t/m E9 zijn - dus GEEN vaste cel - kan dit??

Ja, maar hoe weet de computer naar welke cel(len) gekopieerd moet worden?

Met vriendelijke groet,


Roncancio

 

[Imod]

Je staat altijd op een cel en die moet gecopieerd worden - ik bedoel hiermee dat het niet altijd een vaste cel is bv A1

 

[Roncancio]

Je staat altijd op een cel en die moet gecopieerd worden - ik bedoel hiermee dat het niet altijd een vaste cel is bv A1

Dat begrijp ik.
Waar het mij omgaat dat je bijvoorbeeld op cel E2 staat en je deze wilt kopiëren naar B2 of B4 t/m B7. Hoe moet de macro dat bepalen?

Met vriendelijke groet,


Roncancio

 

[Imod]

Het kan wel met 2 macro's - kan er een wacht moment in de macro zitten tussen copy van 1 cel ---- daarna andere cel of cellen selecteren ----- dan in deze de waarde zetten??

 

[Wigi]

Hoe moet de macro dat bepalen?

Een Inputbox in VBA met laatste argument Type een 8 (voor een Range).

Dan kan men gewoon de doelcel(len) aanklikken.

Wigi

 

[Roncancio]

Een Inputbox in VBA met laatste argument Type een 8 (voor een Range).

Dan kan men gewoon de doelcel(len) aanklikken.

Wigi

Mooie oplossing.:thumb:
Maar ik heb/had de indruk dat TS bij het starten van de macro, zonder tussenkomst van wat dan ook, de waarde van de huidige cel in een cel(lenbereik) wilt plaatsen.Vandaar mijn vraag.
Maar misschien zit ik er wel naast.

Met vriendelijke groet,


Roncancio

 

[Wigi]

Mooie oplossing.:thumb:
Maar ik heb/had de indruk dat TS bij het starten van de macro, zonder tussenkomst van wat dan ook, de waarde van de huidige cel in een cel(lenbereik) wilt plaatsen.Vandaar mijn vraag.
Maar misschien zit ik er wel naast.

Met vriendelijke groet,

Roncancio

Zonder tussenkomst kan niet, dat heb jij al gezegd. De code kan niet raden waar naartoe gekopieerd moet worden.

Wigi

 

[Imod]

Roncancio je had het goed - maar dit kan dus niet
Ik zal het proberen met de inputbox
bedankt

 

[Roncancio]

Roncancio je had het goed - maar dit kan dus niet
Ik zal het proberen met de inputbox
bedankt

Als je een duidelijk voorbeeld stuurt, is er wellicht een VBA-oplossing voor handen.

Met vriendelijke groet,


Roncancio

 

[Imod]

Hallo Roncancio,

Sub CopyPlakken()
Selection.Select
Selection.Copy
----------------------
Op dit moment van de macro moet je andere cellen kunnen selecteren (met de muis) waarin bovenstaande waarden van die cel in de nieuwe selectie geplakt kunnen worden.
----------------------
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Als je de nieuwe selectie gemaakt hebt moet de macro doorgaan met Paste speciaal waarden.
Hopelijk een beetje duidelijk

 

[Roncancio]

Is het wellicht de bedoeling dat de geselecteerde cellen onderaan een lijst komen?

Bijv.:
Je selecteert F4:F8, start de macro en de gegevens van die cellen staat op blad2 in A1:E1.
Vervolgens selecteer je K6:K10, start de macro en de gegevens staan in A2:E2. (de volgende regel dus). Etc, etc.

Met vriendelijke groet,


Roncancio

 

[Imod]

In macro geen vaste cellen maar reageren op selectie's

1e deel macro: Copy cel (je hebt dan daarvoor al een willekeurige cel geselecteerd)

Sub copy()
Selection.copy

Selecteer nu 1 willekeurige cel of cellen(handmatig)

2e deel macro: Plak waarden nu in deze nieuw geselecteerde cel of cellen

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub


Dit werkt net zo als rechtermuisknop copy - selectie maken - daarna weer rechtermuisknop plakkenspeciaal waarden (werk dan goed) maar mijn vraag was of dit in 1 handeling kan

 

[snb]

Je kunt het jezelf 'makkelijk' maken met

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Cells.Count = 1 Then 
    Target.Copy
  Else
    ActiveSheet.Paste
    Application.CutCopyMode = False
  End If
End Sub

 

[Roncancio]

Dim vWaarde As Variant

Sub Kopie()
vWaarde = ActiveCell.Value
Application.OnTime Now + TimeSerial(0, 0, 3), "Plakken"
End Sub

Sub Plakken()
Selection.Value = vWaarde
End Sub

Als je bovenstaande macro Kopie start, kopieert de macro de waarde van de huidige cel.
Je hebt dan 3 seconden om een bereik te selecteren.
Hierna wordt dat bereik gevuld met de waarde uit de gekopieerde cel.

Met vriendelijke groet,


Roncancio

 

[Imod]

Roncancio :thumb:

Dit was de bedoeling!
Het werk perfect
Bedankt voor de hulp