Douglas Martins Mendes Bra

Alguém ?

Boa tarde, estou tentando retornar alguns dados da base em uma planilha excel utilizando o MS Access Database, porém preciso fazer um filtro em um campo de data(dd/mm/aa 00:00:00) utilizando como filtro uma célula da planilha(mesmo formato).

Usei o where da seguinte forma : WHERE (Base.`Aberto em` =   ?).

Consigo até selecionar a célula que seria usada no filtro.

Porém retorna um erro de incompatibilidade na expressão de critério.

Obrigado

Sub EMail_Automático()

    Dim olApp As Object, olMail As Object
    If Range("B1").Value >= Range("a1").Value Then
        Set olApp = CreateObject("Outlook.Application")
        Set olMail = olApp.CreateItem(0)
    
        'olMail.From = "[email protected]" 'Quem está enviando o e-mail. Pode deixar desabilitado. _

        olMail.Subject = "Teste1" 'Campo Assunto

        olMail.Body = "Teste2" 'Campo referente a mensagem que se quer enviar

        olMail.To = "[email protected]" 'Endereços dos destinatários

        'olMail.cc = "F114170" 'Campo Com cópia

        'olMail.Attachments.Add "C:/CONFIG.SYS" 'Arquivo a inserir

        olMail.Send 'Envio direto. Se quiser ver primeiro o e-mail para depois enviar, substitua _
        esse comando por Display
        
        Set olApp = Nothing
        Set olMail = Nothing
    End If
End Sub

Só adaptar ao seu problema.

Qualquer coisa só avisar.

18 minutos atrás, Osmarbg disse:

Tem que pressionar o TAB várias vezes até o cursor mudar de linha?

perdão, é shift + enter

1 hora atrás, Osmarbg disse:

@Douglas Martins Mendes Bra @Osmarbgse eu digito shift+tab, não acontece nada.

 

adicionado 2 minutos depois

@Douglas Martins Mendes Bra @Osmarbgé isso mesmo que eu quero, conforme a imagem que você me mandou, mas não estou conseguindo fazer.

 

adicionado 3 minutos depois

é isso mesmo que eu quero, mas não estou conseguindo fazer, quando digito shift+tab, não acontece nada

adicionado 55 minutos depois

@OsmarbgTentei  de várias formas, mas não adianta, não funcionou assim, 

Escreve 1, segura shift e pressiona o tab 

5 minutos atrás, Osmarbg disse:

 

adicionado 0 minutos depois

Não entendi Douglas,  shift+tab, onde?

 

Quando for escrever o título, 1 shift+tab capítulo, vai ficar apenas um título, mas em duas linhas

Boa tarde, se entendi bem, é só usar o shift+tab.

A função tem que ser escrita em inglês, para usar em port tem que usar .FormulaLocal

Bom dia, gente

Estou o vba para preecnher algumas células

Cells(h + 1, 7).FormulaR1C1 = "=soma(R" & h - k & "C7:R" & (h) & "c7)"
Cells(h + 1, 8).FormulaR1C1 = "=soma(R" & h - k & "C8:R" & (h) & "c8)"

Está tudo dando certo, porém aparece o erro #NOME? e só aparece o valor depois que abro a célula para alteração no própria excel e fecho. Alguém sabe o que pode ser ?

Bom dia, gente

Estou usando formatação condicional, são várias formatações parecidas mudando apenas a referencia da célula que vai <>, então eu boto essa primeira fórmula, dou ok, fecho, depois quando abro de novo ou a formula foi para outras células, ou então aparecem várias aspas, alguém sabe o motivo disto ?? 

=E(EXT.TEXTO($D3;1;1)<>" ";$C3*1>499999;OU($F3<>"-";$F3<>"");OU($J3="-";$J3="");OU($N3="-";$N3="");OU($R3="-";$R3="");OU($V3="-";$V3="");OU($Z3="-";$Z3="");OU($AD3="-";$AD3="");OU($AH3="-";$AH3=""))

=" =E(EXT.TEXTO($D3;1;1)<>"" "";$C3*1>499999;OU($F3=""-"";$F3="""");OU($J3=""-"";$J3="""");OU($N3=""-"";$N3="""");OU($R3=""-"";$R3="""");OU($V3<>""-"";$V3<>"""");OU($Z3=""-"";$Z3="""");OU($AD3=""-"";$AD3="""");OU($AH3=""-"";$AH3=""""))"

=E(EXT.TEXTO($D1048549;1;1)<>" ";$C1048549*1>499999;OU($F1048549="-";$F1048549="");OU($J1048549="-";$J1048549="");OU($N1048549="-";$N1048549="");OU($R1048549="-";$R1048549="");OU($V1048549="-";$V1048549="");OU($Z1048549="-";$Z1048549="");OU($AD1048549<>"-";$AD1048549<>"");OU($AH1048549="-";$AH1048549=""))

