Eduardo Both

Muito obrigado, creio que isso vá funcionar perfeitamente (alterando a célula a ser modificada de acordo com a necessidade, claro). Qualquer problema reporto aqui mesmo. Assim terminar os testes e tudo estiver funcionando ok venho aqui avisar o/ Muito obrigado mesmo.

Olá pessoal, é meu primeiro post no fórum (pra ser sincero, me cadastrei pra poder pedir essa ajuda, portanto meu problema não é exatamente prioridade, visto que não contribui nada com o fórum xD), então me desculpem qualquer erro/engano. Enfim, meu problema é o seguinte: Situação/necessidade: Imaginem aquelas notas fiscais ou ordens de serviço, etc. que têm um "numero de controle" (em versões impressas costumas ser um numero que vai incrementando a cada folha). Pois bem, há um arquivo modelo para ordens de serviço e a idéia é incrementar o valor da célula que contem o "numero da folha" a cada impressão automaticamente pra garantir que não haja numeros iguais (o que geraria tremenda bagunça xD). Até onde cheguei: Bem, sozinho consegui chegar somente até o seguinte código Private Sub Workbook_BeforePrint(Cancel As Boolean) If Not (ActiveWorkbook.Saved) Then ActiveWorkbook.Save End If End Sub Nota-se que até o momento o máximo que consegui foi salvar o arquivo antes de ser impresso (coisa que eu ainda nem sei se vou usar mesmo...). O que falta é exatamente a parte de incrementar o numero de controle. Idéia: A idéia é um script que fassa algo do tipo "getValor_da_célula > incrementa esse número > setValor_na_célula". Não precisa haver nenhum tipo de controle relativo a saber se a impressão foi bem sucedida ou não para que o numero seja incrementada, visto que só é necessário garantir que o valor seja diferente (resumindo, não preisa ser sequencial). ---------------------------------------------- Enfim, é isso. Como disse no inicio, esse é meu primeiro post no fórum, o que significa que estou pedindo sem nunca ter dado nada xD Espero poder contribuir no futuro em retribuição a ajuda de vocês o/ Obrigado pela atenção o/