Listview

[VALDECY]

Tem como selecionar os dados no listview antes de exportar pro relatório?
Tem também como deixar algumas informações fixa no relatório antes dos dados exportados?

[Mauro Coutinho]

Valdecy, referente a:

Tem como selecionar os dados no listview antes de exportar pro relatório?
Primeiro defina nas Propriedades do ListView o item: MultiSelect = True
Como não especificou quantas colunas tem o seu ListView, a Rotina abaixo envia para a Plan2 todos os itens selecionados referentes a Primeira Coluna:

Código: Selecionar todos

Private Sub CommandButton1_Click()
    Dim iRow As Integer
    Dim i, w, lastRow As Integer
    
    Dim rStartCell As Range
    
    Plan2.Range("A2:D22").Value = ""
    
    Set rStartCell = Plan2.Range("A65536").End(xlUp).Offset(1, 0)
    
    For i = 1 To ListView1.ListItems.Count
        
        If ListView1.ListItems(i).Selected = True Then
            iRow = iRow + 1
            rStartCell.Cells(iRow, 2).Value = ListView1.ListItems(i).Text
        End If
        
    Next

End Sub

E nas rotinas abaixo, é se seu ListView tiver 04 Colunas:

Código: Selecionar todos

Private Sub CommandButton3_Click()
    Dim iRow As Integer
    Dim i, w, lastRow As Integer
    
    Dim rStartCell As Range
    
    Plan2.Range("A2:D22").Value = ""

    Set rStartCell = Plan2.Range("A65536").End(xlUp).Offset(1, 0)

    For i = 1 To ListView1.ListItems.Count
        
        If ListView1.ListItems(i).Selected = True Then
            iRow = iRow + 1
            rStartCell.Cells(iRow, 1).Value = ListView1.ListItems(i).Text
            rStartCell.Cells(iRow, 2).Value = ListView1.ListItems(i).ListSubItems(1).Text
            rStartCell.Cells(iRow, 3).Value = ListView1.ListItems(i).ListSubItems(2).Text
            rStartCell.Cells(iRow, 4).Value = ListView1.ListItems(i).ListSubItems(3).Text
    
        End If
        
    Next
    
End Sub

Quanro a :
Tem também como deixar algumas informações fixa no relatório antes dos dados exportados?
Se entendi, é só definir o Layout da aba Relatorio colocando as informações que serão fixas, e enviar os dados para os ranges que estiverem em branco, se não for isto, forneça mais detalhes.

[]s

[VALDECY]

Mauro Coutinho, obrigado pela atenção.
Aqui está a rotina que exporta os dados para a planilha.
logo abaixo está o relatório.

Private Sub Exportar()
Dim i As Integer
Dim NewWorkBook As Workbook
Dim rst As ADODB.Recordset

Set rst = PreecheRecordSet(txtCATEGORIA.Text, txtuso.Text, txtBITOLA.Text)

Set NewWorkBook = Application.Workbooks.Add

For i = 0 To rst.Fields.Count - 1
NewWorkBook.Sheets(1).Range("A5").Offset(0, i).Value = rst.Fields(i).Name
Next i

NewWorkBook.Sheets(1).Range("A6").CopyFromRecordset rst
NewWorkBook.Activate


End Sub











As informações seriam aqui !!!


Código Categoria Uso Tipo Bitola Peca
28 AGUA FRIA AGUA FRIA SOLD 20 MM ADAPTADOR JET 30
29 AGUA FRIA AGUA FRIA SOLD 25 MM ADAPTADOR JET 30

[joseA]

Se não conseguiu resolver, anexe seu arquivo...