Macro para inserir nova linha

Question

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.

Answer 1

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

Answer 2

Quando eu colo o código no ambiente de Macro e clico no botão executar, não aparece nenhuma macro para tal, inclusive a ultima que criei.... Porque?

Answer 3

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