none
Macro para inserir nova linha RRS feed

  • 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.

    quarta-feira, 25 de maio de 2011 15:41

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
    quarta-feira, 25 de maio de 2011 21:37
    Moderador

Todas as Respostas