- 25 Out 2023 às 15:17
#73709
Boa tarde! Fiz uma Listview com um cadastro de moradores, sao 8 moradores por apto mas gostaria que onde tem no lugar do NOME tem um "#" nao seja carregado no listView
Alguem para ajudar?
Sub Carregar_Dados1()
'Tratamento de Erro
On Error GoTo Erro
'Planilha de trabalho
BuscaRapida.Select
'Define o ListView
With List1
'Paramentros do ListView
.Gridlines = True
.View = lvwReport
.FullRowSelect = True
.MultiSelect = True
'Cabeçalho
.ColumnHeaders.Add Text:="Nome", Width:=400, Alignment:=0
.ColumnHeaders.Add Text:="Apartamento", Width:=90, Alignment:=2
End With
'Variavel
Dim Linha1 As Double
Dim Lista1 As Object
'Linha inicial de dados
Linha1 = 4
'Limpa dados do ListView
List1.ListItems.Clear
'Determina a planilha de busca
With BuscaRapida
'Laço de repetição até encontrar vazio
While .Cells(Linha1, 2).Value <> Empty
'Carrega dados no ListView
With List1
If Cells(Linha1, 2) <> "" Then
Set Lista1 = List1.ListItems.Add(Text:=BuscaRapida.Cells(Linha1, 1).Value)
Lista1.ListSubItems.Add Text:=BuscaRapida.Cells(Linha1, 2).Value
Else
End If
'Else
End With
'Contilua o laço
Linha1 = Linha1 + 1
Wend
End With
'Limpa o ListView
Set Lista1 = Nothing
'Chama a contagem de registros
Call Contar1
'Sai do codigo
Exit Sub
Erro:
MsgBox "Erro!", vbCritical, "ERRO"
End Sub
Alguem para ajudar?
Sub Carregar_Dados1()
'Tratamento de Erro
On Error GoTo Erro
'Planilha de trabalho
BuscaRapida.Select
'Define o ListView
With List1
'Paramentros do ListView
.Gridlines = True
.View = lvwReport
.FullRowSelect = True
.MultiSelect = True
'Cabeçalho
.ColumnHeaders.Add Text:="Nome", Width:=400, Alignment:=0
.ColumnHeaders.Add Text:="Apartamento", Width:=90, Alignment:=2
End With
'Variavel
Dim Linha1 As Double
Dim Lista1 As Object
'Linha inicial de dados
Linha1 = 4
'Limpa dados do ListView
List1.ListItems.Clear
'Determina a planilha de busca
With BuscaRapida
'Laço de repetição até encontrar vazio
While .Cells(Linha1, 2).Value <> Empty
'Carrega dados no ListView
With List1
If Cells(Linha1, 2) <> "" Then
Set Lista1 = List1.ListItems.Add(Text:=BuscaRapida.Cells(Linha1, 1).Value)
Lista1.ListSubItems.Add Text:=BuscaRapida.Cells(Linha1, 2).Value
Else
End If
'Else
End With
'Contilua o laço
Linha1 = Linha1 + 1
Wend
End With
'Limpa o ListView
Set Lista1 = Nothing
'Chama a contagem de registros
Call Contar1
'Sai do codigo
Exit Sub
Erro:
MsgBox "Erro!", vbCritical, "ERRO"
End Sub