Aqui pra mim, esse funcionou ... Tente e me diga: Option Compare Text Sub importardados() Dim UL As Long ActiveSheet.Unprotect "12...

acredito que ela não seja o fator. Essa parte apenas força uma comparação de texto. Fiquei com uma dúvida e queria saber quais das situações é a corr...

Desculpe tá corrido aqui. Aqui no serviço não abre dropbox. Tem como postar link no googledrive? Ou então chegando em casa vejo pra vc..

A primeira não entendi. A segunda: (inserir data em a1 e a fórmula onde desejar) =SE(DIA(A1)>=1;TEXTO(DATA(ANO(A1);MÊS(A1);1);"dd/mm/aaaa&quo...

Seria possivel enviar esse seu arquivo?

Descupe nao consegui visualizar isso que você disse. Quando eu executo so fica a Userform. A moldura que aparece junto com os outros elementos na minh...

poderia postar sua planilha?

Vamos supor que seu arquivo se chame : Exemplo.xlsm Então no lugar de: Application.Visible = False Tente: Application.Windows("Exemplo...

Colega JNEXCEL, era exatamente isso o que queria? Se não for, pode falar como deve ser...

Segue uma sugestão

Bem na verdade não tem nada demais nesse código. Mas segue: Option Compare Text Sub Importar_dados() Dim ul As Long ul = Plan1.Range(&qu...

Se a célula for diferente de "MANOEL" Você quer : 1- deletar o valor da célula 2 - deletar linha interira 3- deletar todo conteúdo?

Jogue no editor de código para ficar mais legível... Sub Macro1() Dim ul As Long ' aqui você definiu a variável como long (long é uma variável qu...

Segue: Sub Substituir() Dim ul As Long ul = Plan1.Range("A" & Rows.Count).End(xlUp).Row For i = 1 To ul If Left(Pla...

Segue Corrigido: Sub copiar_para_plan1() Dim ul3, ul2, ul1 As Long ul2 = Plan2.Range("Y" & Rows.Count).End(xlUp).Ro...