Comentário em número  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Comentário em número

Mensagempor jackison » Qua Fev 13, 2019 10:10 pm

estou com um problema q não estou conseguindo resolver

tenho duas planilhas
Alunos
FEV

na planilha alunos:
numero dos alunos e nomes dos alunos somente

ja na planilha FEV q será feita a chamada dos alunos o problema q na chamada dos alunos não tem o nome deles apenas o número o q estou querendo e quando passar o mouse pelo número do aluno apareça o nome do respectivo aluno já até consegui mais o problema q esta com algum erro q não consegui identificar pois se excluir todos os nomes da plan Alunos e for na plan FEV os nomes ainda estão aparecendo tem duas colunas com número como pode ser visto na imagem abaixo a primeira coluna está mudando os nomes em tempo real e atualizando ja na segunda coluna está os nomes que já foram excluidos
Você não está autorizado a ver ou baixar esse anexo.
jackison
Membro
Membro
 
Mensagens: 19
Registrado em: Dom Mar 11, 2018 1:54 pm
Has thanked: 4 times
Have thanks: 0 time

{ SO_SELECT }

Re: Comentário em número

Mensagempor Mauro Coutinho » Qui Fev 14, 2019 10:42 am

Jackison, pelo que eu vi, se entendi direito, falta a instrução para limpar os comentários da coluna "AH" igual tem para limpar da Coluna "A", só acrescentei a instrução, faça os testes e veja se é isso.

Código: Selecionar todos
Private Sub Worksheet_Activate()
Dim ul As Long, aluno As String
On Error Resume Next
    ul = Planilha4.Range("A" & Rows.Count).End(xlUp).Row
    ul1 = Planilha3.Range("A" & Rows.Count).End(xlUp).Row
    Planilha4.Range("A5:A" & ul).ClearComments
   
    'Adicionei a instrução para limpar os comentários dessa coluna tambem
    Planilha4.Range("AH5:AH" & ul).ClearComments

    For i = 5 To ul
        If Planilha4.Range("A" & i).Value <> "" Then
            aluno = Application.WorksheetFunction.VLookup(Planilha4.Range("A" & i).Value, Planilha3.Range("A5:F" & ul1), 6, 0)
            Planilha4.Range("A" & i).AddComment
            Planilha4.Range("A" & i).Comment.Text Text:=aluno
        End If
       
        If Planilha4.Range("AH" & i).Value <> "" Then
            aluno2 = Application.WorksheetFunction.VLookup(Planilha4.Range("AH" & i).Value, Planilha3.Range("A5:F" & ul1), 6, 0)
            Planilha4.Range("AH" & i).AddComment
            Planilha4.Range("AH" & i).Comment.Text Text:=aluno2
        End If
    Next i

End Sub
Mauro Coutinho - Moderador
São José dos Pinhais-Pr


Se a resposta foi últil para você, por gentileza, clique na mãozinha ao lado direito da sua tela. No canto superior.

For this post the author Mauro Coutinho thanked:
jackison (Qui Fev 14, 2019 5:36 pm)
Avatar do usuário
Mauro Coutinho
Ninja do Excel
Ninja do Excel
 
Mensagens: 3937
Registrado em: Sex Mar 26, 2010 9:24 pm
Localização: São José dos Pinhais - Pr
Has thanked: 181 times
Have thanks: 1452 times

Re: Comentário em número

Mensagempor jackison » Qui Fev 14, 2019 5:47 pm

o problema foi resolvido com sucesso

mais gostaria de saber se tem como a caixa de comentário se ajustar ao tamanho do nome ???
Você não está autorizado a ver ou baixar esse anexo.
jackison
Membro
Membro
 
Mensagens: 19
Registrado em: Dom Mar 11, 2018 1:54 pm
Has thanked: 4 times
Have thanks: 0 time

Re: Comentário em número

Mensagempor Mauro Coutinho » Sex Fev 15, 2019 1:44 pm

jackison escreveu:o problema foi resolvido com sucesso

mais gostaria de saber se tem como a caixa de comentário se ajustar ao tamanho do nome ???


Use a rotina abaixo, faça a chamada dela no final da rotina "Private Sub Worksheet_Activate() após po Next i"

