obrigado pela impressionante técnica. sou autodidata e já fiz formatação condicional da célula atual, mas nunca pensei na versatilidade de destacar linha e coluna inteiras. valeu!
Boa noite, professor. Tudo bem? Adorei a aula.😊 Sabe o que queria no seu quadro de "teste de excel"? Colocar uma prova prestada para Analista. Ou seja, provas mais avançadas pra gente treinar em casa. hahahahaha Abraços.❤
Consegui resolver com outro codigo! Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' Verificar se a célula A1 está na seleção para realizar o cálculo e colar If Not Intersect(Target, Range("A1")) Is Nothing Then Call CalcularEColarAlternativo End If
' Marcar a linha inteira da célula selecionada Call MarcarLinhaInteira(Target) End Sub Sub CalcularEColarAlternativo() ' Recalcular um intervalo específico Range("A1:B10").Calculate ' Permitir processamento de eventos pendentes DoEvents
' Operação de colar Range("A1").Copy Destination:=Range("B1")
' Limpar a área de transferência Application.CutCopyMode = False End Sub Sub MarcarLinhaInteira(ByVal Target As Range) ' Desmarcar qualquer linha previamente destacada Me.Rows.Interior.ColorIndex = xlNone
' Destacar a linha inteira da célula selecionada Target.EntireRow.Interior.Color = RGB(255, 255, 0) ' Cor amarela End Sub
🔵 PLANILHA EXCE GRÁTIS DOWNLOAD: excelentejoao.com.br/wp-content/uploads/2024/03/Realcar-Linha-e-Coluna-czJtTZWk5Y0.xlsx
🟢 APRENDA EXCEL COMIGO NO CURSO COMPLETO DE EXCEL COM CERTIFICADO: excelentejoao.com.br/sejaexcelente
O excel é uma ferramenta inteligente, o professor é um mestre na arte de ensinar. Agradeço e muito
EXCELENTE dica! não sabia desse recurso. uso bastante formatação condicional, e com certeza essa fará parte no meu dia a dia. Muito OBRIGADO!
🚩Código usado:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Calculate
End Sub
SAUDAÇÕES, CAMPEÃO JOÃO. DESEJO UM CURSO DE CONTROLO DE ESTOQUE.
Show de bola. Vai me ajudar muito.
obrigado pela impressionante técnica. sou autodidata e já fiz formatação condicional da célula atual, mas nunca pensei na versatilidade de destacar linha e coluna inteiras.
valeu!
Esse video vai me ajudar muit. Obrigado professor
excelente video!!
Muito útil, obrigado
Boa noite, professor. Tudo bem? Adorei a aula.😊
Sabe o que queria no seu quadro de "teste de excel"? Colocar uma prova prestada para Analista. Ou seja, provas mais avançadas pra gente treinar em casa. hahahahaha
Abraços.❤
Excelente João, vai me ajudar bastante. Obrigado.
Já aprendi muito vendo seu vídeos gostaria muito de poder participar numa de suas turmas.
Massa!
Show
Alguém pode me ajudar? Não aparece desse jeito para eu editar a nova regra na formatação convencional
Muito bom aprendi, mas uma obrigado João, apenas fiquei com uma dúvida quando salva o arquivo e sai a configuração não permanece.
Já descobriu o porquê da sua dúvida? Tentou ir em Dados e salvar Dados?
Excelente
Obrigado, Fernando! 🙏👍
Bom dia, João, porque parou de funcionar outros comandos como F4, colar e outros.
Depois que apliquei essa fórmula a função copia e cola não está funcionando. E para salvar tem que ser em macro ou binário
Vou testar. Mas já vi que tem muitas dúvidas aqui e você não respondeu!
porém, ao usar o aplication.calculate, nao consigo mais por exemplo dar um ctrl c / ctrl v pra copiar e colar, tem alguma forma de contornar isso ?
Consegui resolver com outro codigo!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Verificar se a célula A1 está na seleção para realizar o cálculo e colar
If Not Intersect(Target, Range("A1")) Is Nothing Then
Call CalcularEColarAlternativo
End If
' Marcar a linha inteira da célula selecionada
Call MarcarLinhaInteira(Target)
End Sub
Sub CalcularEColarAlternativo()
' Recalcular um intervalo específico
Range("A1:B10").Calculate
' Permitir processamento de eventos pendentes
DoEvents
' Operação de colar
Range("A1").Copy Destination:=Range("B1")
' Limpar a área de transferência
Application.CutCopyMode = False
End Sub
Sub MarcarLinhaInteira(ByVal Target As Range)
' Desmarcar qualquer linha previamente destacada
Me.Rows.Interior.ColorIndex = xlNone
' Destacar a linha inteira da célula selecionada
Target.EntireRow.Interior.Color = RGB(255, 255, 0) ' Cor amarela
End Sub
No meu não funcionou o application.calculate