Cole uma cópia do código abaixo no módulo do Form Private Sub ComboBox1_Change() Dim k As Long, rng As Range k = [A:A].Find(Com...

If Target.Value <> "R" And [A1] = Date Then

Sub InsereLinhasIguais() Dim nf As Long For nf = 2 To Cells(Rows.Count, 1).End(3).Row If Cells(nf, 1) > 1 Then Cells(nf, 1...

Estou querendo fazer uma sequencia numeral, onde somente a cada 16 linhas ele aumente um número em uma coluna Preciso que limite digitando o inicio e ...

... preciso de ajudar para encontrar uma fórmula para contar os números que estão formatados condicionalmente em vermelho. Na sua tabela de exemplo ...

Mas se vc que saber onde está o erro em seu código, atente para a chamada a "arquivaF34", pois ela deveria estar em uma nova linha: If Rang...

Experimente fluxo = Day(Date)

Uma possibilidade. Veja se funciona. Sub teste() If [N3] = [C7] Then MsgBox "Cartão identificado com sucesso. Prossiga!...

Sugestão - disponibilize aqui no fórum uma amostra do que você já tem e coloque manualmente/explique na amostra o que você deseja obter. Isso facilita...

Acho que o titulo esta claro, Contagem regressiva subtraida da hora real ou atual na célula, ou seja, a idéia seria criar uma formula e não usar recur...

Public Declare Function >> altere para >> Public Declare PtrSafe Function Private Declare Function >> altere para >> Private...

Veja se ajuda. Não é exatamente o que tinha em mente A minha sugestão foi com base no que eu entendi ao ler o que você escreveu aqui no tópico, se não...

Veja se ajuda.

Workbooks.OpenText Filename:="C:relato" & Plan1.[A1] & ".##r"

Veja uma solução no site do link abaixo. http://www.tomasvasquez.com.br/blog/microsoft-office/excel/impedir-copiar-colar-no-excel...