Este fórum está sendo desativado

sugestão - pesquise sobre o uso do recurso SOLVER no Excel

Disponibilize uma amostra do seu arquivo com o código COMPLETO instalado.

Experimente:

=SOMARPRODUTO((A2:A11<>"")/CONT.SE(A2:A11;A2:A11&""))

Experimente:

=SOMARPRODUTO(--(D2:D34<>""))

Considerei que a segunda ficha estará a partir da linha 23. Sub ImprimirV2() Dim r As Long, k As Long, ws2 As Worksheet Set ws2 = Sheets("Ponto") r = Cells(Rows.Count, "B").End(xlUp).Row For k = 4 To r Step 2 ws2.Range("B3").Value = Cells(k, 2) ws2.Range("I3")...

Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Application.EnableEvents = False If Target.Value = "SIM" Then Range(Cells(Target.Row, 1), Cells(Target.Row, 8)).Copy Sheets("Plan2").Cells(Rows.Count, 1).End(3)(2): Rows(Target.Row).Delete Application.Enabl...

data de referência em 'A1'
prazo em 'A2'

=SE(DIAS360(HOJE();A1;1)<=A2;A2;DIAS360(HOJE();A1;1))

Já experimentou marcar a permissão para Formatar células ao proteger a planilha ?

Sub COPIA_TELA() On Error Resume Next ActiveSheet.Shapes("semdados").Delete If Range("D1") < 9 Then Sheets("Lista").Shapes("semdados").Copy Sheets("Dados").Range("I6").PasteSpecial Selection.Name = "semdados" End If End Sub

Disponibilize uma amostra do seu arquivo com o código instalado (o código que apresentou problema).

Experimente:

data

=ÍNDICE(B1:F1;SOMARPRODUTO(COLUNA(B3:F214)*(B3:F214=K1))-1)

=ÍNDICE(B2:F2;SOMARPRODUTO(COLUNA(B3:F214)*(B3:F214=K1))-1)

Experimente inserir o seu código que imprime em .pdf no evento BeforePrint no módulo de 'EstaPasta_de_trabalho' Private Sub Workbook_BeforePrint(Cancel As Boolean) ' seu código 'se o seu arquivo tem mais de uma planilha talvez precise ' acrescentar uma instrução para identificar a planilha a ser imp...

1. selecione o intervalo que contém as fórmulas 2. transforme as fórmulas em texto ---> Ctrl + L / na caixa Localizar: digite = (o sinal de igual) 3. na caixa Substituir: digite # (se houver a ocorrência desse caracter em alguma fórmula então use ## ou ###) 4. clique em Substituir tudo 5. copie, col...

Veja se ajuda:

1. selecione a matriz ----> 'B3:F7'
2. menu Formatação Condicional / Nova Regra / Usar uma fórmula ...
3. na caixa de fórmula cole =CONT.SE($H$2:$AE$2;B3)
4. formate como desejar

Experimente: If Not IsError(Application.Match("roupa", arr, 0)) Then i = Application.WorksheetFunction.Match("roupa", arr, 0): MsgBox "encontrado na posição " & i Else: MsgBox "não encontrado" End If http://www.planilhando.com.br/forum/viewtopic.php?f=10&a...

Sugestão - no intervalo 'F3:F12' da planilha "Alfa" você aplicou 4 regras de Formatação Condicional em cada uma das 10 células daquele intervalo, o que resultou em 40 regras :o ; é possível aplicar as 4 regras para todo o intervalo, assim: selecione 'F3:F12' / Formatação Condicional / Limp...

Considerando o intervalo 'F3:F12' da planilha "Alfa": contar células verdes =CONT.SE(F3:F12;"<45") contar células amarelas =SOMARPRODUTO((F3:F12>=45)*(F3:F12<=E3:E12)) contar células cinza =CONT.SE(F3:F12;"-") contar células vermelhas =SOMARPRODUTO(--(F3:F12>E3:E12)*(F3...

Via Formatação Condicional não é possível fazer o que você quer.

Me parece que o Excel 2013 traz uma nova função ÉFÓRMULA(), ou se você não tiver essa versão pode ser resolvido via UDF.

Olá, Adalmir. A função =LIN() sem argumento, retorna o número da linha onde for inserida uma fórmula que utilize essa função, nesse formato. Exemplo: coloque =LIN() em qualquer célula da linha 4 e arraste para baixo, você verá a sequência 4, 5, 6, ..., se arrastar para cima, verá 3, 2, 1. Ou seja, i...

Olá, Carlos.

Esse efeito de piscar é conseguido via macro.
Para ver os códigos da macro abra o arquivo, aperte Alt+F11 para abrir o editor de VBA, se a tela exibida estiver vazia dê duplo clique em Módulo1, à esquerda da tela.