procv com loop

2024 - VBA & Macros

Post Recente por Fernando Fernandes 10 anos atrás

4 Posts

3 Usuários

0 Reactions

1,533 Visualizações

RSS

denisw

(@denisw)

Posts: 64

Trusted Member

Topic starter

Public Sub Atualizar_Controle()
For i = 3 To 1000
If Range("M" & i) = "" Then
If ("L" & i) <> "" Then
Range("A1").Value = Range("H" & i)' ele pega o dado da linha da coluna a H ecola na range A1'
Range("M" & i) = Range("B1") a range B1 tem um procv assim (=PROCV(A1;desp!A6:C390;3;FALSO) e o resultado vai pra linha da coluna M e depois segue pra próxima linha
End If
End If
Next
QUERO COLOCAR ESSE PROCV NO VBA porque quero eliminar as formulas da planilha. Mas não consegui. preciso de uma luz.

Postado : 27/08/2014 10:17 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

denisw,

Boa Tarde!

Assim:

Range("M" & i).FormulaLocal = "=PROCV(A" & i & ";desp!A6:C390;3;FALSO)"

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 27/08/2014 12:30 pm

denisw

(@denisw)

Posts: 64

Trusted Member

Topic starter

diz da forma q estava antes, pq elimina a formula nas linhas, se eu fizer da forma q vc sugeriu , o resultado é uma formula, e tem q ser apena so valor, aacho q terei de usar o find do vb , acredito q ele retornará valor ou "". tem como fazer O find com Range( A & i)?

Postado : 11/09/2014 10:42 am