Este fórum está sendo desativado

[vonzuben]

Consegui fazer até aqui, pois até está inserindo

Mas não estou conseguiu fazer o seguinte

Ao clicar no botão cria uma linha na row 13

ao clicar de novo gostaria de criar outra acima jogando a 13 para 14 e assim vai ( ascendente )

13 - linha criada ( segunda linha criada na row 13 )
14 - linha criada ( primeira linha criada na row 13 )

Sub Inserirlinha()

Dim nextrow As Integer
Dim shtFinanceiros As Worksheet

Worksheets("Financeiros").Range("A2:T2").Copy
Range("A13:T13").PasteSpecial

End Sub

Obrigado desde já !

[alexandrevba]

Bom dia!!

Seria isso?

Código: Selecionar todos

Sub Inserirlinha()

'Dim nextrow As Integer
'Dim shtFinanceiros As Worksheet

Worksheets("Financeiros").Range("A2:T2").Copy
Rows(13).Insert shift:=xlDown
Range("A13").PasteSpecial

End Sub

Att

[vonzuben]

Deu esse erro !
Essa operação não é permitida. A operação está tentando deslocar células em uma tabela da planilha.

[vonzuben]

https://www.dropbox.com/s/2q8btr85r3gih ... .xlsx?dl=0

[alexandrevba]

Boa tarde!!

No meu trabalho eu não tenho acesso a sites de hospedagem.

Eu não tive erro, verifique se a guia está protegida.

Att

[vonzuben]

Não tem como anexar direto pelo forum a planilha ?

[vonzuben]

A verdade que ele está pegando uma linha formatado A2:T2 e jogando na row 13 que não está formatado, pois assim não acontece o erro, sendo quando o row 13 está formtado ele não cola

[vonzuben]

Ele sempre vai jogar na última linha sem formatar seu código, pois se jogar entre A5 e A8 formato com borda e cor de célula vai dar erro 400

[laennder]

Qual o tamanho da sua planilha? Se for até 5 MB é possível anexar pelo fórum , sim.

[vonzuben]

Até consegui, mas está duplicando

Digitando Ex: 10 e ao clicar no botão inserir aparece dois 10

Linha - 11 aparece 10
Linha - 12 aparece 10

Digitando novamente Ex: 20 aparece da seguinte forma

Linha - 11 aparece 20
Linha - 12 aparece 20
Linha - 13 aparece 10

Segue a planilha para analisar

A linha 2 vou deixar oculta !