Posso imprimir o conteúdo da célula com comentários de célula no final da planilha?

Question

Como faço para imprimir o conteúdo de uma célula comentada junto com os comentários da célula no final de uma planilha? Eu sei imprimir os comentários no final, mas é possível adicionar o conteúdo da célula?

Exemplo:

A célula E96 da minha planilha contém: "Remover janelas de tempestade"

O comentário para a célula E96: "6 janelas mais 1 pequena ... digamos 0,5 horas cada = 3,5 horas"

Quando imprimo uma planilha com comentários anexados após a planilha, obtenho:

Cell | E96

Comment | 6 windows plus 1 small...say .5 hours each = 3.5 hours

Gostaria de adicionar o conteúdo da célula comentada também, assim:

(ou algo similar, sou flexível)

Cell | E96 Remove storm windows

Comment | 6 windows plus 1 small...say .5 hours each = 3.5 hours

    

Answer 1

Eu peguei o código de link chuffs e corrigiu alguns erros.

A macro extrai o endereço da célula, o valor da célula, o autor, o texto do comentário de todas as células comentadas e as grava em uma nova planilha. Esta folha pode ser impressa separadamente com sua folha normal.

• abra sua pasta de trabalho e pressione ALT + F11
• insira o código abaixo em sheet1 ou em um novo módulo
• feche o editor do VBA e volte para a planilha com seus comentários
• pressione ALT + F8 e execute a macro

Sub ListComments()
Application.ScreenUpdating = False

    Dim X As Long, RngName As String, newwks As Worksheet, curwks As Worksheet

    Set curwks = ActiveSheet
    If curwks.Comments.Count Then

        Set newwks = Worksheets.Add
        newwks.Range("A1").Resize(1, 4) = Array("Address", "Cell Value", "Author", "Comment")

        On Error Resume Next
        For X = 1 To curwks.Comments.Count
            With curwks.Comments.Item(X)
                newwks.Range("A1").Offset(X, 0).Resize(1, 4) = _
                    Array(.Parent.Address(False, False), .Parent.Value, .Author, .Text)
            End With
        Next
    End If

Application.ScreenUpdating = True
End Sub

    

Answer 2

Eu não tenho certeza se isso vai ajudar você, mas você pode tentar CTRL V é suposto copiar fórmulas, valores etc. Eu não sei se isso vai fazer o que você quer, mas pensou talvez você queira experimentá-lo se ainda não estiver ciente dessa função.