EMilitão, Boa Tarde! Altere para esse código: Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim wsHist As Workshe...

edinho, Bom dia! Veja se é assim. EXEMPLO.zip

MPrudencio, Boa Noite! Segue arquivo com as alterações necessárias com a UDF UltimaOcorrência. 01_11_15_Retornar_ultimo_valor_com_criterio_Patropi_V...

tonilanis, Boa Noite! Segue aqui mais uma sugestão. Veja que criei um outro formulário somente para pesquisas, pois, do ponto de vista de design, n...

rilust, Boa Noite! Muito boa a dica! Parabéns. Para aqueles que desejam utilizar via código VBA, segue aqui minha sugestão: Public Function Bissex...

messiasmbm, Boa Noite! Não sei se lhe serve da forma que eu fiz... Assim, segue minha solução. Fiz uma pequena função em VBA chamada UltimaOcorrênci...

Não tem a tecla Break? Estranho... nunca ouvi falar isso! Tem certeza absoluta disso? Essa tecla às vezes vem escrito somente BK e geralmente é a mesm...

Miguel 70, Boa Tarde! Altere para esse código: Private Sub ListBox1_Click() Dim LinhaAtual As Long Dim UltimaLinha As Long UltimaL...

pfarias Boa Tarde! Não sei se é possível fazer com constantes. Só serve se for com constantes? Se servir como variável, aqui segue minha sugestão: ...

Doni, Bom dia! Altere as propriedades TabStop das suas caixas de texto para True. Nas 3 primeiras que examinei, todas estão como False.

victorsam, CDbl formata para números Double (números fracionários com casas decimais).

dyego.vn, Bom dia! Veja se é assim. Macro Fases.zip

Bom Dia! Altere para esse código: sVal1 = CLng(TextBox2.Value) sVal2 = CDbl(TextBox3.Text) 'Calcula o Resultado, formata com...

italom, Bom dia! Se for Excel 97/2003, você pode manter a pressionada a tecla SHIFT e abrir o arquivo que isso desabilitará a inicialização de macro...

Boa Tarde! Use esse código: For Each bt In Sheets("Plan1").Shapes If Left(bt.Name, 6) = "Imagem" Then ...