Seja bem vinda, @ThamiVieira30! Esse parece ser um exercício de escola que vc deve desenvolver, correto? Então, ao invés de apresentar a resposta, v...

Mais uma sugestão, por fórmula. Na célula B3: =SUBSTITUIR(ÍNDICE(Mapão!G:BJ;CORRESP("Aulas Dadas:*";ÍNDICE(Mapão!G:BJ;0;CORRESP(B2;Mapão!G12:BJ12;...

Seu Excel é 32 bits? Se sim, teste o seguinte código: Private Declare Function GetCurrentProcessId Lib "kernel32" () As LongSub FindAn...

Boa tarde, @leandro526 Anexe uma planilha-modelo com o que vc tem e como vc quer que fique demonstrado mesmo que manualmente os elementos e como vc ...

Que tipo de suplemento é esse? Um .xlam ou um suplemento COM? Que tipo de objeto é EPMAddInAutomation? É uma classe de um módulo de classes dentro do ...

Uma ideia... Seu código cria uma instância do Excel nova, tipo CreateObject("Excel.Application") ou Dim x as New Excel.Application? Se sim, consider...

Deu Overflow pq talvez algum dos valores que estão nas células seja maior do que o tipo de dados Integer (-32.768 a +32.767) ao ser convertido com CIn...

Muito provavelmente sua coluna tinha células formatadas como texto antes de ser preenchida. Se for isso, é bem possível que a data também esteja apare...

Estranho... Vc conseguiu renomear? Esse erro é no renomeado ou no original ou nos dois? Quando vc tenta abrir o arquivo Excel, é o OneNote que a...

Ok, no módulo do Workbook: Private Sub Workbook_Open() usarTimer = True MudaCorGuia End Sub Private Sub Workbook_SheetActivate(ByVal Sh As...

Considerei que os monitoramentos abrangeriam os eventos em que a pasta de trabalho é aberta, sempre que outra planilha da pasta for ativada, sempre qu...

Bom dia @doriva, bom dia @wagner-morel-vidal-nobre Acho que o colega @doriva está com a opção de não exibir as extensões dos arquivos conhecidos no ...

Tente mover a linha: Application.CutCopyMode = False para depois da linha pintada de amarelo.

Bem vindo ao Planilhando, @LucasBortolotti! Uma maneira seria usar uma fórmula nomeada. Por exemplo: No Gerenciador de Nomes (CTRL + F3), clique...

Na célula B1, insira a fórmula: =SE(LIN()<=$A$1;LIN();"") Arraste até onde vc prevê que os valores vão ser preenchidos.