Criando UserForm no VBA - Excel (Parte Final)


.

Nesta última aula o foco foi no carregamento do Listview, utilizamos FOR NEXT e IF ELSE IF no desenvolvimento da rotina. Abaixo disponibilizo a linguagem para agilizar o trabalho:

Sub LISTAR_FINANCEIRO()

Dim item As ListItem Dim i As Integer

ListView1.ColumnHeaders.Clear ListView1.ListItems.Clear

ListView1.Gridlines = True ListView1.View = lvwReport ListView1.FullRowSelect = True

ListView1.ColumnHeaders.Add Text:="TIPO", Width:=60, Alignment:=0 ListView1.ColumnHeaders.Add Text:="NF", Width:=60, Alignment:=0 ListView1.ColumnHeaders.Add Text:="CLIENTE / FORNECEDOR", Width:=170, Alignment:=0 ListView1.ColumnHeaders.Add Text:="FORMA DE PGTO", Width:=80, Alignment:=0 ListView1.ColumnHeaders.Add Text:="VALOR", Width:=80, Alignment:=0 ListView1.ColumnHeaders.Add Text:="VENCIMENTO", Width:=70, Alignment:=0 ListView1.ColumnHeaders.Add Text:="COMPETENCI", Width:=70, Alignment:=0 ListView1.ColumnHeaders.Add Text:="DATA PGTO", Width:=70, Alignment:=0

For i = 2 To Planilha2.Range("a1000000").End(xlUp).Row

If (ComboBox1.Text = "" Or ComboBox1.Text = Planilha2.Range("a" & i)) And _ (ComboBox2.Text = "" Or ComboBox2.Text = Planilha2.Range("d" & i)) And _ TextBox1.Text <= CDate(Planilha2.Range("f" & i)) And _ TextBox2.Text >= CDate(Planilha2.Range("f" & i)) Then

Set item = ListView1.ListItems.Add(Text:=Planilha2.Range("a" & i)) item.SubItems(1) = Planilha2.Range("b" & i) item.SubItems(2) = Planilha2.Range("c" & i) item.SubItems(3) = Planilha2.Range("d" & i) item.SubItems(4) = Planilha2.Range("e" & i) item.SubItems(5) = Planilha2.Range("f" & i) item.SubItems(6) = Planilha2.Range("g" & i) item.SubItems(7) = Planilha2.Range("h" & i)

End If

Next

End Sub

#vbaexcel #vba #CursodeVBA #criaruserform #combobox

Posts Em Destaque
Posts Recentes
Arquivo
Procurar por tags
Nenhum tag.
Siga
  • Facebook Basic Square