Se vc disponibilizar um modelo da sua planilha fica mais facil ajudar

Primeiro excel nao é um banco de dados, logo recomenda-se nao usar para este fim. Explica melhor sua necessidade, pq gravar todos os dados na me...

O codigo acima funciona se a plan5 estiver na posição 5, no entanto .u tenho a pergunta de 1000.000 O que vc vai fazer com essa informação...

Se eu entendi sua necessidade, este codigo atende. Abra a planilha Alt + F11 Cole este codigo. Private Sub Worksheet_Change(ByVal Targ...

Este codigo salva um arquivo com o formato xlsm.Todos os codigos que existirem no arquivo original, serão levados ao novo arquivo.Sub GravarComMacro()...

Se o codigo que vc postou funciona, troque col = 2 por col = 12

@tutoelizeu De forma generica nao ha muito o que fazer com relação a velocidade.O que vc chama de lentidão???Verifique se é possivel aumentar a memori...

Cole o codigo na folha da planilha Selecione a planilha Alt F11 e cole o codigo Private Sub Worksheet_SelectionChange(ByVal Target As Range) ...

Eu nao entendi direito do que se trata. Seria bom mais detalhes da necessidade.

Apesar de aparentemente ter aparecido uma solução, não vi o arquivo do muca ai em cima, nem a sua planilha, mas ja pensou em usar uma validação de dad...

Na verdade o que eu fiz foi separar o codigo de proteção e desproteção das planilhas. O codigo sub proteger e sub desproteger protegem e des...

@jscopa10 então o resultado vai dar mais de 1 milhao de linhas, e é justamente por isso que resolvi fazer no PBI.Com VBA eu ja estou desenvolvendo, os...

Teste o codigo abaixo Sub Copiar() Dim lin As Long Call Desproteger lin = Sheets("REM31").Range("A" & Rows.Count).End(xlUp).Row ...

Segue o exemplo, apesar de achar que nao ajuda muito mais que o que coloquei no post inicial  Exemplo-Copa.xlsx

Tente assim: Dim Guia As Worksheet Set Guia = Sheets(ComboBox1.Value)