Last seen: maio 31, 2024
Coloca assim: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Call Sua Macro End Sub
AMORIM123, primeiro para entender o que você quer, você coloca seu código para verificar se na planilha wshCadastro já existe a empresa "x" ...
Dá uma olhada nesse:
Oi, veja isso.
Ok, veja agora.
Olá, veja se é isso.
Quando você quer que o evento ocorra? Ao clicar em um botão ou ao digitar a data prevista ou ao abrir a planilha? No código atual não envia o e-mail...
Tenta esse: Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _ (ByVal pCaller As Long, ByVa...
O numlock desliga por causa dessa parte do código, especificamente o Sendkeys: If Len(reception) = 2 Or Len(reception) = 5 Then reception...
Olá, use isto: Private Sub Worksheet_Change(ByVal Target As Range) If [I7].Value = "não" Then MsgBox "Escreva aqui sua ...
Olá. fcarlosc verifica agora, limpei os inúmeros códigos repetidos, pois causam conflitos, também tive que adequar alguns códigos. Cuidado com o cop...
Veja se isso ajuda.
No clique do botão: Application.OnKey "%{F11}"
Bom, não sei exatamente como você quer tratar, se fechar a planilha ou somente desabilitar as macros, mas segue exemplo com as duas alternativas.
Olá, veja se isso ajuda, troque o botão por uma imagem (controle activex).