Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Duplicando a cópia
 
Notifications
Clear all

Duplicando a cópia

 
Página 1 / 2
2024 - VBA & Macros
Post Recente por vonzuben 9 anos atrás
30 Posts
3 Usuários
0 Reactions
2,164 Visualizações
RSS
 vonzuben
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

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
 
Postado : 26/01/2016 11:12 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Olhando o codigo nao tem motivos aparentes para isso

Depure o codigo com as duas telas abertas que vc vai ver o pq esta acontecendo o erro...

Se nao conseguir descobrir disponibilize o arquivo. completo, com dados de exemplo.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"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.

 
Postado : 27/01/2016 4:50 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia,

Veja se este código atende:

Sub InserirLinha()
   'desabilita atualização de tela
    Application.ScreenUpdating = False
    
    'Copia e insere linha antes da 12 e cola na 11
    Worksheets("Financeiros").Range("A2:T2").Copy
    Rows(11).Insert Shift:=xlDown
    
    Application.CutCopyMode = False
    
    'habilita atualização de tela
    Application.ScreenUpdating = True
End Sub

Se for necessário usar o "Colar Especial":

Sub InserirLinha()
   'desabilita atualização de tela
    Application.ScreenUpdating = False
    
    'insere linha antes da 12
    Rows(11).Insert Shift:=xlDown
    
    'cola na 11
    Worksheets("Financeiros").Range("A2:T2").Copy
    Range("A11:T11").PasteSpecial xlPasteValues
    
    Application.CutCopyMode = False
    
    'habilita atualização de tela
    Application.ScreenUpdating = True
End Sub

Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 27/01/2016 5:38 am
 vonzuben
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Já tinha testado isso JValq, pois o primeiro da erro na linha Rows(11).Insert Shift:=xlDown

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

 
Postado : 27/01/2016 5:52 am
 vonzuben
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Segue a planilha para analisar

A linha 2 vou deixar oculta !

Linha10.xlsm
 
Postado : 27/01/2016 5:55 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Ve se é isso ou se consegue ajustar

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"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.

 
Postado : 27/01/2016 6:48 am
 vonzuben
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Isso também já tentei, pois pode ver que ele não está copiando o valor 20 e nem as bordas ( grade em preto )

 
Postado : 27/01/2016 7:48 am
 vonzuben
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Colando numa linha sem formatação ele funciona, mas já numa linha já formatado não vem com a formatação

Bem cabuloso isso !

Pasta2.xlsm
 
Postado : 27/01/2016 7:54 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Aqui copiou o valor

Nao é so pra copiar???

Vc disse que estava duplicando o valor e isso foi resolvido pelo menos aqui.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"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.

 
Postado : 27/01/2016 8:26 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Depois algum moderador junta as duas

Testa esse

Sub Inserirlinha()

'desabilita atualização de tela
Application.ScreenUpdating = False


'insere linha antes da 12
Worksheets("Financeiros").Range("A2:T2").Copy

'copia linha 2 e cola na 11
'Rows("2:2").Copy
Range("A11:T11").PasteSpecial Paste:=xlPasteValues
Range("A11:T11").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
Range("11:11").Insert Shift:=xlDown

'habilita atualização de tela
Application.ScreenUpdating = True

End Sub

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"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.

 
Postado : 27/01/2016 8:35 am
 vonzuben
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Copiar o valor e a formatação !

Esse código que você acabou de passar também já tentei, colocando Paste:=xlPasteFormats mas não deu certo

Na pasta2 que passei, pode ver que ela faz direitinho, copia e cola, QUANDO COLA numa linha sem formatação

O mais próximo que chegou foi esse código em anexo, mas está duplicando

Já tentei de tudo aqui !

Linha10.xlsm
 
Postado : 27/01/2016 10:04 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Vc testou o codigo completo que postei.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"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.

 
Postado : 27/01/2016 10:14 am
 vonzuben
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Incrível que no arquivo pasta2 ele faz certinho
Quando coloco numa planilha com formatação ocorre isso abaixo

Está faltando alguma coisa, pois quando consigo colocar as grades ( bordas ) ele duplica e quando tiro a duplicação não copia a formatação grades ( bordas )

 
Postado : 27/01/2016 10:19 am
 vonzuben
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Sim

 
Postado : 27/01/2016 10:21 am
 vonzuben
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Resolvi ! aff

 
Postado : 27/01/2016 10:43 am
Página 1 / 2
Forum Jump:
  Tópico Anterior
Próximo Tópico