Notifications

Clear all

Listview Adciona e excluir dados de planilhas

2024 - VBA & Macros

Post Recente por Fernando Fernandes 12 anos atrás

13 Posts

3 Usuários

0 Reactions

3,509 Visualizações

RSS

edgard.jr

(@edgard-jr)

Posts: 31

Eminent Member

Topic starter

Boa noite pessoal.

Estou usando um listiview que achei de exemplo e fazendo algumas modificações. para voces entender melhor vou esplicar desde o começo.

tenho duas planilhas ( Moto, Exibir ) na planilha moto tenho a relação de moto onde

Coluna A = Id dos motoqueiros
Coluna B = Nomes
Coluna C = Endereço
Coluna D = Telefone

gostaria de saber se tem como eu fazer com que ao selecionar o motoqueiro no listeview e clicar em chegou ele copiasse os dados do motoqueiro selecionado e colasse na planilha Exibir na ultima linha em branco ? e ao selecionar o motoqueiro e clicar no botao saiu ele verificasse onde esta o motoqueiro na planilha exibir e escluisse a linha, caso nao ache nenhum dado der uma msg de erro qualquer???

segue planilha para melhor entendimento.

Postado : 05/12/2011 11:44 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Por coincidência este modelo fui eu que elaborei inicialmente, aquí: http://www.babooforum.com.br/forum/index.php?/topic/732426-listbox/

Confira novo arquivo adaptado.

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

Postado : 06/12/2011 8:06 pm

edgard.jr

(@edgard-jr)

Posts: 31

Eminent Member

Topic starter

José realmente ficou muito bom.
Só tem um detalhe. qunado clicar em chegou se na planilha exibir já constar o nome não tem como dar uma msg de erro e não colocar novamente, isso para nao repetir.

valeu

Postado : 06/12/2011 8:24 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Confira...

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

Postado : 07/12/2011 8:20 am

edgard.jr

(@edgard-jr)

Posts: 31

Eminent Member

Topic starter

grato meu rei! ficou perfeito

Postado : 07/12/2011 11:05 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Para ficar melhor ainda, clique na mãozinha amarela. :lol:

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

Postado : 08/12/2011 6:57 pm

edgard.jr

(@edgard-jr)

Posts: 31

Eminent Member

Topic starter

Olá Jose tudo bom? apos alguns dias utilizando a planila ocorreu o seguinte erro,

quando lanço o motoqueiro ALEXANDRE a planilha lança normal, so que quando vou lançar o EDGARD JUNIOR ela fala q ele já está presente. por q será está dando esse erro se os dados são diferentes????

segue a planilha com os novos dados já inclusos

Postado : 17/12/2011 10:43 pm

edgard.jr

(@edgard-jr)

Posts: 31

Eminent Member

Topic starter

acho que o codigo interpleta o numero 1 com 11 ou 21 ou 31, como poderia solucionar?

Postado : 17/12/2011 11:29 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Deve ser a formatação dos números. Altere essa linha para trabalhar diretamente com o nome, não testei mas penso que irá funcionar.

    Set c = Plan2.Range("B:B").Find(ListView1.SelectedItem.SubItems(1), LookIn:=xlValues, LookAt:=xlPart)

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

Postado : 18/12/2011 9:44 am

edgard.jr

(@edgard-jr)

Posts: 31

Eminent Member

Topic starter

tentei fazer mas não deu certo... ele coloca dados repitidos, coisa q nao poderia fazer.

Postado : 18/12/2011 12:33 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Teste aí...

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

Postado : 18/12/2011 4:01 pm

ftcj

(@ftcj)

Posts: 12

Active Member

:geek: :ugeek: :?: Estou sem saber como fazer.
Quero que ao selecionar um nome no listview e dar um enter esse nome fosse cadastrado na plan2 coluna A
Da mesma forma ocorresse com a coluna 2 do listview
Obs.: Os nomes encontram-se na coluna 1 do listview