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