Ajuda Eu Pow! VBA Excel
comentada em 01/10/2021 08:57

With Sheets("SAÍDAS")
      ultlin = 9
      Do While .Cells(ultlin, 5) <> ""
         ultlin = ultlin + 1
      Loop
      .Range("o4:q" & ultlin - 1).Copy?

Dim ultlin As Long

   With Sheets("SAÍDAS")
      ultlin = 12
      Do While .Cells(ultlin, 15) <> ""
         ultlin = ultlin + 1
      Loop
      .Range("o4:q" &amp; ultlin - 1).Copy
   End With
   Sheets("SAÍDAS").Range("D" &amp; Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues '
   Application.CutCopyMode = False?

postado por @mones em 30/09/2021 13:07

Meus palpites:

1 - Tentou usar "Ir Para Especial" e selecionar? Isso resolveria seu problema também?

2 - Quem sabe se não funcionaria o seguinte

Dim ultlin As Long

   With Sheets("SAÍDAS")
      ultlin = 12
      Do While .Cells(ultlin, 15) <> ""
         ultlin = ultlin + 1
      Loop
      .Range("o4:q" &amp;amp; ultlin - 1).Copy
   End With
   Sheets("SAÍDAS").Range("D" &amp;amp; Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues '
   Application.CutCopyMode = False?

postado por @bikerman em 30/09/2021 12:59:20

A parte do código que não entendo é este miolo.

With Sheets("SAÍDAS")
      ultlin = 9
      Do While .Cells(ultlin, 5) <> ""
         ultlin = ultlin + 1
      Loop
      .Range("o4:q" &amp; ultlin - 1).Copy?With Sheets("SAÍDAS")

Os códigos abaixo eu compreendo.

postado por @Camaleoncio em 30/09/2021 15:06



Oi amigo 
Esse miolo diz o seguinte:
- A parte entre o "do while - loop" verifica se a linha está preenchida... primeiro vê se a linha 9 esta preenchida, depois a 10, 11, e assim por diante.... quando ela encontra o final da lista, quer dizer que a célula em questão está vazia.. O código sai dessa etapa 
- A parte seguinte copia o intervalo entre a célula o4 e a célula que fica na coluna a q na última linha preenchida (encontrada no passo anterior)