Douglas Martins Mendes Bra

Boa tarde, Estou utilizando uma planilha que precisa ser filtrada via vba pela data. Utilizei o seguinte código : importSheet1.Range("$A$1:$BP$119706").AutoFilter Field:=25, Criteria1:="<=25/02/2017" O código roda mas quando ocorre o filtro não sobra nenhuma linha. Fiz o seguinte teste, utilizei o gravador de macros e gravei o filtro que ficou: ActiveSheet.Range("$A$1:$BP$119706").AutoFilter Field:=25, Criteria1:="<=25/05/2017 23:59", Operator:=xlAnd Porém ao rodar o código acontece o mesmo problema, não resulta em nada, some tudo. E filtrando na mão funciona normalmente. Obrigado.

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.

perdão, é shift + enter

Escreve 1, segura shift e pressiona o tab

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

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