Fonte:
https://www.extendoffice.com/documents/ ... ments.html
Código: Selecionar todos
Sub FitComments()
    Dim xComment As Comment
    For Each xComment In Application.ActiveSheet.Comments
        xComment.Shape.TextFrame.AutoSize = True
    Next
End Sub


[]s
Mauro Coutinho
Administrador
Mauro Coutinho - Moderador
São José dos Pinhais-Pr


Se a resposta foi últil para você, por gentileza, clique na mãozinha ao lado direito da sua tela. No canto superior.
Avatar do usuário
Mauro Coutinho
Ninja do Excel
Ninja do Excel
 
Mensagens: 3937
Registrado em: Sex Mar 26, 2010 9:24 pm
Localização: São José dos Pinhais - Pr
Has thanked: 181 times
Have thanks: 1452 times

Re: Comentário em número

Mensagempor jackison » Sex Fev 15, 2019 3:12 pm

esta dando esse erro
Você não está autorizado a ver ou baixar esse anexo.
jackison
Membro
Membro
 
Mensagens: 19
Registrado em: Dom Mar 11, 2018 1:54 pm
Has thanked: 4 times
Have thanks: 0 time

Re: Comentário em número  [Resolvido]

Mensagempor Mauro Coutinho » Sex Fev 15, 2019 3:24 pm

Jackison, me desculpe, pensei que voce iria entender, quando dizemos chamar uma macro, usamos a instrução "CALL"

Fica assim :
Cole essa rotina no Modulo da Planilha, separada da outra macro:
Código: Selecionar todos
Sub FitComments()
    Dim xComment As Comment
    For Each xComment In Application.ActiveSheet.Comments
        xComment.Shape.TextFrame.AutoSize = True
    Next
End Sub


Depois, faça a chamada para a macro "Sub FitComments()"
Código: Selecionar todos
Private Sub Worksheet_Activate()
Dim ul As Long, aluno As String
On Error Resume Next
    ul = Planilha4.Range("A" & Rows.Count).End(xlUp).Row
    ul1 = Planilha3.Range("A" & Rows.Count).End(xlUp).Row
    Planilha4.Range("A5:A" & ul).ClearComments
   
    'Adicionei a instrução para limpar os comentários dessa coluna tambem
    Planilha4.Range("AH5:AH" & ul).ClearComments

    For i = 5 To ul
        If Planilha4.Range("A" & i).Value <> "" Then
            aluno = Application.WorksheetFunction.VLookup(Planilha4.Range("A" & i).Value, Planilha3.Range("A5:F" & ul1), 6, 0)
            Planilha4.Range("A" & i).AddComment
            Planilha4.Range("A" & i).Comment.Text Text:=aluno
        End If
       
        If Planilha4.Range("AH" & i).Value <> "" Then
            aluno2 = Application.WorksheetFunction.VLookup(Planilha4.Range("AH" & i).Value, Planilha3.Range("A5:F" & ul1), 6, 0)
            Planilha4.Range("AH" & i).AddComment
            Planilha4.Range("AH" & i).Comment.Text Text:=aluno2
        End If
    Next i

Call FitComments 'Aqui estamos indicando que é para rodar a outra macro ao final dessa

End Sub


Entendeu ?

[]s
Mauro Coutinho - Moderador
São José dos Pinhais-Pr


Se a resposta foi últil para você, por gentileza, clique na mãozinha ao lado direito da sua tela. No canto superior.

For this post the author Mauro Coutinho thanked:
jackison (Sex Fev 15, 2019 3:37 pm)
Avatar do usuário
Mauro Coutinho
Ninja do Excel
Ninja do Excel
 
Mensagens: 3937
Registrado em: Sex Mar 26, 2010 9:24 pm
Localização: São José dos Pinhais - Pr
Has thanked: 181 times
Have thanks: 1452 times

Re: Comentário em número

Mensagempor jackison » Sex Fev 15, 2019 3:40 pm

Mauro Coutinho

Desculpa a ignorância em vba
deu tudo certo vlw amigo
obrigado
Editado pela última vez por Patropi em Sáb Fev 16, 2019 8:50 am, em um total de 1 vez.
Razão: Não use citação sem necessidade, evite poluir o fórum - Leia as regras do fórum
jackison
Membro
Membro
 
Mensagens: 19
Registrado em: Dom Mar 11, 2018 1:54 pm
Has thanked: 4 times
Have thanks: 0 time


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 3 visitantes

cron