Está duplicando a cópia
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
O que pode ser ?
Não vejo nada que pode está duplicando !
Obrigado desde já !
Sub Inserirlinha() 'desabilita atualização de tela Application.ScreenUpdating = False 'Copia e insere linha antes da 12 Worksheets("Financeiros").Range("A2:T2").Copy Range("12:12").Insert Shift:=xlDown 'cola na 11 Range("A11:T11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False 'habilita atualização de tela Application.ScreenUpdating = True End Sub
Qual a solução encontrada
Marcelo Prudencio
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.
Resolvi nada, pois é macabro isso !
Abre essa planilha clica no +
Copiou a linha com o número 10 correto ?
Depois no G2 coloca 20 e vai copiar ficando assim as linhas
20
10
Certinho, perfeito ! Correto ?
Agora vou passar outra planilha com o MESMO CÓDIGO e vai fazer o mesmo procedimento e verá que o número duplica ( linha duplicando )
Agora faz o mesmo procedimento nessa planilha e veja o que acontece
Lembrando: é o mesmo código !
Aqui o codigo das duas planilhas estao funcionando corretamente
Marcelo Prudencio
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.
Foi o que eu lhe disse aqui nao esta acontecendo isso...
Funciona perfeitamente
Marcelo Prudencio
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.
Na planilha linha 10 tem o codigo no modulo de planilha (Finaceiros)
Sub Inserirlinha() 'Dim nextrow As Integer 'Dim shtFinanceiros As Worksheet Worksheets("Financeiros").Range("A2:T2").Copy Rows(12).Insert shift:=xlDown Range("A12").PasteSpecial End Sub
e outro no modulo Geral (Módulo1)
Sub Inserirlinha() 'desabilita atualização de tela Application.ScreenUpdating = False 'insere linha antes da 12 Worksheets("Financeiros").Range("A2:T2").Copy Range("12:12").Insert shift:=xlDown 'copia linha 2 e cola na 11 'Rows("2:2").Copy Range("A11:T11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False 'habilita atualização de tela Application.ScreenUpdating = True End Sub
São diferentes,
a rotina no Modulo Geral irá provocar o que o VONZUBEM descreve
a rotina no Modulo de Planilha perfaz o que o MPRUDENCIO descreve
Qual cada um esta executando
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Não acredito nisso, pois não cheguei nem a perceber
Reinaldo, qual a diferença desses 2 códigos ?
O primeiro é bem compactado e faz a mesma coisa
Quando deve se trabalhar com modulo geral e modulo de planilha ?
Obrigado desde já !
Eu estou rodando nas duas planilhas o codigo do modulo....que por padrao se coloca rotinas que dependem da interferencia do usuario
Na folha so uso codigos que devem ser rodados sem a interferencia do usuario
Ou codigo inseridos em objetos activex (botões por exemplo) , mas evito usar assim para evitar confusões.
Tb nao vi o codigo na folha da aba....
Marcelo Prudencio
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.
O codigo que funciona esta no modulo 1 da planilha linha 10 é esse:
Sub Inserirlinha() 'desabilita atualização de tela Application.ScreenUpdating = False 'insere linha antes da 12 Worksheets("Financeiros").Range("A2:T2").Copy Range("12:12").Insert shift:=xlDown 'copia linha 2 e cola na 11 'Rows("2:2").Copy Range("A11:T11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False 'habilita atualização de tela Application.ScreenUpdating = True End Sub
Marcelo Prudencio
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.
A duplicação não é pela existencia das dua rotinas.
Na rotina em Módulo1:
Primeiro Trecho:
'insere linha antes da 12
Worksheets("Financeiros").Range("A2:T2").Copy 'Copia a Range A2:T2
Range("12:12").Insert shift:=xlDown 'Insere linha e os dados copiados na linha 12
Segundo Trecho
'copia linha 2 e cola na 11
'Rows("2:2").Copy 'Copia toda a linha 2
Range("A11:T11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False 'Cola os dados copiados na linha11
Assim pode se notar o motivo da duplicação de dados
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Já fiz de tudo, pois quando tem formatação entre a linha que você quer colar da erro