Jump to content
Fórum Script Brasil
  • 0

Adicionar nova linha em um intervalo


arthur.andrade96
 Share

Question

Oi pessoal, tudo bom? Venho pedir encarecidamente que me ajudem! 

Estou tentando criar um banco de dados, mas que possui várias "categorias".

Por exemplo, A4:AN65 possui a categoria "Produtos" e A72:AN135 possui a categoria "Produtos Online" e daí por diante.

Todas essas categorias são adicionadas por meses, e possuem registros desde 2012 (de Janeiro a Dezembro, de 2012 até 2016).

Eu queria, cada vez que clicasse em um botão, adicionar um mês X ao final da categoria Produtos (no caso, uma linha no fim da A65) e adicionar o mesmo mês X ao final da categoria Produtos Online (no caso, uma linha após a A135).

Importante frisar que quero adicionar ao final dessa linha, mas após ela há outras linhas preenchidas, como TOTAL, MÉDIA e etc.

Alguém sabe como faço isso?

Segue imagem como EXEMPLO.

exemplo.png

Link to comment
Share on other sites

1 answer to this question

Recommended Posts

  • 0

Segue solução; Não consegui enviar o anexo por aqui... me passa seu email que te encaminho.

Option Compare Text

Sub adiciona_mes()


lin = 6
fim = Range("C" & Rows.Count).End(xlUp).Row
mes = Range("H2")

Do While lin <= fim
    If Cells(lin, 3) = "Total" Then
    Rows(lin).Insert
    Cells(lin, 3) = mes
    lin = lin + 1
    End If
lin = lin + 1
Loop
End Sub

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.6k
    • Total Posts
      646.2k
×
×
  • Create New...