Modification and union of both codes

[Aretradeser]

Regarding these two macros, I need:
1. That in the extraction of the 5 records, do not include the title of the column.
2. Join both codes.
Thank you very much
CÓDIGO 1

Sub RegistrosAleatorios1()
  Dim arr As Variant
  Dim i As Long, x As Long, y As Long, n As Long
  '
  n = Sheets("Hoja3").Range("C" & Rows.Count).End(3).Row
  Randomize
  arr = Evaluate("=row(1:" & n & ")")
  '
  For i = 1 To n
    x = Int(UBound(arr) * Rnd + 1)
    y = arr(x, 1)
    arr(x, 1) = arr(i, 1)
    arr(i, 1) = y
  Next
  '
  For i = 1 To 5
    Sheets("Hoja1").Range("C11").Offset(0, i - 1).Value = Sheets("Hoja3").Range("C" & arr(i, 1))
  Next
End Sub

CÓDIGO 2

Sub RegistrosAleatorios2()
  Dim arr As Variant
  Dim i As Long, x As Long, y As Long, n As Long
  '
  n = Sheets("Hoja5").Range("C" & Rows.Count).End(3).Row
  Randomize
  arr = Evaluate("=row(1:" & n & ")")
  '
  For i = 1 To n
    x = Int(UBound(arr) * Rnd + 1)
    y = arr(x, 1)
    arr(x, 1) = arr(i, 1)
    arr(i, 1) = y
  Next
  '
  For i = 1 To 5
    Sheets("Hoja1").Range("C16").Offset(0, i - 1).Value = Sheets("Hoja5").Range("C" & arr(i, 1))
  Next
End Sub

 

[Aretradeser]

Thank you, I'll remove the column titles

 

[DanteAmor]

Hi Aretradeser:

1. That in the extraction of the 5 records, do not include the title of the column.
2. Join both codes.

I'll remove the column titles

I put the code for the 2 requests.
You can leave your titles.

Sub RegistrosAleatorios()
  Dim arr As Variant, shs As Variant
  Dim i As Long, j As Long, x As Long, y As Long, n As Long
  '
  shs = Array("Hoja3", "C11", 5, "Hoja5", "C16", 6)
  For j = 0 To UBound(shs) Step 3
    n = Sheets(shs(j)).Range("C" & Rows.Count).End(3).Row
    Randomize
    arr = Evaluate("=row(2:" & n & ")")
    '
    For i = 1 To n - 1
      x = Int(UBound(arr) * Rnd + 1)
      y = arr(x, 1)
      arr(x, 1) = arr(i, 1)
      arr(i, 1) = y
    Next i
    '
    For i = 1 To shs(j + 2)
      Sheets("Hoja1").Range(shs(j + 1)).Offset(0, i - 1).Value = Sheets(shs(j)).Range("C" & arr(i, 1))
    Next i
  Next j
End Sub

You forgot to put the feedback in the question where I gave you the code:

Extraer datos de una columna aleatoriamente sin que se repitan

Respuesta de Dante Amor: Prueba la siguiente: Sub RegistrosAleatorios() Dim arr As Variant Dim i As Long, x&#1...

www.todoexpertos.com

 

[Aretradeser]

You forgot to put the feedback in the question where I gave you the code:

The website did not let me answer your question.
Nor did it let me ask for more information.
I don't know why.
It didn't even let me write to you to thank you for your work.
I don't know what the problem with the web is
I also did not want to ask the question anonymously.
I would like to take this opportunity to thank you for your extraordinary work.
Thank you very much, Dante Amor