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

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 adicionado 55 minutos depois 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