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)

O fórum é gratuito e depende da boa vontade de seus usuários em ajudar e contribuir com seus conhecimentos gratuitamente, por isso peço para ser mais ...

Sub mensagemV2() If ActiveSheet.Shapes(Application.Caller).OLEFormat.Object.Value = 1 Then MsgBox "marcada" Else&#...

Olá, Renata. Veja se o arquivo anexado atende.

Tipo se aparecer em qualquer célula da coluna A resultado "Fabio Sp" trocar para Funcionario1. Veja se atende. Sub SeuCódigo() '.....