Desculpe, Luiz, passei batido em relação à senha Veja se melhora com a alteração abaixo. substitua esta linha ActiveSheet.Protect UserInte...

Solução alternativa: a fórmula abaixo em 'B3' e arraste para baixo; formate o intervalo para "ddd" =SE(LIN()=CÉL("lin");DATA($A$1...

Veja se ajuda. 1. proteja a planilha manualmente antes de iniciar e deixe desbloqueadas as células liberadas para receber dados 2. funcionamento - apó...

Experimente esta fórmula matricial na célula 'I3'. =ÍNDICE($C$3:$C$8;CORRESP(1;($B$3:$B$8=F3)*($D$3:$D$8=MÁXIMO(SE($B$3:$B$8=F3;S...

Experimente: Sub ArranjaDados() Dim a As Long, k As Long, m As Long, x As Long, rng() Columns("J:L") = "" For a = 2 To C...

If Columns(iLSA & ":" & nLSA).EntireColumn.Hidden = False Then --> AGORA O ERRO ESTÁ AQUI. O que pode ser? Você pode corr...

Provavelmente o texto "interfaces" (exatamente escrito como está no código) não existe no intervalo pesquisado pelo código, por isso acusa o...

Experimente remover o código que está no módulo da Plan1 e colocá-lo no módulo de EstaPasta_de_trabalho.

... preciso em uma nova coluna receber o valor VERDADEIRO caso uma das células daquela linha tenha sido pintada de vermelho pela formatação condiciona...

Private Sub Worksheet_Change(ByVal Target As Range) Dim k As Long, m As Long If Target.Address <> "$A$2" Then Exit Sub Rows(&q...

Qual a fórmula que você utiliza na FC ?

wsAtiva.Range ("C12:C" & UltL)

Instale o código abaixo em um módulo comum, assim: 1. copie o código daqui 2. a partir da planilha em que estão os dados tecle 'Alt+F11' para acessar ...

questão postada aqui também http://forum.clubedohardware.com.br/topic/1166783-excel-macro-par-buscar-dados-at%C3%A9-a-%C3%BAltima...

O código abaixo seleciona a terceira célula abaixo da célula ativa, mesma coluna. Funciona em todas as colunas. Seria isso que você quer ? Private Su...