Células não ajacentes

[juliodonato]

Estou voltando a postar esta questão que já fiz anteriormente e como me expressei muito mal e tomei indevidamente o tempo de varias pessoas extremamente prestativas, tomo a liberdade de reconhecer meu erro, me desculpar e mais uma vez solicitar a ajuda que preciso.

Estou inserindo uma formula em M20 na qual eu preciso que ela conte quantas vezes o numero 1 aparece em C2, C19, C32,..., C512. Existe um intervalo de 17 células entre cada uma delas.

Estou tentando usar CONT.SE, mas não esta funcionando, todas as Celulas estão na coluna C, e minha formula ficou assim:

=CONT.SE(C2;C19;C36;C53;C70;C87;C104;C121;C138;C155;C172;C189;C206;C223;C240;C257;C274;C291;C308;C325;C342;C359;C376;C393;C410

;C427;C444;C461;C478;C495;C512;1) Neste numero 1 final tentei com e sem aspas e resposta foi a mesma.

Aparece a mensagem que o Excel encontrou um erro na formula.

Obrigado novamente pela cooperação.

[RafaVillani]

Cara sua formula está dando erro porque o CONT.SE trabalha com intervalo de celulas, o modo como você fez mostra uma referencia distinta de varias celulas e não de um intervalo. O CONT.SE deve ser usado da seguinte forma:

Na celula M20, seguinte formula: =CONT.SE(C1:C512;1), dessa maneira a formula irá fazer a procura no intervalo de C1 até C512, que foi a ultima celula que você se referiu.

Agora, como creio que nas demais celulas não irá poder ter o número 1, apenas nas 17 que você citou.

Visto seu novo comentario, sugiro que use a MACRO que lhe falei, vou postar o codigo, você somente devera copiar e colar na sua planilha.

Dim cont as Integer

If Cells(2, 3) = 1 Then

cont = cont + 1

End If

If Cells(19, 3) = 1 Then

cont = cont + 1

End If

If Cells(36, 3) = 1 Then

cont = cont + 1

End If

If Cells(53, 3) = 1 Then

cont = cont + 1

End If

If Cells(70, 3) = 1 Then

cont = cont + 1

End If

If Cells(87, 3) = 1 Then

cont = cont + 1

End If

If Cells(104, 3) = 1 Then

cont = cont + 1

End If

If Cells(121, 3) = 1 Then

cont = cont + 1

End If

If Cells(138, 3) = 1 Then

cont = cont + 1

End If

If Cells(155, 13) = 1 Then

cont = cont + 1

End If

If Cells(172, 3) = 1 Then

cont = cont + 1

End If

If Cells(189, 3) = 1 Then

cont = cont + 1

End If

If Cells(206, 3) = 1 Then

cont = cont + 1

End If

If Cells(223, 3) = 1 Then

cont = cont + 1

End If

If Cells(240, 3) = 1 Then

cont = cont + 1

End If

If Cells(257, 3) = 1 Then

cont = cont + 1

End If

If Cells(274, 3) = 1 Then

cont = cont + 1

End If

If Cells(291, 3) = 1 Then

cont = cont + 1

End If

If Cells(308, 3) = 1 Then

cont = cont + 1

End If

If Cells(325, 3) = 1 Then

cont = cont + 1

End If

If Cells(342, 3) = 1 Then

cont = cont + 1

End If

If Cells(359, 3) = 1 Then

cont = cont + 1

End If

If Cells(376, 3) = 1 Then

cont = cont + 1

End If

If Cells(393, 3) = 1 Then

cont = cont + 1

End If

If Cells(410, 3) = 1 Then

cont = cont + 1

End If

If Cells(427, 3) = 1 Then

cont = cont + 1

End If

If Cells(444, 3) = 1 Then

cont = cont + 1

End If

If Cells(461, 3) = 1 Then

cont = cont + 1

End If

If Cells(478, 3) = 1 Then

cont = cont + 1

End If

If Cells(495, 3) = 1 Then

cont = cont + 1

End If

If Cells(512, 3) = 1 Then

cont = cont + 1

End If

Cells(20, 13) = cont

Crie uma MACRO, digite o atalho, e copie este código dentro da MACRO.

Abraços

[juliodonato]

Amigo, muito obrigado!

[juliodonato]

Desculpe, mas preciso que voce me leve pela mão, instruções passo a passo.

Fiz uma zona na minha planilha.

Fui gravar a makro, apareceu uns botões para parar gravação e coisas assim, bem usando um termo bem popular, fedeu! para não apelar para outro termo.

[RafaVillani]

Amigo e isso mesmo!!! Clique em gravar MACRO, e logo em seguida, de STOP! Entre no editor do VBA Ferramentas>>Macros>>Editor do Visual Basic

No editor entre em "Modulo 1"

Apague o que estiver escrito na cor verde, e cole o meu codigo entre o

Sub Macro1()

CÓDIGO

End Sub

Abraços

[juliodonato]

Acabei usando uma sugestão que me deram no forum julio battisti que é a seguinte:

=SOMA((MOD(LIN(C1:C512);17)=2)*(C1:C512=1)) CTRL+SHIFT+ENTER

Funcionou direitinho. Agora com calma, vou tentar novamente a Macro, depois retornarei a resposta.

Muito obrigado.