Userform1.Hide

Mas na aba 2 as informações já não estão completas? Quando você diz "Completo", significa tudo na mesma aba?

Segue: Sub Preencher() Dim ul, ul2 As Long ul = Plan1.Range("B" & Rows.Count).End(xlUp).Row ul2 = Plan2.Range(...

Dificil dizer, uso o 2013

=SE(OU(E1="Parceiro";E1="Franquia";J1="Terceiro");"TERCEIRO";SE(OU(E1="Setorial";E1="Serviço&qu...

Mas e a bombinha? pra mim não apareceu... Tenta Assim:

Aqui funciona normal. Pode ter algo a ver com a versão do excel.

O melhor jeito é você postar um modelo original do ser arquivo. (exatamente como ele será quando for utilizar). Pois o código é muito maleável e vari...

Poste uma planilha simulando o resultado que deseja obter...

Tente Assim: Sub Inserir() Dim ul As Long ul = Plan1.Range("A" & Rows.Count).End(xlUp).Row For i = 2 To ul If Plan1...

Fiz minha própria versão. Veja se é isso:

Insira no início: Dim celula as Range Se não funcionar, por favor, poste seu arquivo...

Mas se fizer isso não funcionará quando colar na coluna C. Porque não pega todo o meu código. (menos a parte "Worksheet_Change".... e tamb...

Bom dia! Segue conforme pedido:

Colegas, reparem outra coisa.... Se a pasta procurada existir, mas estiver vazia, ele também retorna FALSO. Procede?