Notifications
Clear all

Need help =D

2 Posts
1 Usuários
0 Reactions
902 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

galera, eu preciso de uma programa que faca uma busca por valores....exemplo
eu tenho na minha coluna B diversos numeros, mas preciso encontrar apenas o valor digitado na minha txtNota e deslocar 4 colunas para direita e inserir o valor do txtCusto....como posso fazer ?
eu tentei assim

Range ("b2")

While ActiveCell <> ""
If ActiveCell = txtNota Then
ActiveCell.Offset(0, 4) = txtCusto
GoTo fim
End If
ActiveCell.Offset(1, 0).Select
Wend
MsgBox ''Valor nao encontrado''
fim:
limpar

End Sub

mais nao deu certo =[
poderiam me ajudar por favor ??

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

 
Postado : 07/12/2010 11:10 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


Eu costumo fazer assim:
(Atenção quando(ou se) precisar coincidir String ou Integer ou Long)

Private Sub TextBox1_Change()
On Error GoTo ErrMatch
i = Application.WorksheetFunction.Match(CLng(TextBox1.Value), Sheets("Plan1").Range("B:B"), 0)
TextBox2 = Sheets("Plan1").Cells(i, 5)
Exit Sub
ErrMatch:
MsgBox ("Valor não encontrado!")

End Sub

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

 
Postado : 11/12/2010 8:13 am