Gustavo Lomba

Amigo, boa noite. Tenho 2 abas no mesmo arquivo, como aplico o código para ambas as abas? A estrutura das planilhas e o racional será o mesmo. Obrigado.

Beleza amigo, funcionou!!! Muito obrigado pela ajuda novamente!

Excelente, funcionou! Seria possível aparecer esta msg box 'Arquivo preenchido incorretamente, salvar mesmo assim?' com as opções "Sim" e "Não"? Se sim, Salvar e fechar a planilha. Se não, não salvar mas manter a planilha aberta. Não utilizaríamos mais a msg box anterior. Obrigado pela ajuda amigo!

Ótimo amigo funcionou perfeitamente, uma única questão, o arquivo está deixando salvar, porém, não deixa fechar, gostaria que a msg box aparecesse ao clicar em salvar e fechar não deixando salvar.

Olá amigo, aparece o erro "erro de compilação" era esperado End sub. Segue código: Sub Macro6() ' ' Macro6 Macro ' ' Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Tenho uma planilha excel e só quero que o arquivo seja salvo se a célula Q1 seja igual a 300%, 'caso negativo aparecerá uma msgbox com o texto "Arquivo preenchido incorretamente, não foi possível salvar". If Sheets("Ativos").Range("Q1").Text <> "300%" Then MsgBox "Arquivo preenchido incorretamente, não foi possível salvar", vbCritical, "Aviso" Cancel = True End If End Sub

Olá, boa noite. Tenho uma planilha excel e só quero que o arquivo seja salvo se a célula Q1 seja igual a 300%, caso negativo aparecerá uma msgbox com o texto "Arquivo preenchido incorretamente, não foi possível salvar".