=SE(OU(MÊS(B255)=1;MÊS(B255)=3;MÊS(B255)=5;MÊS(B255)=7;MÊS(B255)=8);31;30)

Cara, gostei das planilhas. Vou ajustar a do CNPJ primeiro, já que está funcionando e vou adaptar para o Extrato de Pagamento da Previdência. Depois...

Boa tarde!! Você quer determinar um intervalo? If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub A linha acima diz que o...

Boa tarde!! Veja o arquivo modelo! Na guia AleVBA digite na coluna A, uma série de número com 5 caracteres e o evento adicionará as barras automatica...

dimorais, acredito que o pedido é semelhante ao que você solicitou em 2013 e foi ajudado pelo Wagner e o Reinaldo, veja se consegue adaptar : O anexo...

O codigo que copia a data é este: .Cells(I + 1, 6) = lstLista.ListItems(I).SubItems(5) Troque pela linha abaixo e faça os testes : &...

Bom dia!! Detalhe melhor sua dúvida, deposite deus arquivos modelos. Att

Bom dia!! use a pesquisa do fórum!

Primeiro acerte/atualize os nomes dos controles pelos descrito no código VBA ou nome descrito no codigo VBA pelos dos controles. Ex.: Titulo: No VBA e...

Bom dia!! Se foi útil, click na mãozinha!!!!!!!!!!!! Att

Bom dia!! Eu fico feliz que resolveu seu problema, precisando..estamos aqui.. Att

Bom dia!! Na Guia de Menu do excel de nome Dados-> no grupo de nome Obter Dados Externos->De outras Fontes. Att

Bom dia!! Você tentou assim? Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exi...

Bom dia!!! Vamos aguardar quem tem acesso liberador para fazer o download do seu arquivo, pois onde estou não tenho permissão. Att

Bom dia!! Veja... =SE(I1=1;"Cadet Twin";SE(I1=2;"Blispac";SE(I1=3;"Cadet 2X2";""))) Att