Página 1 de 1
Como Formatar limites da tabela com base na ultima célula pintada
Enviado: 17 Nov 2021 às 08:16
por 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.
Re: Como Formatar limites da tabela com base na ultima célula pintada
Enviado: 18 Nov 2021 às 14:20
por 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.
Re: Como Formatar limites da tabela com base na ultima célula pintada
Enviado: 18 Nov 2021 às 14:50
por 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
Re: Como Formatar limites da tabela com base na ultima célula pintada
Enviado: 18 Nov 2021 às 15:30
por DJunqueira
Quem é Andre Moreira no final das contas?
Re: Como Formatar limites da tabela com base na ultima célula pintada
Enviado: 18 Nov 2021 às 16:17
por 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.
Re: Como Formatar limites da tabela com base na ultima célula pintada
Enviado: 18 Nov 2021 às 18:57
por 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 todosPrivate 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.
Re: Como Formatar limites da tabela com base na ultima célula pintada
Enviado: 19 Nov 2021 às 08:05
por 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?
Re: Como Formatar limites da tabela com base na ultima célula pintada
Enviado: 19 Nov 2021 às 10:41
por DJunqueira
Feito, fica a seu critério.
Re: Como Formatar limites da tabela com base na ultima célula pintada
Enviado: 19 Nov 2021 às 10:55
por PedroSilva
Assim fica tudo a vermelho... eu queria uma condição que só ficasse a ultima célula azul com a linha vermelha
Re: Como Formatar limites da tabela com base na ultima célula pintada
Enviado: 19 Nov 2021 às 11:08
por PedroSilva
DJunqueira escreveu: ↑19 Nov 2021 às 10:41
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
Re: Como Formatar limites da tabela com base na ultima célula pintada
Enviado: 19 Nov 2021 às 11:10
por PedroSilva
DJunqueira escreveu: ↑19 Nov 2021 às 10:41
Feito, fica a seu critério.
Já consegui terminar, bastou colocar na fórmula o sinal de diferente.
Obrigado
Re: Como Formatar limites da tabela com base na ultima célula pintada
Enviado: 19 Nov 2021 às 13:51
por DJunqueira
Q ótimo, parabéns!
