Notifications
Clear all

procv em vba?

11 Posts
3 Usuários
0 Reactions
2,190 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Tenho dados em uma planilha de F14 a AV14 que preciso fazer um "proc" de A4 a A13 (onde A4=2 ,A5=3 , A6=4... A13=11) ; onde coincidir , colar F14:AV14 apartir do F da respectiva linha.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 06/08/2014 9:44 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Já procurou na nossa base?
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 07/08/2014 5:02 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

na verdade nem sei se é o procv que vai se adequar a este caso
nem sei se a forma que estou expressando esta "entendivel" , mas é
Tenho dados em uma planilha de F14 a AV14 que preciso fazer um "proc" de A4 a A13 (onde A4=2 ,A5=3 , A6=4... A13=11) ; onde coincidir , colar F14:AV14 apartir do F da respectiva linha.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/08/2014 9:54 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Eu entendi.
Pq não faz fórmulas?
Minhas considerações... O proc, procv e proch procurando algo, em algum lugar. Vc soh disse na sua pergunta o lugar onde a busca acontece, não mencionou. O q tá procurando.
Entendo que na linha 14 de F até AV tem dados.
Nas no intervalo F1 até AV13 deve aparecer os dados da linha 14, linha a linha. O q determinado a que os dados da linha 14 apareçam por exemplo na linha 5 tem algo a ver com a célula A5... Mas o que?
E daih minha pergunta final, formula resolve isso, nem acho q precise ser procv, muito menos VBA...

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/08/2014 5:01 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

assim , tem um formulario onde preencho e ele faz uma cópia dos dados preenchidos colando em A14:AV14 , que na verdade deveria procurar o valor de A14 em A4:A13 e ja colar diretamente ,onde a coluna A4:A13 é sempre esse valor fixo (de 2 a 11) e o restante varia de acordo com o que digitar no formulário, sem necessidade desse proc, mas o que consegui foi chegar nisso ai , agora preciso fazer esse proc. acho que compliquei mais né

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 09/08/2014 8:06 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Uso o código abaixo em um form que atribui os valores a A4:AV14

Range("A14").Value = txtcódigo.Value
Range("F14").Value = txtNContr.Value
    Range("H14").Value = txtDatIni.Value
    Range("I14").Value = txtDatFin.Value
    Range("K14").Value = txtVrUS.Value
    Range("G14").Value = txtEmpres.Value
    Range("J14").Value = txtRepres.Value
    Range("L14").Value = txtCodEmp.Value
Range("M14").Value = TextBox1.Value
Range("N14").Value = TextBox2.Value
Range("O14").Value = TextBox3.Value
Range("P14").Value = TextBox4.Value
Range("Q14").Value = TextBox5.Value
Range("R14").Value = TextBox6.Value
Range("S14").Value = TextBox7.Value
Range("T14").Value = TextBox8.Value
Range("U14").Value = TextBox9.Value
Range("V14").Value = TextBox10.Value
Range("W14").Value = TextBox11.Value
Range("X14").Value = TextBox12.Value
Range("Y14").Value = TextBox13.Value
Range("Z14").Value = TextBox14.Value
Range("AA14").Value = TextBox15.Value
Range("AB14").Value = TextBox16.Value
Range("AC14").Value = TextBox17.Value
Range("AD14").Value = TextBox18.Value
Range("AE14").Value = TextBox19.Value
Range("AF14").Value = TextBox20.Value
Range("AG14").Value = TextBox21.Value
Range("AH14").Value = TextBox22.Value
Range("AI14").Value = TextBox23.Value
Range("AJ14").Value = TextBox24.Value
Range("AK14").Value = TextBox25.Value
Range("AL14").Value = TextBox26.Value
Range("AM14").Value = TextBox27.Value
Range("AN14").Value = TextBox28.Value
Range("AO14").Value = TextBox29.Value
Range("AP14").Value = TextBox30.Value
Range("AQ14").Value = TextBox31.Value
Range("AR14").Value = TextBox32.Value
Range("AS14").Value = TextBox33.Value
Range("AT14").Value = TextBox34.Value
Range("AU14").Value = TextBox35.Value
Range("AV14").Value = TextBox36.Value

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 09/08/2014 10:16 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Eu tentei entender ontem e hoje mas ainda não encontrei uma forma de sabe o que quer. :? :?

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 15/08/2014 6:17 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

De A4:A13 tenho o código de varias empresas com seus dados de F a AV.
em um formulario de VBA digito os dados (F a AV) quando necessário alguma atualização desses dados.
Inseri uma linha nesse form para que os dados preenchidos sejam colados em A14:AV14.
O que preciso:
que os dados do form sejam colados na linha onde tiver o código correspondente (código da empresa de A4:A13).

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/08/2014 2:27 pm
(@gtsalikis)
Posts: 2373
Noble Member
 

Ah, assim dá pra entender...

Dim EQ  As Long 'EQ é o valor que vc vai digitar no formulário
Dim rng As Range 'Onde estão seus dados
Dim l   As Long 'Linha que contém a informação

EQ = 4 'substitua pelo valor do formlário, algo comoo textbox1.value
Set rng = Range("A4:A13")

'Aumenta 3 porque o range desejado ignora as 3 primeiras inhas
l = Application.WorksheetFunction.Match(EQ, rng, 0) + 3

'A partir disso, vc pode atualizar os valores via userform, com algo do tipo:
cells(l, "F").value = textbox2.value 'onde l é a linha encontrada e "F" a que vc especificar

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 16/08/2014 3:19 pm
(@ericsson)
Posts: 54
Trusted Member
 

Tenta o seguinte:


Sub Procurar()
DIM  procv1 as string

'Declara uma variavel ou relaciona uma célula/Textbox para receber a informação.
procv1 = WorksheetFunction.Vlookup("INFORMAÇÃO QUE PROCURAS", Sheets("plan1").range("A:D"),4,0)

End sub
 
Postado : 18/08/2014 11:32 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Valeu pessoal, muito obrigado mesmo.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/08/2014 8:10 pm