Boa noite! Esse X, refere se a instalação! Note que se abrir um único arquivo (MeuArquivo.xls), e minimizar (na parte de baixo), a na janela da inst...

Boa noite!! Até onde sei, não! Att

Veja se é isto: Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) If ListBox1.ListIndex = -1 Then MsgBox &q...

Boa noite Luislapa Por enquanto algum colega não responde em VBA, deixo a minha contribuição com fórmulas nativas do Excel. 24_04_14_SOMASE E CONT....

Boa noite... Deixa assim: Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) If Me.ListBox1.ListIndex = 0 The...

Boa tarde Adriana Veja se é assim: 24_04_14_Escala com folga no Domingo-Patropi.zip Dê retorno. Um abraço.

Boa tarde!! Eu não estou entendendo. o que é planilha para você é a guia ou arquivo? Att

Contribuindo, Tambem pode ser utilizado no Evento da Aba : Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(ActiveCell,...

Boa tarde!! Explique mais, eu ainda não percebi sua dúvida Att

Boa tarde!! Bom não sei se é isso que você queria, mas se você clicar no minimizar do arquivo ( e não da instalação), a mensagem vai aparecer!! At...

Boa tarde!! Use a pesquisa do fórum!! Leia também: Att

Boa tarde!! Exemplo. Private Sub Workbook_Open() Range("A1").Value = Time End Sub Obs: esse código deve ser inserido dentro de Estapa...

Bom dia!! Tente assim.. Private Sub Workbook_WindowResize(ByVal Wn As Window) If Wn.WindowState = xlMaximized Then MsgBox &quo...

Bom dia!!! Poderia postar seu arquivo modelo compactado? Att

Bom dia!! Eu estou enganado, ou há algo de errado com seu anexo? Att