Página 1 de 1

Macro celula vazia

Enviado: 11 Jun 2018 às 13:29
por KFR
Gostaria de uma macro que precorra linha a linha da planilha e (para cada linha) verifique se existem dados preenchidos do intervalo de "A" até "AE".
Se todo esse intervalo ( estiver vazio, com informações apenas nas colunas "X" ,"S" ,"AE", copia a informação que está na linha de cima do mesmo intervalo exceto das colunas que estão preenchidas ( "X" ,"S" ,"AE")
Ou seja.. é copiada toda linha de cima exceto "X" ,"S" ,"AE".

Re: Macro celula vazia

Enviado: 11 Jun 2018 às 19:17
por osvaldomp
Código: Selecionar todos
Sub ReplicaDados()
 Dim s As Long, t As Long, v As Long
  For s = 1 To Cells(Rows.Count, 19).End(3).Row
   t = Application.CountA(Range(Cells(s, 1), Cells(s, 31)))
   v = Application.CountA(Cells(s, 19), Cells(s, 24), Cells(s, 31))
    If t = 3 And v = 3 Then
     Cells(s, 1).Resize(, 18).Value = Cells(s - 1, 1).Resize(, 18).Value
     Cells(s, 20).Resize(, 4).Value = Cells(s - 1, 20).Resize(, 4).Value
     Cells(s, 25).Resize(, 6).Value = Cells(s - 1, 25).Resize(, 6).Value
    End If
  Next s
End Sub