Fóruns
Microsoft Excel - 2...
2024 - Fórmulas Ava...
Ajuste de Tamanho d...
 
Notifications
Clear all

Ajuste de Tamanho de Célula (Automático)

 
2024 - Fórmulas Avançadas - Funções Microsoft Excel
Post Recente por marcos94 10 anos atrás
9 Posts
2 Usuários
0 Reactions
1,603 Visualizações
RSS
 marcos94
(@marcos94)
Posts: 37
Eminent Member
Topic starter
 

Fala galera!!
Seguinte, tenho uma planilha de proposta, que tiro o descritivo do Edital e monto no meu timbrado.
Porém toda vez preciso ajustar o tamanho da linha p/ não cortar na hora de imprimir...

Note que os itens 50 ao 60 estão cortando os descritivos...
Imagem 1: http://uploaddeimagens.com.br/imagens/1-png--1717

Teria alguma possibilidade de uma macro conseguir ajustar o tamanho da linha automaticamente de modo que os itens fiquem sem cortar os descritivos?

Dessa forma:
Imagem 2: http://uploaddeimagens.com.br/imagens/2-png--1133

Observação: depois do descritivo sempre puxo mais a linha p/ deixar um espaço em branco na linha porque caso contrário ele corta na hora de imprimir... igual a Imagem 2.

Segue um modelo anexo com o que preciso...
Conto com a ajuda dos amigos mais experientes!!
Grato desde já,

MODELO.zip
 
Postado : 06/11/2014 11:04 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Se eu entendi, use essa linha em sua macro 

Rows("6:73").EntireRow.AutoFit

Att

 
Postado : 06/11/2014 11:07 am
 marcos94
(@marcos94)
Posts: 37
Eminent Member
Topic starter
 

Fala Alexandrevba!!

Fiz o teste lá porém ainda sim continua cortando...

Antes estava assim:
Imagem 1: http://uploaddeimagens.com.br/imagens/antes-png--2

Após clicar no botão, ficou assim:
Imagem 2: http://uploaddeimagens.com.br/imagens/apos_pressionar_o_botao-png

Resultado que eu precisava:
Imagem 3: http://uploaddeimagens.com.br/imagens/resultado_desejado-png

Precisava que ao clicar no botão, os descritivos ficassem igual a Imagem 3 que coloquei, seria possível??? Mostrando todo o descritivo do produto e um espaço a mais na linha... (Igual Imagem 3).

Apenas esse detalhe...

Obrigado.

 
Postado : 06/11/2014 11:55 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom tarde!!

Eu não tenho acesso as imagens!

Porque então não ajustar o tamanho das linas?

Rows("6:73").RowHeight = 51

Att

 
Postado : 06/11/2014 12:42 pm
 marcos94
(@marcos94)
Posts: 37
Eminent Member
Topic starter
 

Imagens não consegue abrir?
Eu cliquei nos links e consigo visualizar normal...

Segue as imagens em .zip

Obrigado!!!

IMAGENS.zip
 
Postado : 06/11/2014 2:25 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Já tentou a linha de comando baseado em

Range.AutoFit Method (Excel)

para linhas e colunas?
http://msdn.microsoft.com/en-us/library ... =office.15).aspx

Columns("A:J").EntireColumn.AutoFit
 Rows("6:73").EntireRow.AutoFit

Att

 
Postado : 06/11/2014 2:32 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Ou grave uma macro assim...

Sub Macro1()
    Cells.WrapText = False
    'Seu código
    With Cells
        .WrapText = True
    End With
End Sub

Att

 
Postado : 06/11/2014 2:39 pm
 marcos94
(@marcos94)
Posts: 37
Eminent Member
Topic starter
 

Segue modelo de como fica ANTES, e outra aba que tem o resultado que preciso...
Conseguiu entender?!
O site que mandou está fora... link deu erro!!

Obrigado.

MODELO ATUALIZADO.xlsm
 
Postado : 06/11/2014 3:01 pm
 marcos94
(@marcos94)
Posts: 37
Eminent Member
Topic starter
 

Alguém? rs

 
Postado : 13/11/2014 2:33 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico