Segue Corrigido: Sub copiar_para_plan1() Dim ul3, ul2, ul1 As Long ul2 = Plan2.Range("Y" & Rows.Count).End(xlUp).Ro...

selecione as células que devem ser alteradas. Pressione Crlt + L >>> Substituir. Em "Localizar" digite a letra antiga. Em "S...

O colega teleguiado tem razão. Experimente criar uma tabela que contenha valores vazios. Você verá que .visible = true e .visible=false funcionarão ...

Engraçado .visible = false ele aceita pesquisando aqui também .. https://stackoverflow.com/questions/36809061/how-to-detect-the-visibility...

Não consegui acompanhar seu código, daí fiz minha própria versão. veja se te ajuda: Sub copiar_para_plan1() Dim ul3, ul2, ul1, ul As Long ul = Plan1&...

Faltou verificar se é número :/ Obrigado!

Não tenho acesso à sua Planilha mas, até onde sei, Field é um argumento nomeado referente à area(coluna) onde se encontra o critério. Como você diss...

Segue: =SEERRO(SE((A2+B2)/2>=6;"Aprovado";SE(OU((A2+C2)/2>=5;(B2+C2)/2>=5);"Aprovado";"Reprovado"));"Repr...

Colega Wagner, apenas uma contribuição para o seu código. Insira a condicional no código BeforeClose: If ThisWorkbook.Saved = False Then ...

Segue: Private Sub Workbook_BeforeClose(Cancel As Boolean) If ThisWorkbook.Saved = True Then Exit Sub Else mensagem = MsgBox("Deseja Salvar...

Você pode inserir no evento LostFocus, ou doubleclick, entre outros. Menos no evento Change. Caso contrario sempre que voce digitar algo, o camando ir...

Segue um arquivo de exemplo parcial e total:

Acho que não entendi muito bem. O valor deveria ser maior que zero em qual coluna exatamente?

Que nada Colega EdsonBR, quanto mais informação melhor. Além do mais, você é o cara! Abrç!

Se quer puxar o valor da variável de outra sub use "ByRef" ao invés de ByVal. Assim: Sub apresentacao(ByRef nome As String, ByRef idade As ...