Prezada comunidade,
Acredito que seja simples a solução mais, estou tentando fazer a seguinte regra de negocio:
Tenho uma relação de nomes em uma Plan1, preciso que o nome de cada um deles se repita por 12x cada na Plan2, tenho um codigo que consegue repetir o primeiro nome, mas não estou conseguinto incremetar meu valor.
Sub RODAR()
Dim num As Integer
Dim wb As Workbook
Dim ws As Worksheet
Dim wss As Worksheet
Dim nome As String
Set wb = ActiveWorkbook
Set ws = Sheets("Plan1")
Set wss = Sheets("Plan3")
nome = 1
For cont = 2 To 13
wss.Select
nome = Cells(2, 2)
ws.Select
Cells(cont, 2).Value = nome
nome = nome
Next