Notifications
Clear all

Auto Ajuste de Altura de Célula

18 Posts
3 Usuários
0 Reactions
2,973 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia amigos,

Gostaria de uma ajuda, não entendo muito de VBA, mas acredito que seria a única forma de resolver meu problema.
Estou criando em minha empresa um gerador de Descrições de Cargo, nele terei uma Aba "Base" com todas as características dos cargos que serão puxadas (através de PROCV) para uma Aba onde conterá uma "Máscara" para trazer essas informações para impressão.

O problema é que:

1. As informações na guia "Base" estão em texto cursivo e cada cargo possui uma quantidade diferente de informação.
2. Tive que mesclar os campos na Aba "Máscara" para poder ficar na largura da impressão que preciso.
3. Por fim, quando puxo as informações da "Base" para a "Máscara", o texto fica somente em uma linha, não sendo feito o auto ajuste da altura.

Pesquisando exaustivamente, descobri a opção em Página Inicial > Células > Formatar > AutoAjuste da Altura da Linha.
No entanto, este não funciona em células mescladas.

Em VBA encontrei:

Private Sub Worksheet_Change(ByVal Target As Range)
Columns("A:F").EntireRow.AutoFit
End Sub

Mas também só funciona em células não mescladas.

Que opção eu teria para fazer isso?
Não sei mais o que fazer.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 03/03/2017 6:39 am
pfarias
(@pfarias)
Posts: 265
Reputable Member
 

Como tinha informado, o código conta a quantidade de quebra de linhas que ocorrem.

Ele funciona assim:
A configuração padrão da altura que defini foi de 15 pontos.

Se não tiver a quebra de linha a altura fica no padrão de 15.
Se houver 02 quebras de linha fica 15 x 2.
Se houver 02 quebras de linha fica 15 x 3.
E assim por diante.

Acontece que no caso do seu exemplo existe uma quantidade X de quebras de linhas, MAS uma quantidade maior de linhas, pois quando o texto vai para a outra linha sem o recurso ALT + ENTER, para quebra a linha, o código não consegue contar como uma nova linha.

No seu exemplo, em atividades visivelmente parece ter um pouco mais de 10 quebras de linhas. Mas a possui muito mais de 10 linhas as células. E isso lasca o código :(

Vou ver alguma coisa que pode lhe ajudar.

Pietro Farias

Se foi resolvido suas dúvidas, lembre se de marcar o tópico como RESOLVIDO.

ANALISTA X

 
Postado : 03/03/2017 2:14 pm
pfarias
(@pfarias)
Posts: 265
Reputable Member
 

Se me permite, fiz umas alterações no seu arquivo.
Dá uma olhada, vê se te ajuda agora.

Esse tópico me lembrou como detesto células mescladas. kkkkk

Pietro Farias

Se foi resolvido suas dúvidas, lembre se de marcar o tópico como RESOLVIDO.

ANALISTA X

 
Postado : 03/03/2017 2:35 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ficou perfeito Pietro!
Muito obrigado pela paciência e tempo para ajudar.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 13/03/2017 9:20 am
Página 2 / 2