Ir ao conteúdo

Posts recomendados

Postado

Boa tarde,

sou novo no clube,  e estou desenvolvendo um banco de dados no VBA e me deparei com um problema estou copiando um valor de uma planilha para outra e não está dando certo pois está sendo copiado com a formatação e eu gostaria apenas do valor, 

segue alguns detalhes:

estou tentando copiar os dados de um a planilha que fiz como recibo , 

na célula F6 contém o numero do recibo que eu gostaria de salvar noutra planilha onde fica registrado algumas informações, então não estou conseguindo efetuar;segue o código desenvolvido 

'InserirRegistros Macro
'Rotina para checar se já há registros para salvamento
Dim Nome             As Integer
Dim W                As Worksheet
Dim WCad             As Worksheet

Set W = Sheets("Recibo")
Set WCad = Sheets("Registros")
W.Select
Nome = Range("G11").Value
WCad.Select
WCad.Range("A2").Select
    Do While ActiveCell.Value <> ""
    ActiveCell.Offset(1, 0).Select
    If ActiveCell.Value = Nome Then
          
   -  W.Select
   -  Range("F6").Select
   -  Application.CutCopyMode = False
   -  Selection.Copy
       
    - WCad.Select
    - ActiveCell.Offset(0, 7).Select
    - ActiveSheet.Paste
    - Application.CutCopyMode = False
    - ActiveSheet.Paste "
     
     W.Select
     Selection.ClearContents
     Range("G11").Select
     Nome = ""

Por enquanto estou apanhando na parte onde está marcada com o sinal (-)

se alguem puder ajudar agradeço ,

sucesso a todos 

 

Postado

Essa parte é a que copia e cola 

 

O ideal seria disponibilizar a planilha

 

Acho, so acho que se você inverter essa parte deve fuciionar

 

 - WCad.Select
    -  Range("F6").Select
    -  Selection.Copy
    
    -  W.Select
   

   - ActiveCell.Offset(0, 7).Select
    - ActiveCell.Paste
    - Application.CutCopyMode = False

 

 

Certeza so vendo o arquivo.

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!