INSERIR LINHAS EM UMA TABELA DE ACORDO COM UM NUMERO DIGITADO EM UMA INPUTBOX COMO FAZER?

Question

Prezados boa noite! tenho uma tabela, e gravei uma macro para inserir linhas abaixo na tabela, só que quando preciso inserir varias

linhas, tenho que clicar  varias vezes em um botão, tem como as linhas serem inseridas de acordo com o valor digitado em uma range ou imputbox?

por favor ajudem-me a otimizar...

resumindo aparece uma imputbox perguntando quantas linhas quero inserir digito e codigo abaixo será executado x vezes...

macro criada

Sub INSERIR_LINHAS()

'

' INSERIR_LINHAS Macro

'

'

Application.Goto Reference:="VALOR_TOTAL"

Range("Tabela1[VALOR (R$)]").Select

Selection.ListObject.ListRows.Add AlwaysInsert:=True

Rows("11:15").Select

Rows("11:15").EntireRow.AutoFit

Range("F3").Select

Answer 1

Olá genelsonmarques, tudo bem?

Agradecemos pela participação, postando suas dúvidas em nosso fórum.

Para conseguir o resultado desejado, utilize o seguinte código:

Sub INSERIR_LINHAS()

'

' INSERIR_LINHAS Macro

'

'

    Dim x As Double

    x = Application.InputBox("Digite a quantidade de linhas: ", "Inserir Linhas", "Digite um número", , , , , 1)

    Do Until x = 0

        Application.Goto Reference:="VALOR_TOTAL"

        Range("Tabela1[VALOR (R$)]").Select

        Selection.ListObject.ListRows.Add AlwaysInsert:=True

        Rows("11:15").Select

        Rows("11:15").EntireRow.AutoFit

        Range("F3").Select

        x = x - 1

    Loop

End Sub

Este código repetirá as instruções entre Do Until e Loop até que x seja 0.

Você poderá obter mais informações sobre VBA, programação e desenvolvimento no fórum do MSDN:

http://social.msdn.microsoft.com/Forums/pt-BR/home?forum=vbapt

Se esta solução resolver sua questão, marque como resposta.

Se tiver dúvidas, volte a postar compartilhando sua planilha pelo SkyDrive e informando o link.

Espero ter ajudado.

Até mais,

Fabio Toniolo

Answer 2

Muitíssimo obrigado! Fabio

abraço