Vídeo recomendado
https://youtu.be/diWPPPhW-9E

VBA para selecionar uma opção da PickList A, que ao dar duplo click esta opção passe para PickList B

Dúvidas gerais sobre Excel
BXIMENES
Colaborador
Colaborador
Mensagens: 13
Registrado em: Dom Mai 28, 2017 5:29 pm
Localização: Sorocaba - SP

VBA para selecionar uma opção da PickList A, que ao dar duplo click esta opção passe para PickList B

Mensagem por BXIMENES »

Gostaria de pedir a ajuda de vocês aqui:

Tenho o seguinte problema: Preciso fazer a extracao de dados da intranet da empresa onde trabalho e nesta pagina tem uma tabela contendo alguns itens que ao dar um duplo clique nele, este item vai para a tabela ao lado, ou seja, ele esta na tabela "DISPONIVEL" e ao clicar vai para tabela "CONCEDIDO".

Estou tentando fazer a seleção com GetElementById mas não estou conseguindo. Se alguem puder me ajudar ficarei muito grato!

Abaixo tem as linhas de codigo html do site:

Código: Selecionar todos

CODIGO DA TABELA "DISPONIVEL" ONDE ESTA OS DADOS QUE PRECISO CLICAR PARA ENVIAR PARA A TABELA AO LADO

<select id="formSearch:repairAreaPickList_source" name="formSearch:repairAreaPickList_source" multiple="true" class="ui-helper-hidden">
<option value="7700" selected="selected">ANALISE</option>
<option value="7100" selected="selected">AUDITORIA</option>
<option value="9050" selected="selected">INSP. C2</option>
<option value="7300" selected="selected">INSPEÇÃO A</option>
<option value="7250" selected="selected">INSPEÇÃO B</option>
<option value="7650" selected="selected">INSPEÇÃO C</option>
<option value="7200" selected="selected">INSPEÇÃO E</option>
<option value="7550" selected="selected">INSPEÇÃO F</option>
<option value="7500" selected="selected">INSPEÇÃO G</option>
<option value="7150" selected="selected">INSPEÇÃO K</option>
<option value="7350" selected="selected">INSPEÇÃO T1</option>
<option value="7400" selected="selected">INSPEÇÃO T2</option>
<option value="7450" selected="selected">INSPEÇÃO T3</option>
<option value="7600" selected="selected">Inspeção D</option>
<option value="9051" selected="selected">Inspeção H</option>
<option value="10050" selected="selected">Inspeção J</option>
<option value="7050" selected="selected">LINHA FUNCIONAL</option>
</select>

"CODIGO DA TABELA "DISPONIVEL" QUANDO CLICO SOBRE O ITEM QUE PRECISO SELECIONAR

<ul class="ui-widget-content ui-picklist-list ui-picklist-source ui-corner-bottom ui-sortable">
<li class="ui-picklist-item ui-corner-all" data-item-value="7700" data-item-label="ANALISE">ANALISE</li>
<li class="ui-picklist-item ui-corner-all ui-state-highlight" data-item-value="7100" data-item-label="AUDITORIA" style="">AUDITORIA</li>
<li class="ui-picklist-item ui-corner-all" data-item-value="9050" data-item-label="INSP. C2">INSP. C2</li>
<li class="ui-picklist-item ui-corner-all" data-item-value="7300" data-item-label="INSPEÇÃO A">INSPEÇÃO A</li>
<li class="ui-picklist-item ui-corner-all" data-item-value="7250" data-item-label="INSPEÇÃO B">INSPEÇÃO B</li>
<li class="ui-picklist-item ui-corner-all" data-item-value="7650" data-item-label="INSPEÇÃO C">INSPEÇÃO C</li>
<li class="ui-picklist-item ui-corner-all" data-item-value="7200" data-item-label="INSPEÇÃO E">INSPEÇÃO E</li>
<li class="ui-picklist-item ui-corner-all" data-item-value="7550" data-item-label="INSPEÇÃO F">INSPEÇÃO F</li>
<li class="ui-picklist-item ui-corner-all" data-item-value="7500" data-item-label="INSPEÇÃO G">INSPEÇÃO G</li>
<li class="ui-picklist-item ui-corner-all" data-item-value="7150" data-item-label="INSPEÇÃO K">INSPEÇÃO K</li>
<li class="ui-picklist-item ui-corner-all" data-item-value="7350" data-item-label="INSPEÇÃO T1">INSPEÇÃO T1</li>
<li class="ui-picklist-item ui-corner-all" data-item-value="7400" data-item-label="INSPEÇÃO T2">INSPEÇÃO T2</li>
<li class="ui-picklist-item ui-corner-all" data-item-value="7450" data-item-label="INSPEÇÃO T3">INSPEÇÃO T3</li>
<li class="ui-picklist-item ui-corner-all" data-item-value="7600" data-item-label="Inspeção D">Inspeção D</li>
<li class="ui-picklist-item ui-corner-all" data-item-value="9051" data-item-label="Inspeção H">Inspeção H</li>
<li class="ui-picklist-item ui-corner-all" data-item-value="10050" data-item-label="Inspeção J">Inspeção J</li>
<li class="ui-picklist-item ui-corner-all" data-item-value="7050" data-item-label="LINHA FUNCIONAL">LINHA FUNCIONAL</li>
</ul>

