Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
copiar formatos e v...
 
Notifications
Clear all

copiar formatos e valores

 
Página 2 / 3
2024 - VBA & Macros
38 Posts
1 Usuários
0 Reactions
6,228 Visualizações
RSS
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Estou usando este código para copiar/colar parte de uma planilha , porem precisaria que fosse colado tambem a altura da linha pois a configuração das linhas "coladas" não está as mesmas da "copiada".

Tentei tambem com
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
mas não deu

Sub copiaCola()
Dim pl As Long
Dim ul As Long
Dim rng As Range
sht = ActiveSheet.Name
Set rng = Sheets(sht).Range("A2:Bh30")
rng.Select
Application.CutCopyMode = False
Selection.Copy

ul = Sheets(sht).Range("A65536").End(xlUp).Row
Sheets(sht).Range("A2:Bh30").Offset(ul - 1).Select ' determina para colar na primeira linha vazia
ActiveSheet.Paste

End Sub
 
Postado : 09/05/2012 7:26 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Sim Alexandre
Testei , não sei se fiz algo errado , mas as linhas "coladas" não estão preservando as alturas originais e ainda estão sendo ocultadas após a colagem.

 
Postado : 19/05/2012 8:45 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Vou testar aqui depois te retorno, mas pelo que eu a altura foi mantida, entratanto está ficando olcultado.

Att

 
Postado : 19/05/2012 9:22 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Favor remover caso haja Panei Congelado , ou algo desse tipo.

Att

 
Postado : 19/05/2012 5:42 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Alexandre ,
Deu não ; removi o congelamento de paineis mas mesmo assim a "colada" está ficando oculta e a altura das linhas ainda não está igual a "copiada";
está ficando assim :
1° linha - 23,25
2°linha - 33,75
3° linha - 33,75
4° linha a 27°linha - 33,75
28° linha - 33,75
29° linha - 33,75

deveria ser assim como em A2:BH30:
1° linha - 60
2°linha - 33,75
3° linha - 28,5
4° linha a 27°linha - 43,5
28° linha - 58,5
29° linha - 63,00

P.S - Não sei se tem algo a ver mas de A2:BH30 fica oculta o tempo todo ;esta parte da planilha(A2:BH30) tem unica e exclusivamente a funcão de ser "copiada" .

 
Postado : 20/05/2012 7:35 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Mas depois de executar o código, você desativa os painel congelado, e desbloqueia as linhas ocultas, aparece as informações que pediu da forma que pediu??

Mande seu anexo COMPACTADO!!!

Att

 
Postado : 20/05/2012 7:39 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Mas depois de executar o código, você desativa os painel congelado, e desbloqueia as linhas ocultas, aparece as informações que pediu da forma que pediu??

Mande seu anexo COMPACTADO!!!

Att

Tenho um código que retira o congelamento , usei o antes e depois para retirar e colocar novamente ,
Está acontecendo assim: descongela,copia,cola,congela; a "ocultação" não sei em que momento está acontecendo ;
Quanto as informações : como disse acima a altura das linhas não está igual.

Na planilha tem um botão "Inserir_Mais_Formulários" é só clicar nele e vc vai ver que está sendo "copiada / colada" mas oculta e sem altura correta das linhas apartir da linha 126.

Muito obrigado pelas grandes ajudas que tem me dado.

 
Postado : 20/05/2012 7:57 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

.

 
Postado : 22/05/2012 5:59 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Claudinei, eu gostaria de lhe fazer uma sugestão...

Remova dentro de seu projeto, os códigos para ocultar linhas, ou acerte a ordem ao chamar a rotina que lhe enviei!!!

 
Postado : 22/05/2012 4:17 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

vou tentar ajeitar aqui.valeu.

 
Postado : 23/05/2012 6:17 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Alexandre ,
Fiz o seguinte "desocultei" de A2:BH30 , que é a parte "copiada" , ai copia/cola e fica visivel Beleza ; ou seja , quando uso o código para copiar estando a area copiada oculta , a area colada tambem fica oculta.

Porem a altura das linhas não dá certo nem a porrete.

 
Postado : 23/05/2012 9:15 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Meu caro, eu não sei (talvez por falta de tempo e paciência), o que está acontecendo...

Quando eu fiz o teste se não estou enganado deu certo quanto as linhas.

Save esse seu arquivo como xlsm, e depois rode a macro.

Afinal que versão de Office é a sua?

Att

 
Postado : 24/05/2012 5:25 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Alexandre ,
Tenho os 3 offices , mas estou utilizando o 2010, e sempre em xlsb( pro arquivo ficar menor) ,será que tem alguma relação?

 
Postado : 24/05/2012 5:42 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

testei nas outras versões, não deu tambem

 
Postado : 26/05/2012 10:54 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Alguem com alguma solução

 
Postado : 31/05/2012 5:36 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Estou no aguardo

 
Postado : 04/06/2012 5:08 pm
Página 2 / 3
Forum Jump:
  Tópico Anterior
Próximo Tópico