- 09 Jan 2018 às 17:09
#29319
Caros amigos, boa tarde.
Possuo uma planilha para controle de contas a receber que possuem 4 abas: Menu, Base(Plan5), Rel(Plan6) e Resumo, criei um código para uma macro que ao clicar no botão (ex.: "Vencido") ele filtra as informações da aba Base e envia para a aba Rel, está funcionando OK, porém, não traz a formatação das células, ou seja, datas, valores e as bordas vem sem a formatação original da aba Base. Segue o código:
Possuo uma planilha para controle de contas a receber que possuem 4 abas: Menu, Base(Plan5), Rel(Plan6) e Resumo, criei um código para uma macro que ao clicar no botão (ex.: "Vencido") ele filtra as informações da aba Base e envia para a aba Rel, está funcionando OK, porém, não traz a formatação das células, ou seja, datas, valores e as bordas vem sem a formatação original da aba Base. Segue o código:
Código: Selecionar todos
Grato a todosRange("A8:K6008").Clear
ultimalinha = Plan5.Cells(Rows.Count, "a").End(xlUp).Row
lin = 8
For i = 5 To ultimalinha
If Plan5.Cells(i, 10) = "Vencido" Then
Plan6.Cells(lin, 1) = Plan5.Cells(i, 1)
Plan6.Cells(lin, 2) = Plan5.Cells(i, 2)
Plan6.Cells(lin, 3) = Plan5.Cells(i, 3)
Plan6.Cells(lin, 4) = Plan5.Cells(i, 4)
Plan6.Cells(lin, 5) = Plan5.Cells(i, 5)
Plan6.Cells(lin, 6) = Plan5.Cells(i, 6)
Plan6.Cells(lin, 7) = Plan5.Cells(i, 7)
Plan6.Cells(lin, 8) = Plan5.Cells(i, 8)
Plan6.Cells(lin, 9) = Plan5.Cells(i, 9)
Plan6.Cells(lin, 10) = Plan5.Cells(i, 10)
lin = lin + 1
End If
Sheets("Rel").Select
Next