Bom dia, acho que dessa forma funciona.

Sub teste()

IF range("A1").value="Del" then

     Sheets("Plan1").Activate

else

     Sheets("Plan2").Activate

end if

end sub

27 minutos atrás, Basole disse:

Tente formatar com formulas: 

 

=DIA(A1)&"/"&PRI.MAIÚSCULA(TEXTO(A1;"mmm")&"/"&ANO(A1))

ou 

=DIA("11/09/2016")&"/"&PRI.MAIÚSCULA(TEXTO("11/09/2016";"mmm")&"/"&ANO("11/09/2016"))

 

Funcionou perfeitamente !! Obrigado

Boa dia, galera.

Em uma célula tenho uma data, por exemplo 11/09/2016, formatada para aparecer apenas o mês por extenso,então ficaria set, precisava que apenas o 's' ficasse maiúsculo.

Tinha pensado em usar ext.texto ou esquerda  para pegar apenas o 's' e usar a função maiúsculo e depois juntar com o resto dnv, mas a função retorna o valor da célula sem formatação.

Obrigado 

Vou dar uma olhada sim, parece muito interessante, mas a maquina do trabalho é travada para instalar, vou estudar em casa, obrigado

Não conhecia o power query, a planilha você utilizou ele ?? Aqui não tenho essa opção, mas mesmo assim muito obrigado

Sub teste()

Cells(4, 1).Select

 For i = 1 To 3000
    Sheets("Por grupo").Activate
    If ActiveCell.Value <> "" Then
       ActiveCell.Offset(-1, 0).Select
       
    Else
       g = ActiveCell.Offset(1, 0).Value
       ActiveCell.Offset(2, 0).Select
        While ActiveCell.Value <> ""
            d = ActiveCell.Offset(0, 1).Value
            Sheets("Grupos Fornecedores").Activate
            Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
            ActiveCell.Value = g
            ActiveCell.Offset(0, 1).Value = d
            Sheets("Por grupo").Activate
            ActiveCell.Offset(1, 0).Select
        Wend
        
        If ActiveCell.Value = "" Then
                    ActiveCell.Offset(2, 0).Select
                End If
        
    End If
    
Next i

End Sub

Acho que consegui, obrigado

CNPJ                                       ANO: 2016

                                                  NOME

5200002                          SERV MEDICOS GRUPOS MEDICOS - PF (CUSTO)

00.007.437/0337-55          CRISTIANE CHAVES DE SOUZA PESSANHA

5200003                            SERVICOS MEDICOS(PJ) - REDE PROPRIA

00.099.654/0001-14          DAPMED SERVICOS MEDICOS SC LTDA

00.099.654/0001-14          DAPMED SERVICOS MEDICOS SC LTDA

00.099.654/0001-14          DAPMED SERVICOS MEDICOS SC LTDA

00.123.294/0001-49          CENTRO INTEGRADO DE UROLOGIA DO RIO DE J

01.026.869/0001-78          NEUROPEDIATRAS ASSOCIADOS LTDA EPP

O formato é mais ou menos esse, mas tem umas duas mil linhas, esse primeiro numero é o grupo das empresas abaixo, gostaria que fosse copiado o nome da empresa e ao lado o grupo de pagamento

Aqui a planilha, gostaria que ficasse assim.

Novo(a) Planilha do Microsoft Excel (2).xlsx

Boa tarde, galera.

Estou com um pequeno problema com vba, sou iniciante e quero fazer um código que faça o seguinte, tenho uma planilha que na primeira linha fala qual é o grupo de uma determinada empresa, em baixo as empresas desse grupo.E assim por diante, sendo que tem uma linha em branco depois do final de cada grupo, gostaria de juntar todas as empresas com o grupo na frente delas em outra planilha. Fiz um pedaço do codigo, mas não está funcionando, se puderem ajudar fico grato .

Sub teste()

For i = 4 To 2308
    
    Sheets("Por grupo").Activate
    Cells(i, 1).Select
    d = 1

    While d <> ""

        If ActiveCell.Value <> " " Then
            e = ActiveCell.Offset(0, 1)
            ActiveCell.Cells(i, 1).Offset(1, 0).Select
        Else
            d = ActiveCell.Cells(i, 1).Offset(-2, 0).Value
            Sheets("Grupos Fornecedores").Activate
            ActiveCell.Cells(i, 1).Value = d
            ActiveCell.Cells(i, 1).Offset(0, 1).Value = e
            Range("e1").Value = "oi"
            d = ""
        End If
             
    Wend

Next i

End Sub