Guru do Excel e Power BI

Enviado: **10 Nov 2015 às 10:26**

Boas amigos.

No código abaixo, como faço para o mesmo me dar o maior valor da primeira coluna do listview.

Sub Maior()
Dim ip As Integer
Dim MaxValue As Integer

'(1) refere-se a segunda coluna. Já que a contagem para listview começa com (0)

MaxValue = ListView1.ListItems(1).SubItems(1)

With ListView1

For ip = 1 To .ListItems.Count
If .ListItems(ip).SubItems(1) > MaxValue Then
MaxValue = .ListItems(ip).SubItems(1)
End If
Next ip

End With
Me.Txt_Registro.Value = MaxValue + 1

No aguardo.

Enviado: **10 Nov 2015 às 12:53**

Use ListItems.Item que faz ref. a 1ª coluna:

Código: Selecionar todos

Sub Maior()
Dim ip As Integer
Dim MaxValue As Integer

'(1) refere-se a segunda coluna. Já que a contagem para listview começa com (0)


MaxValue = ListView1.ListItems.Item(1)

With ListView1


For ip = 1 To .ListItems.Count
If .ListItems(ip).Text > MaxValue Then
MaxValue = .ListItems(ip).Text
End If
Next ip

End With
Me.Txt_Registro.Value = MaxValue + 1
End Sub

Guru do Excel e Power BI

Primeira coluna do listview

Primeira coluna do listview

Re: Primeira coluna do listview