Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Trabalhar com Planilha Oculta

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Herbrom



Mensagens : 1
Data de inscrição : 12/02/2016

MensagemAssunto: Trabalhar com Planilha Oculta   Sex Fev 12, 2016 8:35 pm

Boa tarde,
Sou novato no VBA e preciso de um socorro!
Tenho uma planilha "CAIXA" onde lanço diversos valores como num. pedido, vlr. pago em cartão1, cartão2, dinheiro, etc.,.
Com uma macro copio e colo cada valor do caixa para uma planilha "REGISTROS". Acontece que quero fazer o mesmo com outra planilha "REGOCU", oculta, que servirá para auditoria posterior. Fiz uma tentativa mas as planilhas ficam "piscando", ou seja, entrando e saindo e aí perde o sentido. Como resolvo? Abaixo trecho do que estou fazendo:

Sub Caixa()
'
' Caixa Macro
' Macro gravada em 19/2/2012 por Heron
'
'
   Range("F7").Select
'DATA
   Application.CutCopyMode = False
   Selection.Copy
   Sheets("Registros").Select
   ActiveCell.Select
'    ActiveSheet.Paste
   Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
       xlNone, SkipBlanks:=False, Transpose:=False
ActiveCell.Offset(0, 1).Select
' =0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=
ActiveWorkbook.Sheets("RegOcu").Visible = True
'Sheets("RegOcu").Visible = xlSheetHidden
   Sheets("RegOcu").Select
'ActiveSheet.Visible = xlSheetVeryHidden
   ActiveCell.Select
'    ActiveSheet.Paste
   Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
       xlNone, SkipBlanks:=False, Transpose:=False
ActiveCell.Offset(0, 1).Select
'ActiveWorkbook.Sheets("RegOcu").Visible = False
'=============================================================0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0==0=0=

   Sheets("Caixa").Select
   Range("F9").Select
'PEDIDO
   Application.CutCopyMode = False
   Selection.Copy
   Sheets("Registros").Select
   ActiveCell.Select
   Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
       xlNone, SkipBlanks:=False, Transpose:=False
ActiveCell.Offset(0, 1).Select
' =0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=
'ActiveWorkbook.Sheets("RegOcu").Visible = True
   Sheets("RegOcu").Select
   ActiveCell.Select
   Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
       xlNone, SkipBlanks:=False, Transpose:=False
ActiveCell.Offset(0, 1).Select
'ActiveWorkbook.Sheets("RegOcu").Visible = False
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Trabalhar com Planilha Oculta
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» [Vídeo Tutorial] Como Trabalhar Com Cores no Illustrator
» Como coloca a widget oculta no meu fomeiros
» Como oculta o registro de mensagens
» [Dúvida] Trabalhar com códigos CSS (Blockquote)
» Caixa oculta

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: