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,222 Visualizações
RSS
fcarlosc
 fcarlosc
(@fcarlosc)
Posts: 453
Honorable 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: 2749
Famed 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

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

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