Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
COPIAR SO CONTEUDO ...
 
Notifications
Clear all

COPIAR SO CONTEUDO DA CELULA

 
2024 - VBA & Macros
2 Posts
2 Usuários
0 Reactions
1,050 Visualizações
RSS
 wenpra
(@wenpra)
Posts: 76
Estimable Member
Topic starter
 

Estou com esse código para copiar células de uma planilha para outra mas além do conteúdo esta copiando a formatação da célula também como faço para só copiar o conteúdo.

Sheets("Tela_Pedidos").Activate
Range("A2").Select
If ActiveCell.Text <> "" Then
ult_lin = Range("A" & Rows.Count).End(xlUp).Row
Range("A2:E" & ult_lin).Copy

Sheets("Tela_Geral").Activate
ult_lin = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & ult_lin).Select
ActiveCell.Offset(1, 0).Select
Selection.Insert Shift:=xlDown
End If

 
Postado : 19/09/2014 9:41 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Não testado!!!

Sub AleVBA_13012()
Dim lr As Long
Dim ws1 As Worksheet

Set ws1 = Sheets("Tela_Pedidos")
lr = ws1.Cells(Rows.Count, "A").End(xlUp).Row

ws1.Range("A1:E" & lr).Copy
With Sheets("Tela_Geral").Range("A1").End(xlUp).Offset(1, 0)
     .PasteSpecial xlPasteFormats
     .PasteSpecial xlPasteValues
End With
Application.CutCopyMode = False
End Sub

Att

 
Postado : 19/09/2014 10:39 am
Forum Jump:
  Tópico Anterior
Próximo Tópico