Este fórum está sendo desativado

[abalopg]

Olá
Sou novo em VBA estou em um empasse com uma macro para pegar a célula B8 e colar o mesmo valor de E19:AI19, se o intervalo estiver com dados pular para a próxima linha livre.
É uma planilha de escala de trabalho e só falta esse ponto para terminar, se algum puder me ajudar.

[wesleyribeiro123]

Abalopg
Bom dia,

Amigo, é sempre bom anexar um exemplo de tua planilha para que fique mais claro o entendimento.
Mas de qualquer forma criei algo seguindo os passos informados!

Veja se lhe atende desta forma...


Espero ter lhe ajudado.

[juniorieq61]

Olá amigo, fiz um exemplo, porém de forma dinâmica para a questão das colunas, ele pega a última coluna das datas e a última linha e adiciona a escala que foi selecionada na lista de validação na célula B8.

Código: Selecionar todos

Public Sub ScaleToRange()
    Dim ws      As Worksheet
    Dim lRow    As Long
    Dim lCol    As Integer
    
    Set ws = Planilha1
    With ws
        lRow = .Cells(ws.Rows.Count, "E").End(xlUp).Row
        lCol = .Cells(8, ws.Columns.Count).End(xlToLeft).Column
        .Range(.Cells(lRow + 1, "E"), .Cells(lRow + 1, lCol)).Value2 = .Range("B8").Value2
    End With
End Sub

Espero que ajude (Arquivo em anexo)