pessoal estou tentando fazer com que os dados sejam procurados na primeira coluna 1 no listview , e q esses resultados sejam procurados na planilha tambem e sejam alterados na planilha igual no listview, sera q alguem pode me ajudar pq o maximo q eu consegui foi localizar um registro e eu preciso localizar todos e alterar todos de uma vez so. sera q alguem pode me ajudar?

Dim resultado As VbMsgBoxResult
     resultado = MsgBox("TEM CERTEZA QUE DESEJA REALIZAR ESSA VENDA?", vbYesNo, "F R CONTROLES")
     If resultado = vbYes Then
  
    
Dim I As Integer, J As Integer

For I = 1 To ListView1.ListItems.Count - 1

Dim CODIGO As Variant

 CODIGO = ListView1.ListItems.Item(I)

ListView1.ListItems(I).Text = Empty

With Worksheets("ESTOQUE").Range("A:A")

Set C = .Find(CODIGO, LookIn:=xlValues, LookAt:=xlWhole)

If Not C Is Nothing Then

C.Activate
C.Select



C.Offset(I, 8) = ComboBox1.Value  'CLIENTE

C.Offset(I, 10) = TextBox3.Value  'DATA

End If

End With

For J = 1 To ListView1.ListItems.Count

ListView1.ListItems(I).ListSubItems(J).Text = Empty

Next J
Next I

MsgBox "VENDA REALIZADA COM SUCESSO", vbInformation, "F R CONTROLES"
ListView1.ListItems.Clear
Label9 = ""
Label7 = ""
Else
          Exit Sub
     End If