Experimente a fórmula abaixo na célula 'D2' e arraste para baixo. =ÍNDICE($A$2:$A$10;CORRESP(MAIOR($B$2:$B$10;LIN(A1));$B$2:$B$10;0)) ...

eu não sei oq é melhor varrer a lista de nomes e fazer comparação ou usar o metodo direto e depender do on erro O comando 'On Error Resume Next' evit...

Veja se ajuda. Sub VerificaIntervaloNomeado() Dim IntNom As Range On Error Resume Next Set IntNom = Range("jacaré") On Error GoTo 0 ...

Veja se ajuda. Sub GeraNúmeros() Dim vt As New Collection, i As Long, r As Long, n As Range [B5:I9].Interior.Color = xlNo...

O que quer dizer o (3) e o (2) após o End no código? (3) equivale a (xlUp) (2) equivale e Offset(1,0)

Veja se este atende. Sub ReplicaDadosV2() Range("VENDA").Copy Sheets("Vendas").Cells(Rows.Count, 3).End(3)(...

Experimente Sub ReplicaDados() Range("VENDA").Copy Sheets("Vendas").Cells(Rows.Count, 3).End(3)(2) End Sub

tendo a relação das cidades que mais repetem na coluna "A" com o critério "" (em branco) por exemplo... depois eu aplico a fórmula...

... porém quando for "Julho" e eu criar outra pasta para "Julho", esta macro não irá executar por conta que o link mudou de "...

... será que vc podia criar outra macro pra segunda aba? O código abaixo funciona em tabelas com qualquer quantidade de linhas. Experimente nas tabel...

Fala, Elizandro. Depois que chutei a tomada aqui tô baixando tudo... Tá meio confuso de entender o que você quer agora. No post acima você comentou...

Experimente Sub SubstituiCódigos() Dim k As Long, d As Long, MA As Range, x As Long For Each MA In Range("L4:L" & Range("L4...

Olá, Elizandro. Não estou conseguindo baixar o arquivo do seu último post. Ao clicar para baixar trava o navegador (Fire Fox).

Olá, Camila. Veja se ajuda. Instale o código abaixo no módulo da planilha, assim: 1. copie o código daqui 2. clique com o direito na guia da planilha...

Experimente: =PROC("zzz";A1:AD1)