Um amigo de outro fórum conseguiu escrever o código da forma correta pra mim. Caso alguém queira segue a baixo: SendKeys "+(^{ESC}({RIGHT}))"...

Tenta o seguinte: dirCopia = "diretorio do arquivo" nomeCopia = "nome do arquivo" ActiveWorkbook.SaveAs Filename:= &...

O código está com outros erros. Mas chamei as macros na Macro1.

Envie o arquivo em anexo por favor, ou um modelo parecido, para que possamos dar uma olhada.

Primeiramente obrigado Mauro Coutinho. O botão Windows é pressionado corretamente, porém quando eu tento fazer a junção dos três botões, ao invés del...

Bem mais complicado do que imaginava. Encontrei este link, graças ao toque de vocês: Mas já começa a fugir da minha alçada, pois não sei sobre a se...

Já havia encontrado essa alternativa, neste fórum e em outros também. Porém não tem os "key" do Windows, nem da seta. Realmente é uma dúvid...

Já tentou gravar uma macro apertando essas teclas? Já sim. Porém a macro não detecta.

Olá HigotTerra segue minha contribuição conforme solicitado. Sub MudarPag() 'Avança uma guia ActiveSheet.Next.Select 'Retorna u...

Segue conforme pedido.. Abrç! Fiz alguns ajustes e funcionou corretamente. Muito Obrigado colega!

Alguém tem uma sugestão para o código a cima?

Obrigado pela ajuda. Porém agora ele não esta buscando mais a primeira linha de código. Range("E2:E" & Cells(Rows.Count, 2)&...

Não consegui. Segue arquivo em anexo como solicitado.