A postagem que fiz ontem sumiu daqui. 😳 =SE (E(MOD(A1;1)> --"6:00";ARRED(MOD(A1;1);5) <=ARRED(--"14:00";5)); "manhã";SE(OU(MOD(A1;1) <=--...

@asampaio Grato pelo retorno sobre a fórmula que eu sugeri. Sobre o seu tópico do link, olhei lá e da forma que está colocado confesso que tive...

Então o meu Excel tem defeito de fabricação pois aqui funciona corretamente.  ManhaTarde.xls

Experimente: =SE(MOD(A1;1)>--"14:00";"tarde";"manhã")

A linha do código em que ocorre o erro (destacada com fundo amarelo no print do seu primeiro post) faz referência a uma Tabela Excel de nome TB_EMAILS...

Você poderia anexar aqui no fórum uma amostra do seu arquivo Excel ?

Verifique se o nome da planilha e o nome da Tabela são exatamente iguais aos nomes que estão no código.

A fórmula abaixo é válida para a planilha que você postou. =SEERRO ( ÍNDICE( D$31 :D$66; CORRESP( D$3;B$28: B$48;0) + CORRESP(E4; B$31 :B$46; 0) -1)...

NUM_SORT = Format(Int(Rnd * Val_Max + Val_Min),"00")

Pesquisa rápida Google:

Veja se ajuda. Cole uma cópia da fórmula abaixo em A1, arraste para a direita, arraste para baixo. ="PLT"&COL()&"-C"&TEXTO(LIN();"00")...

Entendi que você quer esta lógica ~~~> '=SE(E(escala=trabalhadas;escala<=8:00);"X";"Y") Considerando escala em A2 e trabalhadas em B2: =SE(E...

Sugestão: monte manualmente na planilha EtiqPeq ao menos as duas primeiras fileiras de etiquetas de forma que representem o resultado desejado e em se...

Falta um End If, conforme em vermelho abaixo, que corresponde ao fechamento de If ActiveCell.Value = EndX Then ActiveCell.Offset(0, 1).Value = ...