Experimente: no lugar do evento ---> Private Sub Workbook_Open() coloque ---> Private Sub Workbook_Activate() e no lugar do evento ---> Pri...

...mas acontece que tenho muitos dados para serem comparados (aproximadamente 250 mil linhas em cada base)... Dúvidas: 1 - considerando cada planilha...

... foi exatamente nesta que testei,... reenviei com esse mesmo código... Negativo! Verifique novamente célula por célula e você vai comprovar a dif...

... E está apenas substituindo os valores.... ... (quando lanço apenas substitui os que ja estao lançados) Amigão, você já disponibilizou neste tópic...

A macro funciona assim: 1. ao preencher 'C3' da planilha "Venda" o código insere nessa planilha os dados relativos ao valor inserido, buscad...

Experimente o código abaixo no lugar do atual. Private Sub Worksheet_Change(ByVal Target As Range) Dim cod As Range 'Me.Protect "125812&...

Experimente: Private Sub Worksheet_Change(ByVal Target As Range) 'Plan1.Unprotect Password:="125812" If Target.Address = ...

Experimente o código abaixo no lugar do seu. Funciona no intervalo 'A2:W17'. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Me.Pr...

Obviamente não se deve tornar público dados confidenciais. Leia de novo a minha sugestão - UMA AMOSTRA DO SEU ARQUIVO. Amostra é diferente do arquivo ...

sugestão - disponibilize uma amostra do seu arquivo Excel com o código instalado

Este comando cont = Range("AU1").Value atribui à variável "cont" o conteúdo da célula "AU1" da planilha ativa no momento...

Experimente: substitua esta linha Selection.AutoFilter por esta ActiveSheet.AutoFilterMode = False obs. se você quiser colar valores som...

Coloque os números na linha 1, começando por 'A1'. O código irá colocar as fórmulas na linha 2, a partir de 'A2'. Sub Macro1() Dim coluna As Long, ...

Experimente: Sub ExcluiLinhas() Dim k As Long For k = Cells(Rows.Count, 1).End(3).Row To 2 Step -1 If Cells(k, 1) = "exclui...

Experimente: Sub COPIA_TELA() Dim wsPlan As Worksheet For Each wsPlan In Worksheets(Array("Mensal", "Mensal2")) On Error Re...