Pela tua descrição, parece que somente com programação.

Porém, não entendi muito bem. Vc teria como disponibilizar um modelo compactado?

Gilmar, boa tarde.

Obrigado pelo retorno. Pois bem, anexo segue a planilha que comentei. Como funcuiona:
- Há uma lista de pessoas do departamento onde, semanalmente, jogamos na megasena ( aposta mínima ou R$ 2,00 - célula AA4 ). Levando em consideração a última coluna desta planilha, manualmente é inserido na célula O1 o valor do prêmio da semana, na célula O2 o número da aposta e na célula P2 é inserido a letra "X" tão logo o concurso fique valendo. Quando se preenche a célula O2, todos os valores são copiados da coluna anterior; por outro lado, ao inserir o "X" na célula P2, automaticamente é debitado R$ 2,00 de cada um, ficando o saldo positivo ou negativo, com formatação condicional quando isso ocorre ( fonte em vermelho com fundo amarelo).
Apenas como informação, a coluna A serve apenas pra desligar quem quiser desistir. Digitando a letra "X", em todos os campos do saldo na linha aparecem a inscrição "congelado".
O que eu gostaria:
- Ao ser preenchido a letra "X" na célula P2, por exemplo, automaticamente as colunas Q e R seriam formatadas ( com vínculos e fórmulas, inclusive ) baseadas nas duas colunas anteriores, respeitando o funcionamento correto da planilha. E assim sucessivamente ( preencheu o "X", as próximas duas colunas são formatadas ).

Basicamente isso. Uma vez mais, agradeço sua atenção.

Abraços.

Gerei uma macro gravável (abaixo) sobre o que necessito. No exemplo, são selecionadas as células O1 até P158 e isso é colado na célula Q1. Beleza, tá correto. Porém, seguindo ainda este exemplo, tão logo P2 recebesse a letra "X", ela entraria em execução novamente, porém selecionando as células Q1 até R158 e colando tudo a partir da célula S1. E assim sucessivamente.
-------------------------------------------------------------

Sub Macro1()
'
' Macro1 Macro'

'
Range("O1:P158").Select
Selection.Copy
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 106
ActiveWindow.ScrollRow = 102
ActiveWindow.ScrollRow = 98
ActiveWindow.ScrollRow = 94
ActiveWindow.ScrollRow = 89
ActiveWindow.ScrollRow = 83
ActiveWindow.ScrollRow = 75
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 59
ActiveWindow.ScrollRow = 51
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 3
Range("Q1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("R2").Select
End Sub

wwwagner

Para a boa organização do fórum movi teu tópico para a sala VBA & Macros.

Por enquanto vou deixar o tópico sendo mostrados nas duas salas para você se localizar.

At.te

Patropi - Moderador

Com formatação condicional vc consegue...

Me avise.

Abs,