Seu anexo não veio mas, tente assim: Sub Exportar() Sheets("Sorteio").Range("D11:E1011").ClearContents Sheets("...

O método Union do VBA só aceita 30 argumentos por vez. Como você tem 38 ranges, você primeiramente deverá inserir 30 e depois abre outra Union para ...

Aproveitando o código do colega wagner, veja se isso resolve: Sub teste() Dim M As Integer For M = 2 To UsedRange.Rows.Count ...

Segue:

Minha contribuição por fórmula: DATA: =DATA(ANO(A1);MÊS(A1);DIA(A1)) HORA: =TEMPO(HORA(A1);MINUTO(A1);SEGUNDO(A1))

1- Selecione a célula. 2-Vá até a aba "Dados" > "Texto para Colunas" > "Largura Fixa" > "Avançar" >...

tente algo do tipo: Label1= Format(Seu_valor, "00000.00")

Acredito que isso resolva: 1- Selecione o intervalo que deseja inserir a senha 2- Clique na Aba "Revisão" 3- Clique em "Permitir que ...

Segue: =SE(E(ÉNÚM(VALOR(EXT.TEXTO(A3;NÚM.CARACT(A3)-1;1)))=VERDADEIRO;ÉNÚM(VALOR(DIREITA(A3;1)))=FALSO);"Correto";"FALSO&quo...

Acredito que só funcione corretamente na mesma planilha, ou quando a planilha de origem encontra-se aberta.

Segue uma opção com fórmula: =SEERRO(SOMA(INDIRETO("B"& PROC(2;1/(B:B<>"");LIN(B:B))-9 & ":B&qu...

Uma outra possibilidade: dim r1,r2,myrange as range set r1 = Worksheets("lc").Range("c2:r14") set r2 = Worksheets("...

Colega ericksant, segue o código corrigido: Sub Status() Dim ul As Long inicio: ul = Planilha1.Range("A" & Rows.Count)&#...

Segue código corrigido: Sub Status() Dim ul As Long inicio: ul = Planilha1.Range("A" & Rows.Count).End(xlUp).R...

Segue: Sub Status() Dim ul As Long ul = Planilha1.Range("A" & Rows.Count).End(xlUp).Row For i = 2 To ul If Planilha1...