Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 09/18/2021 in all areas

  1. Sub CopiarMúltiple() Application.ScreenUpdating = False Range("C3:I7").Copy For x = 12 To 4998 Step 9 Range("C" & x).PasteSpecial xlPasteAll Next Application.CutCopyMode = False End Sub
    1 point
  2. Sub Concatenar() Dim fn As Long uFila = Range("H" & Cells.Rows.Count).End(xlUp).Row pFila = 1 For fila = pFila + 1 To uFila fn = Range("I" & fila) Range("O" & fila) = Range("H" & fila) & fn Next fila End Sub
    1 point
×
×
  • Create New...

Important Information

Privacy Policy