Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Inserir fórmula ao ...
 
Notifications
Clear all

Inserir fórmula ao gravar dados

 
2024 - VBA & Macros
Post Recente por MPrudencio 6 anos atrás
2 Posts
2 Usuários
0 Reactions
1,209 Visualizações
RSS
 fcarlosc
(@fcarlosc)
Posts: 0
New Member
Topic starter
 

Boa-tarde

Tenho uma ListBox que transfere dados de uma Plan8 para Plan9, porém gostaria que ao transferir os dados também acrescentasse uma fórmula conforme for copiando os dados nas próximas linhas, um (AutoFill). Não estou conseguindo adequar a fórmula no código.

Sheets("Plan9").Select

'Lança os dados na planilha

Dim Item As Double
Dim linha As Integer

linha = 4

For Item = 0 To ListBox1.ListCount - 1

    Sheets("Plan9").Cells(linha, 1) = ListBox1.List(Item, 0)
    Sheets("Plan9").Cells(linha, 2) = ListBox1.List(Item, 1)
    Sheets("Plan9").Cells(linha, 3) = ListBox1.List(Item, 2)

    linha = linha + 1

    Next

End If

Fórmula: =SE(ÉERROS(PROCV(A4;ProdLucro;4;0));"";PROCV(A4;ProdLucro;4;0)) - na linha Sheets("Plan9").Cells(linha, 4)

=SE(ÉERROS(PROCV(A4;ProdLucro;5;0));"";PROCV(A4;ProdLucro;5;0)) - na Sheets("Plan9").Cells(linha, 5)

Att,

Francisco

Exemplo - fcarlos.zip
 
Postado : 19/09/2018 11:11 am
 MPrudencio
(@mprudencio)
Posts: 0
New Member
 

Se ja esta usando o vba pq nao usa o vba para trazer a resposta do procv

Seu exemplo nao diz onde deve ser inserida a formula.

Mas faria com vba

Ajuste esse codigo ao seu.

Com base na sua planilha procv com vba


Sub ProcvVBA()
linha = 2

Plan3.Cells(linha, 10).Value = Application.WorksheetFunction.VLookup(Plan3.Cells(linha, 1).Value, Plan2.Range("A2:E" & Rows.Count), 5, 0)

End Sub
 
Postado : 21/09/2018 7:09 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico