Update – Modelo de Cadastro com ListView

Fruto da proeza do colega colaborador do fórum, Mauro Coutinho, esta versão do Modelo de Cadastro conta com a tela de pesquisa utilizando ao invés de um ListBox para mostrar os dados, o componente ListView, mais completo e amigável para visualização de navegação.

Modelo Cadastro Excel VBA

Confira essa versão na página oficial do aplicativo:

https://www.tomasvasquez.com.br/blog/modelo-de-aplicativo-de-cadastro-em-vba-no-microsoft-excel

Confira também no nosso fórum outras versões e alterações no modelo:

http://www.tomasvasquez.com.br/forum/viewforum.php?f=5

Bom proveito!

VBA – Marcador de Linha e Coluna no Excel

Dica dada pelo colega Felipe Dasi no nosso fórum.

O código adiciona uma referência na navegação do usuário na planilha, destacando toda linha e coluna. O Excel já faz isso por padrão, mas de uma maneira bem discreta.

'MARCADOR DE LINHA COM COLUNA
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Dim LinhaInicio As Range
    Dim ColunaAtual As Range
    Dim MinhaLinha As Range
    Dim Linha As Long
    Dim Coluna As Long
 
    'ESTABELECE QUE AS CELULAS SERÃO COLORIDAS.
    Cells.Interior.ColorIndex = xlNone
 
    Linha = Target.Row
    Coluna = Target.Column
    'CELULA ONDE SE INICIA A LINHA COLORIDA SEMPRE NA COLUNA A
    Set LinhaInicio = Range("A" & Linha, Target)
    'PEGA A COLUNA ONDE ESTÁ (INTERSECÇÃO ENTRE LINHA E COLUNA)
    Set ColunaAtual = Range(Cells(1, Coluna), Target)
    'FOCA A INTERSECÇÃO.
    Set MinhaLinha = Union(LinhaInicio, ColunaAtual)
 
    'COR QUE QUER USAR, NO CASO A 3 É VERMELHA
    MinhaLinha.Interior.ColorIndex = 3
 
End Sub

Para ver o código em funcionamento, dê uma olhada no vídeo abaixo:

O tópico do fórum que tratou do assunto pode ser visto no link abaixo:

http://www.tomasvasquez.com.br/forum/viewtopic.php?f=16&t=1090http://www.tomasvasquez.com.br/forum/viewtopic.php?f=16&t=1090

Bom proveito!