Fidelis Controll

Márcio, este código resolve o meu problema muito obrigado. Estou entrando para o mundo do VBA agora e não domino essas funções. Tenho uma outra planilha aqui que também queria automatizar. Tenho uma célula com formatação condicional que preenche o fundo da célula de vermelho, amarelo ou verde conforme a condição. Queria que toda linha por exemplo do A1:F1 seguisse a formatção de acordo com a célula G1 que é onde esta a formatação condicional. Resumindo colorir toda a linha de uma tabela em função de uma única célula. É possível. Se poder me ajudar agradeço muito. E mais uma vez obrigado pelo codigo. Ps: Uso o excel 2003

Pessoal Criei um documento no excel que é um formulário de pedido de compra e criei duas macros: A 1ª macro serve para colocar numeração seqüencial no pedido, toda vez que abre o formulário ela coloca um numero de controle. Desta forma fica pedido de compra 1, pedido de compra 2 e assim por diante. A 2ª macro serve para salvar um novo arquivo cujo o nome será o conteúdo da célula determinada, nesse caso a célula é a que mostra o número do formulário, dessa forma eu consigo preencher o formulário clico no botão da 2ª macro e salvo um novo arquivo com o nome de controle e na pasta determinada. O problema é o seguinte, o objetivo é sempre poder consultar os arquivos salvos, mas quando se abre novamente o arquivo salvo, a 1ª macro volta a executar e muda o numero de controle do formulário. Alguém pode me ajudar a resolver este problema, ou me da uma forma mais fácil de fazer o que eu to querendo? Obrigado Macro 1 Private Sub Workbook_Open() Range("u1") = Range("u1") + 1 ThisWorkbook.Save End Sub Macro 2 Sub SalvaArq() Dim Pasta, Nome As String Pasta = Sheets("Pedido de Compra").Range("v1").Value & "\" Nome = Sheets("Pedido de Compra").Range("t1").Value ChDir Pasta ActiveWorkbook.SaveAs Filename:= _ Pasta & Nome & ".xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False End Sub