O Excel auto insere uma nova linha quando a linha acima é preenchida com texto

0

Euqueroencontrarumamaneiradeterumanovalinhaquandoeutiverpreenchidoaanteriorcomotexto.Issoéparausarcomoumaferramentadecotação.

Atualmente,tenhoumatabelacomlinhasdetarefasparaconcluireumresumodecustosaopé.Eugostariaqueissocomeçassecomumalinhaembrancoparaeudigitaraentradaeadicionarumanovalinhaassimqueeufizesse,afimdepermitirqueeuadicionasseumanovaentrada,senecessário.

Eutenteiumavariedadedecoisas,incluindoadicionarumbotãodemacroparainserirumalinhaquandoclicado,maseuprefeririaqueelefosseautomatizado,conformeométododobotãorequerparaalinhaserdigitada,oquepodelevaraerros.EutambémtenhotentadotrabalharcomoseguintenoVBA,masestourecebendoumerrodeestouro.Tenteialterarissocombaseemalgoqueencontreiemoutrolugaron-line.EusounovonoVBAeestouapenasvagamentecientedeondeestouindoerradocomisso.

SubAddBlankRows()'DimiRowAsInteger,iColAsIntegerDimoRngAsRangeSetoRng=Range("D6")

iRow = oRng.Row
iCol = oRng.Column

Do
'
If Not Cells(iRow, iCol).Text = "" Then

    Cells(iRow + 1, iCol).EntireRow.Insert shift:=xlDown

    iRow = iRow + 2

Else

    iRow = iRow + 1

End If

'
Loop While Not Cells(iRow, iCol).Text = "Description of Work"

'
End Sub
    
por Lydia W 18.05.2017 / 18:25

1 resposta

0

É uma abordagem errada. Isso é impossível de fazer sem o conhecimento do VBA.

Mas você pode tentar usar tabelas nomeadas (somente no MS Excel 2007 e acima). Crie uma tabela com três colunas (Entrada, Custo, Custo) preencha a primeira linha, selecione esta tabela e pressione CTRL + T (marque a caixa de seleção sobre a cabeça).

Agora, você tem uma tabela com filtros (que são aplicados somente ao intervalo de tabela). Quando você preencher alguns dados para a linha sob a tabela, ele será automaticamente adicionado à tabela. E o que é melhor, você pode facilmente fazer o SUM (ou outra fórmula) para toda a coluna * da tabela! =SUM(Table_name[Column_name])

O nome da tabela pode ser editado na lista de faixas que aparece quando a célula da tabela é selecionada.

Exemplo do GIF

    
por 19.05.2017 / 13:49