makro kopiëren willekeurige cellen uit willekeurige rij

[nonono]

Van een werkblad (A) wil ik van een willekeurige rij een aantal willekeurige cellen kopiëren naar een ander werkblad (B). Vervolgens weer naar A en cellen van een andere rij kopiëren.

Met deze makro worden alleen de cellen van rij 7 gekopieerd.

Sub MacroRow()
'
' MacroRow Macro
' Macro to copy cells from row
'
' Keyboard Shortcut: Ctrl+m
'
Range("A7,C7,M7").Select
Range("M7").Activate
Selection.Copy
End Sub

Hoe kan ik een makro maken die elke keer een willekeurige rij selecteert..?

Alvast bedankt voor je suggestie

 

[Roncancio]

Van een werkblad (A) wil ik van een willekeurige rij een aantal willekeurige cellen kopiëren naar een ander werkblad (B). Vervolgens weer naar A en cellen van een andere rij kopiëren.

Met deze makro worden alleen de cellen van rij 7 gekopieerd.

Sub MacroRow()
'
' MacroRow Macro
' Macro to copy cells from row
'
' Keyboard Shortcut: Ctrl+m
'
Range("A7,C7,M7").Select
Range("M7").Activate
Selection.Copy
End Sub

Hoe kan ik een makro maken die elke keer een willekeurige rij selecteert..?

Alvast bedankt voor je suggestie

Als je volledig willekeurig een bereik wilt laten kiezen, kan je RND (random) gebruiken.
Voorbeeld:

Sub Willekeurig()
Dim lRij As Long
    lRij = (Rnd *100)
    With Worksheets(2)
        .Range("A2").Value = Worksheets(1).Range("A" & lRij).Value
        .Range("C2").Value = Worksheets(1).Range("C" & lRij).Value
        .Range("M2").Value = Worksheets(1).Range("M" & lRij).Value
    End With
End Sub

De computer kiest nu willekeurig een getal van 1 tot 100

Met vriendelijke groet,


Roncancio

 

[nonono]

Roncancio,

Bedankt voor je reactie. Nu wordt bij het uitvoeren van deze makro reeds een willekeurige rij gekozen.
Wat ik eigenlijk wil:

- ik klik een willekeurige rij op werkblad A
- vervolgens selecteer ik een aantal willekeurige cellen
- in het nieuwe werkblad B klik ik een willekeurige rij
- en de inhoud van de cellen van werkblad A wordt naar dezelfde cellen op werkblad B gekopieerd
- vervolgens terug naar werkblad A en een nieuwe rij met willekeurige cellen selecteren.

Alvast bedankt