Este fórum está sendo desativado

[Celsosilverio]

Bom dia pessoal!
Tenho o seguinte código abaixo:

Sub Consolidar()
Sheets(1).Range("A2:S1000").Clear
plans = Sheets.Count
linha = 2

For n = 2 To plans
lin = 7
Do Until Sheets(n).Cells(lin, 1) = 0

Sheets(1).Cells(linha, 1) = Sheets(n).Cells(lin, 1)
Sheets(1).Cells(linha, 2) = Sheets(n).Cells(lin, 2)
Sheets(1).Cells(linha, 3) = Sheets(n).Cells(lin, 3)

Sheets(1).Cells(linha, 19).Font.ColorIndex = n + 1
Sheets(1).Cells(linha, 19) = Sheets(n).Name

lin = lin + 1
linha = linha + 1

Loop
Next
End Sub

Na Linha 1 preciso que sai formatado na célula como número de porcentagem com duas casas após a vírgula. Ex: 2,50%
Na linha 2 preciso que sai formatado como data. Ex: 10/02/2017
Na linha 3 preciso que sai formatado como número Ex: 1.236,52.

Agradeço desde já,

[Celsosilverio]

Consegui resolver da maneira abaixo:

Sub Consolidar()
Sheets(1).Range("A2:S1000").Clear
plans = Sheets.Count
linha = 2

For n = 2 To plans
lin = 7
Do Until Sheets(n).Cells(lin, 1) = 0

Sheets(1).Cells(linha, 1) = Sheets(n).Cells(lin, 1)
Sheets(1).Cells(linha, 1).NUMBERFORMAT="0.00%"

Sheets(1).Cells(linha, 2) = Sheets(n).Cells(lin, 2)
Sheets(1).Cells(linha, 2).NUMBERFORMAT="DD/MM/YYYY"

Sheets(1).Cells(linha, 3) = Sheets(n).Cells(lin, 3)
Sheets(1).Cells(linha, 3).NUMBERFORMAT="0.00"

Sheets(1).Cells(linha, 19).Font.ColorIndex = n + 1
Sheets(1).Cells(linha, 19) = Sheets(n).Name

lin = lin + 1
linha = linha + 1

Loop
Next
End Sub