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,216 Visualizações

RSS

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