Macro insere dados em cima do ultimo lançamento

[rodrigobiell]

Olá

fiz uma planilha com uma macro simples onde os dados digitados na tela de cadastro são exportados para a Plan!3 onde temos a base de dados.

o problema é que os dedos novos deveriam vir para a primeira linha da base de dados empurrando os já existentes para baixo.

isso não está acontecendo, os dados novos estão substituindo os já existentes.

onde está meu erro ?

obrigado

[Xflapc2]

você tem q 1o adicionar una linha para depois colar os dados. Poste aqui a macro p melhor análise

[rodrigobiell]

segeua a macro

não tenho permissao para anexar a planilha .... nao sei porque acho que é porque tem macro.

obrigado

 

Sub Cadastrodealunos()
'
' Cadastrodealunos Macro
'

'
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("Plan2").Select
    Selection.Copy
    Sheets("Plan3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Plan1").Select
End Sub
 

[Basole]

veja se é isso:

 

Sub Cadastrodealunos()
'
' Cadastrodealunos Macro
'
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("Plan3").Activate
    Sheets("Plan3").[a1].Activate
    ActiveCell.Offset(1).EntireRow.Insert
    Sheets("Plan2").Activate
    Selection.Copy
    Sheets("Plan3").Activate
    Sheets("Plan3").[a2].Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   Sheets("Plan2").Select
    Application.CutCopyMode = False
    Sheets("Plan1").Select
    
End Sub

[rodrigobiell]

Perfeito Basole

muitissimo obrigado

sabe me dizer porque eu nao tenho permissão para adicionar em anexo um planilha com macro ?

 

obrigado

resolvido

[Basole]

Nao tenho certeza, mas acredito q eles nao aceitam este tipo de arquivo com macros. A opcao é voce zipar o arquivo ou posta-lo em algum site gratuito, por ex. 4shared, sendspace, drive.google. onedrive etc e colocar o link p/ download aqui.

 

Se nao tiver mais duvidas, por favor click em resolvido p/ manter o forum orgaiizado.

[Xflapc2]

Não poste arquivos com macros pois pode propagar virus e dificilmente alguem abrirá um arrquivo com macros

simplesmente poste a macro aqui

e se necessario apenas a planilha xlsx sem a macro para vermos.

[rodrigobiell]

DEU certo só que quando volta na plan1! insere um nova linha em cima assim a planilha vai sempre descendo ...

segue link da planilha já com a macro que o BASOLE passou 

 

https://www.sendspace.com/file/90gqug

obrigado

[Xflapc2]

Se é pra copiar o conteúdo da linha 2 da Plan1 para a primeira linha da plan3 jogando pra baixo os existentes o código é este:

 

Se não for isso, me diga o local dos dados a serem copiados e o destino desejado (célular/linha/região planilha)

 Sub CadAluno() Sheets("Plan3").Range("A1").Insert Sheets("Plan1").Rows("2:2").Copy Destination:=Sheets("Plan3").Range("A1")   End Sub

[rodrigobiell]

xflapc2

é para copiar o conteudo da lina 2 da plan2! para a segunda linha da plan3! jogando o já existentes para baixo e após isso voltar para a plan1!

obrigado

[Xflapc2]

 Sub CadAluno()

 Sheets("Plan3").Range("A2").Insert
 Sheets("Plan2").Rows("2:2").Copy Destination:=Sheets("Plan3").Range("A1")

 Sheets("Plan1").activate

  
 End Sub

[rodrigobiell]

não exporta os dados da plan2! linha2 para a plan!3

acho que consegui

olha só 

Sub CadAluno()

 Sheets("Plan3").Range("A2").Insert
 Sheets("Plan2").Rows("2:2").Copy Destination:=Sheets("Plan3").Range("A2")

 Sheets("Plan1").activate

  
 End Sub

 

