Este fórum está sendo desativado

[PedroSilva]

Bom dia,

Precisava de ajuda para perceber se é possível aplicar um limite vermelho (como na imagem) após a ultima célula pintada.

[osvaldomp]

É possível uma solução via macro.
Se for aceitável no seu caso, então disponibilize uma amostra do seu arquivo Excel (imagens não servem), informe qual o critério utilizado para pintar as células de azul e informe em que momento você deseja atualizar a posição das bordas vermelhas na planilha.

[PedroSilva]

Boa tarde,

As células ficam azul quando escrevo "1".

Eu pretendo que a linha vermelha apareça no final da ultima célula azul pintada

Exemplo.xlsx

[DJunqueira]

Quem é Andre Moreira no final das contas?

[DJunqueira]

Na planilha anexa vc tem a linha vermelha sendo posicionada a medida q vc preenche as células com o valor 1, não testei com fórmulas, pois vc não frisou q seria assim.
A linha da formatação condicional é fina e não tem como ficar mais grossa, por isso alterei a cor das linhas q envolvem as células.

[osvaldomp]

Cole uma cópia do código abaixo no módulo da planilha Gantt-Chart.
Para acessar o módulo clique com o direito na guia daquela planilha e escolha Exibir Código.

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim cR As Range, cC As Range, LR As Long, LC As Long
  LR = Cells(Rows.Count, 2).End(3).Row: LC = Cells(8, Columns.Count).End(1).Column
  Range(Cells(11, 3), Cells(LR, LC)).Borders.LineStyle = xlContinuous
  Set cR = Range(Cells(11, 3), Cells(LR, LC)).Find(What:=1, lookat:=xlWhole, LookIn:=xlFormulas, _
   SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
  Set cC = Range(Cells(11, 3), Cells(LR, LC)).Find(What:=1, lookat:=xlWhole, LookIn:=xlFormulas, _
   SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
  If Not cR Is Nothing And Not cC Is Nothing Then
   With Range(Cells(11, cC.Column), Cells(cR.Row, cC.Column)).Borders(xlEdgeRight)
    .LineStyle = xlContinuous
    .Color = -16776961
    .TintAndShade = 0
    .Weight = xlThick
   End With
  End If
End Sub

#
funcionamento - o código irá pintar as bordas em vermelho, conforme solicitado, ao alterar manualmente o conteúdo de alguma célula.

[PedroSilva]

Bom dia,

E se as linhas forem todas pintadas a vermelho grosso e tiver uma formatação condicional a pintar de preto fino as linhas que não correspondem à ultima célula azul?

[DJunqueira]

Feito, fica a seu critério.

[PedroSilva]

Assim fica tudo a vermelho... eu queria uma condição que só ficasse a ultima célula azul com a linha vermelha

[PedroSilva]

Feito, fica a seu critério.

Eu alterei os critérios mas agora ficou com linha vermelha naquelas células que não são as últimas

[PedroSilva]

Feito, fica a seu critério.

Já consegui terminar, bastou colocar na fórmula o sinal de diferente.

Obrigado

[DJunqueira]

Q ótimo, parabéns!