BrunoMJoia

Sub TESTES() Dim LINHA As Long LINHA = 1 While ThisWorkbook.Sheets("Planilha1").Cells(LINHA, 1) <> "" Dim TestString As String TestString = ThisWorkbook.Sheets("Planilha1").Cells(LINHA, 1).Value Dim TestArray() As String TestArray = Split(TestString, " ") ThisWorkbook.Sheets("Planilha1").Cells(LINHA, 1).Value = TestArray(0) ThisWorkbook.Sheets("Planilha1").Cells(LINHA, 1).Select Selection.NumberFormat = "m/d/yyyy" ThisWorkbook.Sheets("Planilha1").Cells(LINHA, 2).Value = TestArray(1) ThisWorkbook.Sheets("Planilha1").Cells(LINHA, 2).Select Selection.NumberFormat = "h:mm" LINHA = LINHA + 1 Wend End Sub adicionado 0 minutos depois Resolvido!!

Application.DisplayAlerts = False Resolvido!!

Pessoal, bom dia, Preciso da ajuda de vocês. Tenho uma macro que realiza o comando texto para colunas, em uma coluna q contém a informação de data e hora juntas. Quando realizo o comando sem utilizar a macro ele funciona perfeitamente, separando data e hora. Porém quando utilizo a macro ele altera as horas para hh:mm:ss AM/PM, o que no meu caso não serve. Existe alguma maneira da Macro realizar o comando sem alterar a formatação das horas? Application.DisplayAlerts = False Range("G2").Select Range(Selection, Selection.End(xlDown)).Select Selection.TextToColumns Destination:=Range("G2"), _ DataType:=xlDelimited, Space:=True Application.DisplayAlerts = True TESTE.xlsx

Pessoal boa tarde, Preciso da ajuda de vocês, tenho uma macro para copiar dados de uma coluna e colar em outra, e após isso utilizo o comando de texto para colunas. Acontece que durante a execução da macro, aparece uma msgbox automática do Excel. Preciso de um comando para desabilitar a msgbox e deixar a macro rodando lisa. Podem ajudar? Sub Macro1() Application.ScreenUpdating = False Columns("G:G").Select Selection.Insert Shift:=xlToRight Selection.Insert Shift:=xlToRight Range("C2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Range("F2").Select Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Selection.TextToColumns Destination:=Range("F2"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _ :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True Columns("G:G").Select Selection.Delete Shift:=xlToLeft Selection.Delete Shift:=xlToLeft Range("A1").Select End Sub TESTE.xlsx.xlsx

Mano, muito obrigado! Valeu mesmo!

Perfeito Wendell! É isso mesmo cara. Se não for encher demais, você pode explicar como funciona a formula?

Pessoal, boa tarde, Estou com um problema com formulas. No arquivo em anexo, na aba base1 preciso trazer a ultima Data+Hora de cada cliente, para saber qual foi o ultimo contato de cada um deles. Já tentei de varias maneiras e nada. Penso que será necessário uma formula matricial, porém não manjo quase nada delas. Alguém pode ajudar? TESTE.xlsx

Ok. Muito Obrigado. Problema resolvido.

Poxa vida!! Perfeito meu amigo!! Se não for muito incomodo pode me explicar como funciona a formula? Não estou habituado a função Frequência. Muito Obrigado!

Oi Patropi, Não funcionou. Eu preciso que na coluna K da planilha ABS conte quantos nomes tinham sem as duplicatas em 01/05/2017, depois 02/05/2017, e assim por diante.

Pessoal, boas tardes, Estou tentando resolver esse problema. Tenho um banco de dados com o nome de pessoas e datas que acabam se repetindo. Preciso contar esses nomes apenas uma vez, tendo a data como critério. Consigo contar os nomes sem as duplicatas com a formula abaixo, selecionando só um período das datas. O correto seria selecionar a base toda, e com o critério data contar o nomes. =SOMARPRODUTO((BASE!$B$2:$B$12<>"")/(CONT.SE(BASE!$B$2:$B$12;BASE!$B$2:$B$12))) Podem ajudar? Base.xlsx