Notifications
Clear all

Dúvida - Copiar e colar célula oculta

11 Posts
3 Usuários
0 Reactions
2,000 Visualizações
(@francisco)
Posts: 78
Estimable Member
Topic starter
 

Pessoal, um ótimo final de domingo para todos.

Estava eu aqui trabalhando neste dia ensolarado de domingo, quando me deparei com um problema. Pelo menos pra mim. Acredito que para os senhores não seja tão problema assim.
Dessa forma, para facilitar, segue anexa a planilha com as informações que necessito no corpo do documento.

Mais uma vez agradeço a atenção.

Abraço,

Francisco Jr.

 
Postado : 28/12/2014 3:10 pm
(@edcronos)
Posts: 1006
Noble Member
 

pelo que eu saiba quando se copia, o excel filtra as colunas e linhas ocultas
mas na hora de colar ela cola em celulas continuas

se eu não estiver errado "memoria ruim, então nunca tenho certeza de nada"
oq vc quer penas é possível com vba

 
Postado : 28/12/2014 3:18 pm
(@francisco)
Posts: 78
Estimable Member
Topic starter
 

Pra mim não tem problema.
Tem muita informação na minha planilha, não dá pra copiar um a um.

Alguém pode me ajudar!!!

Abraços

 
Postado : 28/12/2014 3:39 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite Francisco

Eu já tive que fazer o que você deseja e fiz o seguinte:

Selecionei todo o intervalo que desejvaa copiar --> Guia Arquivo --> Localizar e Selecionar --> Ir Para --> Especial --> Marquei a opção --> Somente Células Visíveis --> OK --> dei CTRL+C e na outra planilha CTRL+V
Só colou as células visíveis.

Dê retorno.

Se a dica foi útil, clique na Mãozinha que fica do lado da ferramenta Citar.

[]s

OBS. Agora baixei a tua planilha e apliquei nela e deu certinho.

 
Postado : 28/12/2014 4:10 pm
(@francisco)
Posts: 78
Estimable Member
Topic starter
 

Patropi,

Eu até informei no meu texto que havia feito esse procedimento. Só que não deu certo. Daria certo se a outra planilha (para onde quero copiar) não tivesse células ocultas também. No caso, na hora que copio pra Plan2, os dados são inseridos nas células ocultas.

Atenciosamente,

Francisco Jr.

 
Postado : 28/12/2014 4:23 pm
(@edcronos)
Posts: 1006
Noble Member
 

francisco,

no caso quantas abas e pastas de trabalho são,
a colunas vc informou no seu exemplo, mas sobre as linhas eu não entendi
vc vai copiar de uma e colar nas outras,
vai copiar sempre da mesma ?

estou com o raciocínio meio lento, então quanto mais informação melhor.

 
Postado : 28/12/2014 4:45 pm
(@francisco)
Posts: 78
Estimable Member
Topic starter
 

O que acontece é o seguinte:

Tenho uma planilha onde são inseridas várias informações que ocorreram durante todo o ano de 2014.
Como estamos no final do ano, tem algumas linhas (referente a cada processo - PA) que deverão ser copiadas para a planilha 2015, já que não foram finalizados em 2014 e por consequência serão utilizadas em 2015. Por isso preciso que as informações relativas aquelas linhas/colunas sejam copiadas para a outra planilha Plan2. Para eu não ter de ficar copiando e colando cada uma das informações que são muitas.
Quando falei das linhas da Plan1 serem as mesmas da Plan2 é porque depois as outras linhas serão bloqueadas. Ficarão disponíveis apenas para cadastro das informações.

Espero ter sido um pouco mais claro.
Qualquer coisa estou à disposição para maiores esclarecimentos. Eu preciso muito dessa ajuda.

Obrigadão.

Abs.

 
Postado : 28/12/2014 7:29 pm
(@edcronos)
Posts: 1006
Noble Member
 

cara fiquei na mesma
eu não sei até que linha vai isso

então fiz uma macro simples que copia exatamente as ranges que está no seu exemplo
mas caso mude as posições é só editar a macro que está bem fácil de se entender

Sub copiar_colar()
aba_origem = "Plan1"
aba_destino = "Plan2"

Rango = "A2:E34"
Rango2 = "Q2:Q34"
Rango3 = "S2:S34"
Rango4 = "AL2:AL34"
Rango5 = "BY2:BY34"

With Sheets(aba_destino)

.Range(Rango).Value2 = Sheets(aba_origem).Range(Rango).Value2
.Range(Rango2).Value2 = Sheets(aba_origem).Range(Rango2).Value2
.Range(Rango3).Value2 = Sheets(aba_origem).Range(Rango3).Value2
.Range(Rango4).Value2 = Sheets(aba_origem).Range(Rango4).Value2
.Range(Rango5).Value2 = Sheets(aba_origem).Range(Rango5).Value2
End With

End Sub

tem que colocar em um modulo "eu acho :P "

 
Postado : 28/12/2014 7:51 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Francisco

Veja se a macro do tutorial deste link pode te ajudar
http://support.microsoft.com/kb/186106/pt-br

[]s

 
Postado : 28/12/2014 7:59 pm
(@edcronos)
Posts: 1006
Noble Member
 

tentei refazer a macro para colar em outra pasta de trabalho

a falta de informação dificulta as coisas, "eu nem posso falar nada, sempre enrolo nas minhas perguntas :? "

Sub copiar_colar()
  '---------pasta de trabalho de onde vai ser copiado
    Pasta_origem = "Planilha2014"
 '------------aba da pasta de trabalho de origem de  onde vai ser copiado os dados
    aba_origem = "Plan1"

'--------------pasta de trabalho onde vai ser colado
    Pasta_destino = "Planilha2015"
'----------------aba da pasta de trabalho de destino onde vai ser colado os dados
    aba_destino = "Plan2" 
            
    Rango = "A2:E34"
    Rango2 = "Q2:Q34"
    Rango3 = "S2:S34"
    Rango4 = "AL2:AL34"
    Rango5 = "BY2:BY34"

    With Workbooks(Pasta_destino).Sheets(aba_destino)

    .Range(Rango).Value2 = Workbooks(Pasta_origem).Sheets(aba_origem).Range(Rango).Value2
    .Range(Rango2).Value2 = Workbooks(Pasta_origem).Sheets(aba_origem).Range(Rango2).Value2
    .Range(Rango3).Value2 = Workbooks(Pasta_origem).Sheets(aba_origem).Range(Rango3).Value2
    .Range(Rango4).Value2 = Workbooks(Pasta_origem).Sheets(aba_origem).Range(Rango4).Value2
    .Range(Rango5).Value2 = Workbooks(Pasta_origem).Sheets(aba_origem).Range(Rango5).Value2
    End With

    End Sub

até daria para fazer um loop com todas as pastas de trabalho
mas teria que ter mais informação de onde e para onde vai ser copiado para não se cometer erros

 
Postado : 29/12/2014 8:11 pm
(@francisco)
Posts: 78
Estimable Member
Topic starter
 

Agradeço muito a sua atenção.

Amanhã tentarei adaptar a macro à minha planilha. Estava trabalhando nela até agora pouco.
Estou morto.
Fiz uma adaptação, tirei todas as células mescladas, conforme alguns colegas já haviam me orientado.
Te dou um retorno amanhã. Certamente terei de detalhar mais as informações.

Abs.

Francisco Jr.

 
Postado : 29/12/2014 10:19 pm