Página 1 de 1

Ajuste automático de linhas de acordo com o texto

Enviado: 09 Ago 2020 às 06:06
por Ana001
Olá, pessoal!

Possuo uma planilha de cadastro onde determinada linha me retorna resultados em forma de texto de acordo com as marcações feitas pelo usuário, então eu gostaria que a altura dessas linhas que me retornam esses valores fossem ajustadas automaticamente de acordo com o texto. Já tentei vários códigos de VBA e nenhum deu certo.

Podem me ajudar?
Abaixo inseri uma planilha meramente ilustrativa de como minhas informações estão dispostas.

Re: Ajuste automático de linhas de acordo com o texto

Enviado: 09 Ago 2020 às 17:51
por osvaldomp
Ana001 escreveu: ... retorna resultados em forma de texto de acordo com as marcações feitas pelo usuário, ...
Olá, Ana.
Eu não entendi o que você quis dizer com "marcações feitas pelo usuário".
Considerei que ao inserir manualmente o conteúdo "OK" em uma célula você quer auto ajustar a altura da linha abaixo.
Se for isso, experimente colar uma cópia do código abaixo no módulo da Plan1.
Código: Selecionar todos
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Value <> "OK" Then Exit Sub
 Rows(Target.Row + 1).AutoFit
End Sub