Insere um Botão Activex na folha, clica 2 vezes no botão e cola este código.
Private Sub CommandButton1_Click()
Dim address As Variant, NOMES As Range, LINHA As Range
Set NOMES = Sheets("REGISTOS").Range("C2:E10000")
For Each LINHA In NOMES.Rows
If LINHA.Cells(1, 1) <> "" Then
address = LINHA.Cells(1, 2)
LINHA.Cells(1, 2).Select
ActiveCell = address
ActiveCell.Offset(0, -2).Select
ActiveCell.Value = LINHA.Cells(1, 2).Value
End If
Next
End Sub
Adapta de acordo com a tua necessidade. Para outros Range, duplica o código de forma a contemplar o Range que quiseres. É só
alterar o address e o offset conforma a necessidade.
↧