[VBA] "Pular Colunas e inserir dados"

[Jean Lopes 0]

Boa tarde,

 

Estou tentando fazer uma planilha, meio que um controle de vendas..

Criei o cadastro, com uma "base de dados" na plan2,

Existem algumas informações no cadastro:

Codigo(Gerado automaticamente a cada registro)

nome e etc, na nona coluna eu tenho "Débitos"

 

dai, tem um "mini-cadastro" das compras efetuadas pelos clientes,

Eu escolho em uma combobox o cliente, pelo Código dele, e depois escrevo o valor da compra na célula C16,

O problema que estou encontrando é:

-Pegar o valor da célula C16(plan1), e jogar no campo "Débitos" da base de dados(plan2), na linha desse cliente

 

eu peguei na internet um modelo de find, para achar o cliente pelo codigo na plan2

Sheets("Clientes").Select
   Range("A2:A10").Select 'exemplo
   Selection.Find(what:=2, After:=ActiveCell, LookIn:=xlFormulas, _
       LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
       MatchCase:=False).Activate

Eu tinha em mente: achar o cliente com o Find(procurando pelo cod.), isso iria definir a linha, e nessa linha, na coluna "I", inserir o valor da compra...

 

Espero que tenha ficado claro, caso esteja meio confuso avise, tento explicar melhor :P

[GustavoRezende 0]

Jean vamos ver se resolve:

 

A coluna número 9 é a coluna de Letra "I". Ok, então pode ser usado um comando para "vasculhar" a coluna toda em busca do seu código.

Este exemplo coleta o código desejado na celula C16 e procura na outra aba o valor coletado.

 

Fica + - assim:

 

Sub procurar()

dim nLinhas as double

dim cod as string

 

Sheets("Clientes").Select

cod = Range("C16").value

 

Sheets("Dados").Select

nLinhas = Cells(65536, 9).End(xlUp).Row 'Este comando verifica até que linha existe informações na coluna 9.

 

For i = 1 to nLinhas step 1

if range("I"&i).value= cod then

msgbox "Código encontrado" 'Aqui você implementa o código com o valor de compra e tudo mais da sua combo box

Exit For

end if

Next

 

End Sub

 

Abraço.