Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
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  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Trabalhar com Planilha Oculta

Ir para baixo 
AutorMensagem
Herbrom




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

Trabalhar com Planilha Oculta Empty
MensagemAssunto: Trabalhar com Planilha Oculta   Trabalhar com Planilha Oculta EmptySex 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
Ir para o topo Ir para baixo
 
Trabalhar com Planilha Oculta
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Dividir Sub
» Erro ao acessar uma planilha oculta com um macro?
» Visualizar outra planilha de Excel enquanto Outra esta Oculta por Código
» Abrir planilha com um form fixo e os comandos que esta na planilha funcionarem.
» Macro para copiar dados de uma planilha e colar na última linha vazia de outra planilha

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: