Notifications

Clear all

cadastrar dado a partir de referencia listada no combobox

2024 - VBA & Macros

Post Recente por BetoRubini 12 anos atrás

8 Posts

3 Usuários

0 Reactions

2,045 Visualizações

RSS

BetoRubini

(@betorubini)

Posts: 57

Trusted Member

Topic starter

Boa noite!

Não posso enviar o modelo então vou tentar explicar a questão

tenho dois combobox encadeados por Estados e Cidades. Os estados estão na plan2, linha 1 colunas A,B,C.. até a letra "27" listando todos os estados brasileiros.
Na linha 2 começam a ser listadas as cidades de acordo com os estados,

Ate ai tudo bem mas não tenho todas as cidades cadastradas, então criaria um form que as cadastra-se.. nesse form teria o mesmo combobox listando os estados e um listbox onde seria digitada a cidade a serem cadastradas.

Mas nao sei como posso vincular o estado listado no combobox ao que vai ser cadastrado atravéz do listbox

Teria que :

* buscar o estado listado no combobox na plan2
* selecionar a primeira linha abaixo que estivesse vazia da mesma coluna, (acho que se chama offset)
*e então cadastrar o valor escrito no textbox

não ei se fui claro, mas se alguém puder me ajudar.
ficaria mais facil pstar o modelo mas realmente nao posso
Obrigado

Postado : 19/06/2013 10:55 pm

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

BetoRubini,

Bom Dia!

Assim ta muito difícil e confuso. Se não pode postar os dados reais, faça um exemplo com nomes e valores fictícios, compacte e anexe aqui.

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 : 20/06/2013 5:56 am

BetoRubini

(@betorubini)

Posts: 57

Trusted Member

Topic starter

Desculpa a confusão

Fiz um modelo pra ver se me faço entender melhor
att

Postado : 20/06/2013 8:46 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Não tenho como ver exemplos em 2007 aqui no serviço, então aproveitando um modelo do JoseA que acho que a principio deve ser igual, adicionei a instrução para adicionar a cidade se não existir, veja se seria isto, se for é só adaptar ao seu modelo se forem iguais, claro, mas o importante são as instruções, então acho que não vai ter problema em adaptar.

[]s

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

Postado : 20/06/2013 8:53 am

BetoRubini

(@betorubini)

Posts: 57

Trusted Member

Topic starter

Exatamente isso!
Obrigado

Postado : 20/06/2013 9:23 am

BetoRubini

(@betorubini)

Posts: 57

Trusted Member

Topic starter

Reabri o tópico pra perguntar se tem como evitar duplicidade no cadastro das cidades nesse modelo que o Mauro enviou?
att

Postado : 20/06/2013 10:56 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Existem diversas maneiras de se implementar, uma delas seria estar adaptando as rotinas no modelo do link abaixo, onde verifica se determinado item existe antes de lançar.

Function para Pesquisa
viewtopic.php?p=12562

No exemplo que enviei temos a rotina que procura pelo Estado na Linha 1 e quando encontrar lança a cidade na ultima linha, é só adaptar para procurar se na coluna já existe o nome antes de acrescentar
Aqui procura na Coluna a direita (xlToRigh) linha 1
For Each C In Plan1.Range(Cells(1, 1), _
Cells(1, Plan1.Range("A1").End(xlToRight).Column))

If C.Value = ComboBox1 Then

Provavelmente você deve ter as rotinas que preenchem o Combobox2, e nela tem a que lista todas as cidades referentes ao estado selecionado e preenche o combo, coloque um mensagem box : msgbox C.Value e terá o nome de cada cidade que está sendo listada.

[]s

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

Postado : 20/06/2013 12:23 pm