Notifications
Clear all

Configurar largura coluna

3 Posts
2 Usuários
0 Reactions
856 Visualizações
(@celsoyano)
Posts: 75
Estimable Member
Topic starter
 

Boa noite galera
Alguem poderia me ajuda no seguinte:

Gostaria de uma macro, que determinasse a larguda da coluna na planilha "arquivo", confome a coluna "L" da plan leiaute.

Por exemplo:
plan leiaute / celula L3 = 2 / L4 = 7 / L5 = 2
a partir dessas informacoes, executando o código as laguras das colunas da plan arquivo ficariam
coluna A = 2
coluna b = 7
coluna C = 2

assim por diante

segue o arquivo exemplo

obrigado a quem puder me ajudar

 
Postado : 08/02/2013 10:00 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite,

Veja se atende:

Sub DefinirLargura()
    Dim i As Integer
    
    i = 3
    While Not IsEmpty(Sheets("leiaute").Cells(i, "L").Value)
        Sheets("arquivo").Columns(i - 2).ColumnWidth = Sheets("leiaute").Cells(i, "L").Value
        i = i + 1
    Wend
End Sub

Abraço

 
Postado : 08/02/2013 11:47 pm
(@celsoyano)
Posts: 75
Estimable Member
Topic starter
 

JValq
Obrigado, deu certinho!

 
Postado : 09/02/2013 6:08 am