o erro estava ai onde está em vermelho Range('A2""

só que agora na plan3! onde vai criando o banco de dados de todos cadastrados

da linha 8 em diante só aparece em plan3! o nome os outros dados nao estão indo para a plan3 

[Xflapc2]

Isso aí, esqueci de trocar A1 para A2.

nao entendi o problema

"da linha 8 em diante só aparece em plan3! o nome os outros dados nao estão indo para a plan3 "

como nao estão indo para a plan3 se você disse que está ffuncionando aqui testei e ta ok,

ele nao faz nada mais do que copiar a linha 2 da plan2 para a linha 2 da plan3

se tem mais alguma coisa pra fazer você tem q dizer

[rodrigobiell]

sim é isso mesmo

o que está na linha 2 da plan2! nao está indo por completo para a plan3!

tá muito estranho aqui, cada vez que abro é um erro diferente 

primeiro os dsos iam para a plan3 até a linha 7, a partir da linha 8 só ia o nome e nada mais 

agora altera todos nomes da plan3 para o ultimo lançado ...

me manda ai a que você testou´para eu substituir a minha 

[Xflapc2]

nao estou entendendo

nao tem que falar nada de linha 8 ou 7

porque a macro só trabalha com a linha 2

ela nao faz nada com linha 8 ou 7

e ela copia a linha toda 2 da plan2 para a linha 2 da plan3

ja testei aqui 

tem alguma coisa que você nao ta sabendo explicar

as linhas 8 e 7 sao linhas que ja foram inseridas anteriormente

e nao sei como voce fez para fazer essa copia daí que pode ter sido com codigo ou de maneira errada

[rodrigobiell]

sim

copia a linha toda 2 da plan2 para a linha 2 da plan3

e empurra as linhas já existentes para baixo

NISSO QUANDO OS DADOS JÁ  EXISTENTES

chegam na linha 8 só aparece o nome e nada mais

tá f* to quasee desistindo, estou desde hoje cedo nisso

https://www.sendspace.com/file/fyy74v

[Xflapc2]

foi mal

falha no código

agora sim

Sub CadAluno() Sheets("Plan3").Range("A2").EntireRow.Insert Sheets("Plan2").Rows("2:2").Copy Destination:=Sheets("Plan3").Range("A2") Sheets("Plan1").Activate   End Sub

[rodrigobiell]

só tenho que te agradecer

mas cara nao dá na plan3! fica todas as linhas com os dados do ultimo lançado   

[Xflapc2]

rs

fale o excel-ês fica mais fácil de entender

fale assim:

na linha 2 coluna B tá aparecendo o dado xyz que não queria

ou seja: fale o endereço do problea (célula, linha, coluna e planilha) e o valor que está aparecendo e o valor que voce esperava.

porque assim n entendo o prob

[rodrigobiell]

vou tentar rs

a ideia é copiar a linha  2 da plan2 para a linha 2 da plan3

só que na na plan3 todos os dados ja existentes são substituidos pelo último lançamento que eu fizer.

tá copiando a linha 2 da plan2 para todoas as linhas da plan3

ex: se na plan3 eu tenho os dados de jose, pedro, antonio e mario e eu lançar dados de uma nova pessoa com o nome de chico todos esses já existentes na plan3 irao assumir o nome do ultimo que eu lancei

[Xflapc2]

Ah tá, é que pensei que na linha 2 so tinha os dados que voce digitou

mas pelo visto tem formulas, daí o erro

Sub CadAluno()Sheets("Plan3").Range("A2").EntireRow.InsertSheets("Plan2").Rows("2:2").CopySheets("Plan3").Range("A2").PasteSpecial xlPasteValuesSheets("Plan1").ActivateApplication.CutCopyMode = FalseEnd Sub

[rodrigobiell]

nossa!

nem acredito mas agora deu certo

lancei 15 dados e todos forma certinho

nem sei como agradecer 

valeu mesmo

[Xflapc2]

o que acontece é que na plan3 as linhas que ja existiam estão com formulas então vão estar todas erradas mesmo

voce tera que lanca-las de novo

os dados estão perdidos.

Clica no botao melhor resposta la no meu post ai fecha o tópico.

Valeu! Tb vou treinando o VBA rs