fazerbem,

Bom dia!

Anexe seu exemplo aqui no fórum.

ola wang, ai que ta nao tenho um molde, essa que tenho possui informacoes que nao posso aqui postar, pois a planilha esta operante.

Basta ser algo simples, o formulario ter apenas ja 4 ou 5 itens aparecendo na listview e a plan de destino que e o estoque recebendo a baixa. Veja que a macro que enviei funciona, mas so nao estou conseguindo jogar da listview na plan temporaria

Fiz assim e funcionou, mas esqueci que tem que pegar tb a coluna QNT da ListView e transportar tb

Na ListView a Coluna COD é a primeira ( 0 )
Na ListView a Coluna QNT é a 4 coluna ( 3 )
Sendo que minha listView e composta de 8 colunas, mas preciso somente dessas 2.

Bem parte do comando eu fiz, e agora como selecionar a coluna 4 ?

Private Sub CommandButton57_Click()

Dim i As Integer, j As Integer

Sheets("Baixar Estoque").Activate

'Loop as lignes
For i = 1 To ListView1.ListItems.Count
Cells(i + 1, 1) = ListView1.ListItems(i).Text

Next i

End Sub

fazerbem,

Se não pode postar a planilha real, poste uma planilha exemplo, todavia, com o layout real de como são seus dados de fato. Fica muito difícil ajudar sem ter uma exemplo que funcione.

Não estou nem conseguindo entender o que você realmente quer. Precisamos, para ajudar, ver o seu código funcionando (mesmo que seja num exemplo).

Sera que vc nao teria nenhum modelo que pudesse me servir, so quero pegar o comando mesmo.

Bastaria carregar uma listView bem simples apenas com 3 colunas COD, Produto e QNT , ja com os tres produtos sendo carregados no Initialize:

COD produto QNT
1 Produto a 3
2 Produto b 4
3 Produto c 6

com um botao de comando.

Ter uma plan de nome PLan1 e nessa plan1 ao precionar o botao de comando da listView , transferir apenas o COD e QNT de cada item e jogar na Plan 1 ,

Coluna A2 = Cod 1 - Coluna C2 = QNT ', produto nao precisa somente esses dois
Coluna A3 = Cod 2 ..........

Com isso ja poderei usar o comando abaixo , pois ja testei. Negocio so ta em jogar da list view pra plan1 ou outro nome qualquer

Sub Baixa()

Application.ScreenUpdating = 0
'PRODUTOS a dar baixa estoque

' Pocisionar Produto no Ranking

Dim Produto As String ', VendaAba As String
Dim Cont1 As Long, xb As Integer
Dim WC1 As Worksheet, WR1 As Worksheet, WT1 As Worksheet

Application.ScreenUpdating = False
VendaAba = Range("B1").Value

Set WC1 = Worksheets("Estoque")
Set WR1 = Worksheets("Baixar Estoque")

Produto = WR1.Range("A1").Value

VOLTAR:
WC1.Activate
WC1.Range("B6").Activate

Do While ActiveCell <> ""
If ActiveCell = Produto Then
ActiveCell.Offset(0, 2).Activate
Cont1 = ActiveCell
Cont1 = Cont1 - WR1.Range("B" & xb).Value
ActiveCell = Cont1
GoTo Pule
Else
ActiveCell.Offset(1, 0).Activate
End If
Loop

Pule:
'Sheets(s).d

'---------------------------------------
WR1.Activate
'Aqui faz uma verificacao se existem outros produtos

For xb = 2 To 40
If Range("A" & xb).Value <> "" And Range("C" & xb).Value = 0 Then
Produto = WR1.Range("A" & xb).Value
Range("C" & xb).Value = 1 'Aqui escrevo 1 para marcar que essa rotina foi comprida !
GoTo VOLTAR
End If
Next

Set WC = Nothing
Set WR = Nothing
Set WT = Nothing

Range("A2:C40") = ""
Sheets("Estoque").Activate

Application.ScreenUpdating = 1

End Sub

segue modelo bem basico

revisado

Consegui resolver meu problema por aqui mesmo, bati a cabeca ate resolver, e consegui.

segue o codigo

'Transfere COD e QNT da ListView para a Planilha Baixar Estoque
Private Sub CommandButton57_Click()


'Sheets(f).f

 Dim i As Integer, j As Integer
    
   Sheets("Baixar Estoque").Activate

    'Loop as lignes
    For i = 1 To ListView1.ListItems.Count
        Cells(i + 1, 1) = ListView1.ListItems(i).Text
        
        'Loop as colunas
        For j = 1 To ListView1.ColumnHeaders.Count - 1
            Cells(i + 1, j + 1) = ListView1.ListItems(i).ListSubItems(3) '(j).Text
            GoTo A
            
        Next j
        
A:
    Next i

End Sub