Sub RemoverImg() On Error Resume Next Dim img As Shape, cl1 As String, cl2 As String cl1 = Application.InputBox(prompt:="Célula 1:...

O que funcionou pra mim foi isso aqui: Sub mariana() Dim fd As Range, l As Long, x As Long x = Sheets("Férias").Range("A" &...

A fórmula, começando de B2, que consegui utilizar foi: =SE(C2<>"";SE(A2<>"";A2;B1);"") Sendo que essas últ...

Tenta usar Unload ao invés de Hide!

=A1-(A1*0,15) ou então =A1*0,85

Na B1: =A1*0,15

No cbpesquisar_Click(): Do Until Sheets("ADM FICHAS MERCADORIA").Cells(Lin, 2) = "" If Sheets("ADM FICHAS MERCADORI...

A solução que cheguei, foi a seguinte: Para determinar as partidas, somei dois CONT.SES(). Na célula B3: =CONT.SES(dados!$A$2:$A$29;desempen...

Aproveitando o código já postado: Sub RodarTodas() Dim sht As Excel.Worksheet For Each sht In ThisWorkbook.Worksheets If sht.Visible = ...

Cara, fiz um código na correria, mas acho que te atende, sim! Os códigos estão abertos pra visualização; um tanto de For/Next que chegam. Aqui funcion...

Não sei bem o que mede o resultado positivo ou negativo, no seu caso, mas, veja se te atende. PROCV_Multiplos_Retornos_Tinhomin.zip

Sim. Em alguma célula em branco, digita =A1:A6&", " (supondo que A1:A6 seja o intervalo que você quer trabalhar), e depois aperta F9 (s...

Corrigindo (não consegui usar o edit): "[hh]:mm:ss;@" e não "[hh]:mm:ss;²"

Muda a formatação de "hh:mm:ss;@" pra "[hh]:mm:ss;²"

=SOMASE($B$9:$B19;"E";$D$9:$D19)-SOMASE($B$9:$B19;"S";$D$9:$D19) Supondo que os dados estejam entre as linhas 9 e 19. Repare que ...