Boa tarde!! Segue uma forma usando VBA. Sub AleVBA_21995() Dim lr As Long Const sFormula1 As String = "=LEFT(A2,MIN(FIND({0,1,2,3,4,5,6,...

Olá cloudrickk, tudo bem... vamos lá, importante lembra que em Excel existe várias soluções para um mesmo problema. Tentei fazer o mais simples poss...

Bom dia!! Para formulas tente. ' B2 =ESQUERDA(A2;MÍNIMO(PROCURAR({0;1;2;3;4;5;6;7;8;9;"-"};A2&"0123456789"))-1) ' C2 =PROC(9...

Voçe disse que não atendeu, mas não o que está divergente, o que não está coerente, qual o criterio? Olá Reinaldo! Obrigado pelo retorno. Então, n...

Voçe disse que não atendeu, mas não o que está divergente, o que não está coerente, qual o criterio?

Bom dia!! Use o comando .FormulaArray

Reinaldo e Alexandrevba, Muito obrigado pela respostas. Ambos chegram muito proximo do desejado. Alexandre, o codigo para a coluna C2 nao retorna o...

Não sei se entendi corretamente a questão da ComboBox, porém, segue sugestão: Private Sub UserForm_Initialize() ComboBox1.AddItem Sheets("026...

Veja se é isto : Private Sub Worksheet_Activate() Application.EnableEvents = False Application.ScreenUpdating = False Dim sheetsArray As V...

Contribuindo, experimente Sub Separando() Dim Str_Texto As String, Str_Logr As String Dim X As Integer Dim Separa() As String, StrSep() As String For...

Boa tarde!! Use as formulas B2=ESQUERDA(A2;LOCALIZAR(CARACT(53);SUBSTITUIR(A2;" ";CARACT(53);NÚM.CARACT(A2)-NÚM.CARACT(SUBSTITUIR...

Baixe o modelo no link abaixo, apesar de utilizarmos dois arquivos o listview é preenchido através do RecrodSet, se estiver utilizando somente um arqu...

Boa tarde Oruam Seja bem-vindo ao fórum! Baixe a planilha e veja se entendi o que você deseja: 26_09_16_Digitar mês_retornar dias_Patropi.zip Se ...

Fiquei meio confuso com sua demanda, mas creio que o topico e planilha em : http://www.planilhando.com.br/forum/viewtopic.php...