Usuário com melhor resposta
Macro para inserir nova linha

Pergunta
-
Olá amigos, estou com uma nova dúvida.
Imagine que toda vez que eu digitar algo na célula A1, por exemplo e der enter, o excel cria um novo registro abaixo do B1.
Ou seja, Digitei algo em A1 e dei enter, ele cria um contéudo em b1.
Digitei novamente outra coisa em A1 e dei enter ai o excel cria um novo contéudo em b2 e assim por diante.
Como fazer?
Obrigado a todos.
Respostas
-
Cole o código abaixo no código de Planilha que deseja essa funcionalidade:
(se não entendeu o que isso quer dizer, clique aqui: http://www.ambienteoffice.com.br/officevba/modulos_em_vba/)
Private Sub Worksheet_Change(ByVal Target As Range) If Not (Not Intersect(Target, Range("A1")) Is Nothing) Then Exit Sub If Range("A2") = vbNullString Then Range("A2") = Target Else Cells(2, Columns.Count).End(xlToLeft).Offset(, 1) = Target End If End Sub
Felipe Costa Gualberto - http://www.ambienteoffice.com.br- Marcado como Resposta Vinicius P Gomes quarta-feira, 4 de janeiro de 2012 13:13
Todas as Respostas
-
Cole o código abaixo no código de Planilha que deseja essa funcionalidade:
(se não entendeu o que isso quer dizer, clique aqui: http://www.ambienteoffice.com.br/officevba/modulos_em_vba/)
Private Sub Worksheet_Change(ByVal Target As Range) If Not (Not Intersect(Target, Range("A1")) Is Nothing) Then Exit Sub If Range("A2") = vbNullString Then Range("A2") = Target Else Cells(2, Columns.Count).End(xlToLeft).Offset(, 1) = Target End If End Sub
Felipe Costa Gualberto - http://www.ambienteoffice.com.br- Marcado como Resposta Vinicius P Gomes quarta-feira, 4 de janeiro de 2012 13:13
-
-
Você tem que inserir esse código na classe da planiliha: http://www.ambienteoffice.com.br/officevba/modulos_em_vba/#inserir_codigo_num_objeto
Felipe Costa Gualberto - http://www.ambienteoffice.com.br