Guru do Excel e Power BI

Olá caros colegas

Em meio ao meu inicio com Excel, venho lhes pedir uma pequena ajuda.

Em minha planilha que estou estou deixando em anexo, preciso que ocorra o seguinte caso...
Quero que ela copie um valor e depois cole na célula, e após isso ela passe para a próxima linha de cópia e faça o mesmo processo.

No caso da planilha ficaria como:
Ir na "Sheet2" copiar o primeiro valor e colar na celula "J11" da "Sheet1".
Após esse processo a macro parar ou fazer um loop com todos os números da "Sheet2" até acabar os números.

Porque preciso disso ?
Pois na célula "J11" é um número inicial para que eu possa realizar mais alguns procedimentos automáticos na planilha, como até outras macros como: Salvar a planilha com o nome da célula "F11", fazer a impressão da página e mais algumas pequenas formulas...

Estava tentando imaginar em um Loop ao invés da macro parar a cada número feito, mas não sei se seria possível

Muito obrigado amigos

Bom dia!!

Seria isso?

Código: Selecionar todos

Sub AleVBA_3030()
Dim rngBond As Range
Dim rngCell As Range
Dim ws As Worksheet
Dim LastRow As Long

LastRow = Worksheets("Sheet2").Cells(Worksheets("Sheet2").Rows.Count, "B").End(xlUp).Row
Set ws = Worksheets("Sheet1")
Set rngBond = Worksheets("Sheet2").Range("B2:B" & LastRow)
    For Each rngCell In rngBond
        ws.Range("J11") = rngCell
        'Falta Imprimir
        'Worksheets("Sheet1").Range("A1:K42").PrintOut
        ' --> %%%%%%%%%%%%%%%
        'Chame aqui seu código
        'Call Sava_Planilha <-Caso necessário descomente essa linha para chamar seu código principal
    Next rngCell
End Sub

Att

Olá alexandrevba

Muito obrigado meu caro, era isso mesmo que eu precisava.
Tenha um bom dia

Vlw

Guru do Excel e Power BI

Copiando e colando célula e passando para a próxima linha

Copiando e colando célula e passando para a próxima linha

Re: Copiando e colando célula e passando para a próxima linh

Copiando e colando célula e passando para a próxima linha