Usuário com melhor resposta
Formula acompanhar atualização / acréscimo de dados da planilha

Pergunta
-
Prezados,
tenho uma planilha por exemplo com dados de A2 até E50, na coluna F2 em diante até a F50 tenho uma formula para cálculo de valores.
A questão quando eu acrescento na minha planilha alguns valores alem da linha 50 eu tenho que arrastar a linha F50 todas as vezes até a linha prenchida.
Existe algum modo que quando eu acrescentar valores, a formula acompanhe automaticamente até a última linha preenchida usando como base a linha da coluna "A".
Exe.:
Atualizei até de A2 até A500. Queria que a formula da coluna F seje puchada até a última linha preenchida da coluna A automaticamente.
Att,
Estanislau Frade
Att, Estanislau Frade msn: lauedele@hotmail.com email: estanislaufrade@yahoo.com.br estanislau.frade@vale.com
Respostas
-
Use algo como:
Sub Exemplo() Dim lLast As Long Dim ws As Worksheet Set ws = ActiveSheet With ws lLast = .Cells(.Rows.Count, "A").End(xlUp).Row .Range("F2:F" & lLast).Formula = Range("F1").Formula End With End Sub
Se preferir que isso execute automaticamente, coloque o código na classe da planilha em que deseja obter o efeito, no evento Worksheet_Change.
Felipe Costa Gualberto - http://www.ambienteoffice.com.br
- Marcado como Resposta Hezequias VasconcelosModerator sábado, 9 de fevereiro de 2013 15:52
Todas as Respostas
-
Se usa o Excel 2007 ou superior, experimente utilizar o recurso de Tabela.
Experimente clicar no menu Página Inicial >> grupo Estilo >> Formatar como Tabela.
Povoa alguns dados e experimente algumas fórmulas. As Tabelas tem outras grandes utilidades além de auto expandir fórmulas.
Felipe Costa Gualberto - http://www.ambienteoffice.com.br
- Sugerido como Resposta MLRamos quarta-feira, 6 de fevereiro de 2013 13:15
-
-
Use algo como:
Sub Exemplo() Dim lLast As Long Dim ws As Worksheet Set ws = ActiveSheet With ws lLast = .Cells(.Rows.Count, "A").End(xlUp).Row .Range("F2:F" & lLast).Formula = Range("F1").Formula End With End Sub
Se preferir que isso execute automaticamente, coloque o código na classe da planilha em que deseja obter o efeito, no evento Worksheet_Change.
Felipe Costa Gualberto - http://www.ambienteoffice.com.br
- Marcado como Resposta Hezequias VasconcelosModerator sábado, 9 de fevereiro de 2013 15:52