Copy from Random cells paste in random cells

[dinesh shah]

Dear friends,

I want to copy values from random cells in one sheet and paste those values in random cells of another sheet.

Please suggest vba code for the same.

Thanks in advance for the help

 

[mohadin]

Sub test22222222()
Sheets("sheet1").Cells(Int(Rnd() * 10) + 1, Int(Rnd() * 10) + 1).Copy Sheets("sheet2").Cells(Int(Rnd() * 10) + 1, Int(Rnd() * 10) + 1)
End Sub

 

[dinesh shah]

Sub test22222222()
Sheets("sheet1").Cells(Int(Rnd() * 10) + 1, Int(Rnd() * 10) + 1).Copy Sheets("sheet2").Cells(Int(Rnd() * 10) + 1, Int(Rnd() * 10) + 1)
End Sub

Sub test22222222()
Sheets("sheet1").Cells(Int(Rnd() * 10) + 1, Int(Rnd() * 10) + 1).Copy Sheets("sheet2").Cells(Int(Rnd() * 10) + 1, Int(Rnd() * 10) + 1)
End Sub

Thanks Mr.Mohadin. I will try it very soon. In the meantime can you please elaborate the code for my more better understanding?

 

[mohadin]

For each column & row use random number Rnd()
then add 1 to avoid row or column beeing (0) int to get the integer of it

Sheets("sheet1").Cells(row,column).copy And paste in  sheets("sheet2").Cells(row,column)

Hope this helps

 

[dinesh shah]

Once again, thanks for your prompt reply. I will surely try once i am at my study table.

 

[mohadin]

 

[dinesh shah]

Actually what I want is like this:-
Worksheets("Sheet 1").Range("A1,B1,D1,F1").Copy
Worksheets("Sheet2").Range("B1,E1,F1,H1").Paste

But this does not work. Hence I want help with the correct code.

Can you please do the needful?

 

[mohadin]

Sub test()
    Dim DIS As Worksheet
    Set DIS = Sheets("Sheet2")
    With Sheets("sheet1")
        .Range("A1").Copy DIS.Range("B1")
        .Range("B1").Copy DIS.Range("E1")
        .Range("D1").Copy DIS.Range("F1")
        .Range("F1").Copy DIS.Range("H1")
    End With
End Sub

Or

Sub test2()
    Dim DIS As Worksheet
    Set DIS = Sheets("Sheet2")
    With Sheets("sheet1").Range("A1")
        .Copy DIS.Range("B1")
        .Offset(, 1).Copy DIS.Range("E1")
        .Offset(, 3).Copy DIS.Range("F1")
        .Offset(, 5).Copy DIS.Range("H1")
    End With
End Sub

 

[dinesh shah]

Thank you so much. My purpose is served.

 

[mohadin]

You're Very welcome
And thank you for the feedback
Be happy and safe