Obrigado alexandrevba pela dica, resolvido, depois de muito estudo na página sugerido. .PrintTitleRows = "$3:$8" Selection.PrintOut Estas sã...

Não precisa criar botão, más se deseja é só criar e ligar no código. 'ESTA PASTA DE TRABALHO copie o código Private Sub Workbook_Open() LimitarVisuali...

'ESTA PASTA DE TRABALHO Private Sub Workbook_Open() LimitarVisualizaçãoMenu End Sub 'MODULO Public Sub LimitarVisualizaçãoMenu() 'sheets("NomePl...

'ESTA PASTA DE TRABALHO Private Sub Workbook_Open() ConsultarNomeComputador End Sub 'MODULO Private Declare Function GetComputerName Lib "kernel...

Resolveu sim Trindade, muito obrigado

Bom dia a todos! Esgotaram as minhas pesquisas e não encontrei a solução para a ultima linha do código, levar o endereço da célula apagada para a Plan...

Neste evento, Private Sub Worksheet_Change(ByVal Target As Excel.Range) não serve porque já existe outro. Então gostaria que fosse no próprio código, ...

Obrigado pela atenção. Irmão o que eu quero e que ao apagar uma célula, então registra na plan1 a data, horas e célula, neste evento.

Resolvido com esta linha de código. If Plan1.Range("A1") = Date - 1 Then Plan1.Range("A2") = "" Minha pasta de trabalho...

Obrigado pela dica de pesquisa, ainda não encontrei a solução. Talvez não fui claro com a minha dúvida, o que eu estou buscando esta na HORAS; Bem não...

Obrigado Patropi, pela ajuda. Estou postando um modelo, não tem nenhum erro, somente em esta pasta de trabalho que deve ser mudado alguma coisa, por e...

Veja se este modelo lhe atende. Testado Excel 2010, este modelo não usa Outlook, envia direto pelo Excel Comente resultado. TESTE.xlsm