Código: Selecionar todos
Private Sub UserForm_Initialize()
Dim Caminho As String
Caminho = Plan1.Range("b3").Value
Workbooks.Open Caminho
Call DefinePlanilhaDados
Windows(NomeArquivo).Visible = True 'False 'oculta o arquivo de dados
PopulaListBox
cbomes.SetFocus
cbomes.Value = Workbooks(NomeArquivo).Sheets("Auxiliar").Range("j1").Value
CboAno.Value = Workbooks(NomeArquivo).Sheets("Auxiliar").Range("k1").Value
Me.Label1.Caption = "Total de Registros: " & Format(Me.ListView1.ListItems.Count, "000")
Dim i& ' Zebrar linhas
hWnd = GetWindow(FindWindow(vbNullString, Me.Caption), 5) ' Zebrar linhas
ListView1.ColumnHeaders.Clear
With ListView1
.FullRowSelect = True 'seleciona linha
.View = lvwReport
' .HideColumnHeaders = True 'IráOcultar a Linha de Cabeçalho no listview
.ColumnHeaders.Add Text:="Codigo", Width:=0
.ColumnHeaders.Add Text:="Data", Width:=60
.ColumnHeaders.Add(, , "Vlr Total Pagar", Width:=83, Alignment:=1).Tag = "number"
.ColumnHeaders.Add(, , "Vlr Pago", Width:=83, Alignment:=1).Tag = "number"
.ColumnHeaders.Add(, , "Vlr a Pagar", Width:=85, Alignment:=1).Tag = "number"
.ColumnHeaders.Add(, , "Vlr Total Receber", Width:=85, Alignment:=1).Tag = "number"
.ColumnHeaders.Add(, , "Vlr Recebido", Width:=85, Alignment:=1).Tag = "number"
.ColumnHeaders.Add(, , "Vlr a Receber", Width:=85, Alignment:=1).Tag = "number"
.Gridlines = True 'efeito grade
End With
Calculos
OldProc = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf WindowProc) ' Zebrar linhas
End Sub
Sendo assim, inseri um botão chamado Atualizar. Mas estou com problemas na atualização, ou seja, não consigo fazer atualizar.
Já fiz o teste e sei que na planilha os dados são recalculados corretamente, porém no meu listview eu preciso atualizar.
Já coloquei o seguinte comando:
Não funcionou. Como os dados estão em planilha separada acredito que devo colocar mais algum comando junto. Mas com certeza o comando deve estar dentro do initialize, pois, se fechar o listview e volto a exibir ele, está correto. Sendo assim, o comando deve estar lá, mas não consigo ajustar.Private Sub BtnAtualizar_Click()
PopulaListBox
End Sub
Alguém me ajuda?