ElizeuMartins

Pergunta: Macro para replicar dados 12 vezes em linhas especificas

Por ElizeuMartins, Fevereiro 7, 2018 em VBA

• Aguardando melhor resposta

• sub cadastrar_representante() dim wcn as worksheet dim wbd as worksheet dim codigo as string dim representante as long dim ulinha as long application.screenupdating = false set wcn = sheets(uf repres meta 2018) set wbd = sheets(bd_pet) navio = wcn.range(w2).value tonelada = wcn.range(x2).value for a = 1 to 12 ulinha = wbd.range(a & rows.count).end(xlup).offset(1 0).row wbd.cells(ulinha, 4).value = navio wbd.cells(ulinha, 5).value = tonelada next wcn.range(w2).value = wcn.range(x2).value = application.screenupdating = true end sub