Tente algo assim: Sub definir() Dim ini, fim As Long ini = Application.InputBox("Digite o número inicial") fim = Application.Inpu...

Realmete colega jegasper foi falha minha. Eu editei para deixar claro onde deveria ser alterada a condicional. Se o problema foi solucionado , por fa...

Supondo que seus dados vão de A2 a A10: =SOMARPRODUTO(SUBTOTAL(3;DESLOC($A$2:$A$10;LIN($A$2:$A$10)-LIN($A$2);0;1));--($A$2:$A$10>5)) Em negrito e...

Estranho, também não vejo mais a janela de anexar...

Poste uma planilha com exemplo por favor..

Para resolver a questão das horas: =TEXTO(DIREITA(TEXTO(A1;"hh:mm");4);"h:mm") mas seria melhor ver sua planilha para entender......

Vixi, sem olhar sua fórmula complica... Poste a sua planilha ou, pelo menos a sua fórmula para termos uma noção

FAGNERIBAS bom dia. Se puder, por favor, poste aqui sua planilha indicando em que momento o erro acontece...

Você que concatenar os valores das células dessa range?

Cole a fórmula abaixo na C2 e depois arraste para as outras células. =SEERRO(SE(PROCV(A2;$B$2:$B$1048576;1;FALSO)=A2;"F");"X") ...

Segue em anexo uma sugestão.. Abrç!

Pois é agora percebi. Ela não seleciona com o botão esquerdo do mouse, apenas com o direito. e o "selection" do código dá erro. Mas que b...

Carlos, selecione alguma forma e execute isso: Selection.ShapeRange.Fill.ForeColor.RGB = RGB(85, 140, 215) Diga se esse é o resultado que procura...

Olá colega elizandro. Tenta assim: =ÍNDICE(E1:E1048575;MODO(SE(CONT.SE($B$1:$B1;E1:E1048575)=0;SE(H1:H1048575<=$C$1+0;CORRESP(E1:E1048575;E1:E104...

Carlos, seria mais ou menos isso? Sub Teste_01() For i = 1 To 20 Mesa = Sheets("Plan2").Range("S" & i + 1).Value I...