<select id="formSearch:repairAreaPickList_source" name="formSearch:repairAreaPickList_source" multiple="true" class="ui-helper-hidden">
<option value="7700" selected="selected">ANALISE</option>
<option value="7100" selected="selected">AUDITORIA</option>
<option value="9050" selected="selected">INSP. C2</option>
<option value="7300" selected="selected">INSPEÇÃO A</option>
<option value="7250" selected="selected">INSPEÇÃO B</option>
<option value="7650" selected="selected">INSPEÇÃO C</option>
<option value="7200" selected="selected">INSPEÇÃO E</option>
<option value="7550" selected="selected">INSPEÇÃO F</option>
<option value="7500" selected="selected">INSPEÇÃO G</option>
<option value="7150" selected="selected">INSPEÇÃO K</option>
<option value="7350" selected="selected">INSPEÇÃO T1</option>
<option value="7400" selected="selected">INSPEÇÃO T2</option>
<option value="7450" selected="selected">INSPEÇÃO T3</option>
<option value="7600" selected="selected">Inspeção D</option>
<option value="9051" selected="selected">Inspeção H</option>
<option value="10050" selected="selected">Inspeção J</option>
<option value="7050" selected="selected">LINHA FUNCIONAL</option>
</select>

"CODIGO DO BOTAO QUE SERVE PARA ENVIAR O ITEM SELECIONADO PARA A TABELA "CONCEDIDO"

<button type="button" class="ui-button ui-widget ui-state-default ui-corner-all ui-button-icon-only ui-picklist-button-add" title="Copiar" role="button" aria-disabled="false">
<span class="ui-button-icon-left ui-icon ui-c ui-icon ui-icon-arrow-1-e"></span>
<span class="ui-button-text ui-c">ui-button</span></button>

"CODIGO DA TABELA "CONCEDIDO"

<ul class="ui-widget-content ui-picklist-list ui-picklist-target ui-corner-bottom ui-sortable">
<li class="ui-picklist-item ui-corner-all" data-item-value="8200" data-item-label="INSPEÇÃO REPARO">INSPEÇÃO REPARO</li>
</ul>

<li class="ui-picklist-item ui-corner-all" data-item-value="8200" data-item-label="INSPEÇÃO REPARO">INSPEÇÃO REPARO</li>
</ul> 

<select id="formSearch:repairAreaPickList_target" name="formSearch:repairAreaPickList_target" multiple="true" class="ui-helper-hidden">
<option value="8200" selected="selected">INSPEÇÃO REPARO</option>
</select>
Imagem
tipo esta imagem acima, porem nao existe o botao submit.

Preciso colocar o Item AUDITORIA que esta na tabela DISPONIVEL PARA a tabela CONCEDIDO.
Pode ser feito tanto dando duplo clique ou clicando sobre o item e clicar na seta para enviar para a outra tabela.
Obrigado!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Raygsson
Manda bem
Manda bem
Mensagens: 118
Registrado em: Sex Jan 31, 2020 8:06 pm

Re: VBA para selecionar uma opção da PickList A, que ao dar duplo click esta opção passe para PickList B

Mensagem por Raygsson »

Tenta da um click na opção desejada e depois na seta pra incluir, desta forma:

Código: Selecionar todos

IE.Document.querySelector("option[value='7700']").Click
IE.Document.querySelector("button[title='Copiar']").Click
Muda apenas o valor da opção e a variável IE pro nome que esta usando, se for o caso.


Responder